dim A(1 to 10) as integer,i as integer,n as integer,max as integer
randomize
for i=1 to 10
a(i)=int(rnd()*100) '给数组赋值
next i
max=a(1)
n=1
for i=1 to 10
if a(i)>max then
max=a(i)
n=i
end if
next i
print "最大值：";max;"下标：";n
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024