VB:求助 代码

来源：百度知道 编辑：UC知道 时间：2024/06/09 04:00:30
随机产生3个范围在[30,100]的整数，按从小到大排列
用if函数……
好吧，我写了半天总有bug，所以求助一下，哪位高人写给我代码~~~
谢谢了！

Private Sub Command1_Click()
Dim iA() As Integer
Dim iTmp As Integer
Dim iNo As Integer

iNo = 3 '范围，任意取，比如100个数字
ReDim iA(1 To iNo) As Integer

Randomize
For i = 1 To iNo '产生随机数
iA(i) = Rnd * 70 + 30
Next

For i = 1 To iNo '排序
For j = i To iNo
If iA(i) > iA(j) Then
iTmp = iA(i)
iA(i) = iA(j)
iA(j) = iTmp
End If
Next
Next

Me.AutoRedraw = True
Cls '清屏
Print "输出结果为:"
For i = 1 To iNo
Print iA(i),
If i Mod 10 = 0 Then Print '这里打印回车换行
Next

End Sub

Private Sub Command1_Click()
Dim Zu() As Long, ZuS As Long, I As Long, nStr As String

ZuS = 3 '随机数个数，可修改
ReDim Zu(1 To ZuS)<