VB编写程序，用随机函数产生100个0~99之间的整数，存放在数组中，然后在窗体上显示所有大于50的随机数。

Answer 1

dim a(100)
for i=1 to 100
    a(i)=int(rnd()*100)
    if a(i)>50 then print a(i)
next