vb6.0考题 20个100内随机整数 按照升序排列

来源：百度知道 编辑：UC知道 时间：2024/04/27 21:05:57
大家好我们正在上微机 最后一道题我不会 现在写出来请大家帮忙给看看
用VB6.0编程序 单击开始命令后随机生成20个100以内的整数不清将其在窗体上显示 再将这20个数据按照升序排列后再在窗体上显示出来

从现在开始 只剩下半个小时了 希望大家赶快帮帮忙
每一行只有14个数字..还不是升序

Private Sub Form_Click()
Dim a(0 To 19), i%
For i = 0 To 19
Randomize
a(i) = Int(Rnd * 101)
Print a(i);
Next i
Call s(a, max)
Print ""
For i = LBound(a) To UBound(a)
Print a(i);
Next i
Print ""
Print ""
End Sub

Sub s(a(), max)
Dim i%, imax%, n%, j%, t%
n = UBound(a)
For i = LBound(a) To n - 1
imax = i
For j = i + 1 To n
If a(j) < a(imax) Then imax = j
Next j
t = a(i)
a(i) = a(imax)
a(imax) = t
Next i

End Sub