vb高手进！五点五十前在线等答案！

来源：百度知道 编辑：UC知道 时间：2024/05/15 16:45:12
声明一个含有100个元素的数组，并生成100个1到1000之间的随机数，作为数组的元素。求出该数组的最大值以及最大值所在位置，并在窗体上显示运行结果

option base 1
private cmd1_click()
dim a(100)%,max%,x%
for i=1 to 100
a(i)=rnd*1000+1
next i
max=a(1)
for i=2 to 100
if a(i)>max then max=a(I):x=i
next i
print "第" & str(x) & "个数是最大值:" & str(max)
end sub

自己在电脑上会做,不过不知道怎么给你..