杭州交通信息网安德士化工:VB作业题－求助
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/11 02:57:10
用随机数生成3个200以内的正整数,按从小到大的顺序依次输出.〔要用到用Randomize（Timer）的〕
Randomize
dim a(3),max,i,j,t
for i=1 to 3
a(i)= int(rnd*200)+1
next i
max=a(1)
for i=1 to 3
for j=1 to 3
if a(j)>=max then
max=a(j)
else
t=a(i);a(i)=a(j);a(j)=t
end if
next j,i
?a(1),a(2),a(3)
好像楼上的程序也有点错
Randomize
Dim a(3), max, i, j, t
For i = 1 To 3
a(i) = Int(Rnd * 200) + 1
Next i
max = a(1)
For i = 1 To 3
For j = i + 1 To 3
If a(j) >= a(i) Then
max = a(j)
Else
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j, i
Print a(1), a(2), a(3)