vb编程 考试啊 ~~救急

来源：百度知道 编辑：UC知道 时间：2024/05/02 10:05:52
产生30个0——1000的随机整数，放入一个数组中，求这30个数中的最大值，然后输出这个数组及最大值。

我现在网吧，不能测试是否能够运行
me.cls
dim a(30) as integer
dim max as integer
randomize
for i=1 to 30
a(i)=int(rnd*1000)
if a(i)>max then
max=a(i)
end if
print a(i)
next i
print "----------------"
print "最大值=" & max