'我不用你这些变量，打起来都费劲。
dim a(10),i,s
for i=0 to 10
a(i)=rnd()
next i
'下面就是你问的了
for i=1 to 10
if a(i)>a(i-1) then
s=a(i-1)
else
s=a(i)
end if
next i
'保证能找出最小的，当然你如果找最大的，只有把a(i)>a(i-1)改下就行了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024