vb编程：随机产生10个1–100之间的整数，并按从小到大顺序输出，谁能帮我编一下

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a(10), i, j As Integer
For i = 0 To 9
a(i) = Int(Rnd * 100) + 1
Print a(i);
Next
For i = 0 To 8
For j = i To 9
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
Print
For i = 0 To 9
Print a(i)
Next

End Sub本回答被提问者采纳