涉及 数组 随机数 排序 两个功能
数组和随机数:放在form_load里吧
dim sss(10) as integer
for i =1 to 10
sss(i)=int(rnd*100)
next i
排序:放在按钮的Click里好了
dim max as integer, t as integer
max=sss(1)
for i =1 to 9
for j = i+1 to 10
if max < sss(i) then
t=max
max=sss(i)
sss(i)=t
end if
next j
next i
没有图???
木看到图
都是基本题目,只要知道函数就行了