VB用随机函数产生50个【10-100】的随机整数,并按照从小到大的顺序打印出来

Question

如题所述

Answer 1

Dim A(50) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 50
A(i) = Int(Rnd * 90 + 10)
Next i
Picture1.Cls
Picture1.Print "排序前数据："

For i = 1 To 50
Picture1.Print A(i);
If i Mod 10 = 0 Then Picture1.Print
Next
End Sub

Private Sub Command2_Click()
For i = 1 To 49
Max = A(i)
For j = i + 1 To 50
If A(j) < Max Then
Max = A(j)
temp = A(i): A(i) = A(j): A(j) = temp
End If
Next
Next
Picture1.Print "排序后数据："
For i = 1 To 50
Picture1.Print A(i);
If i Mod 10 = 0 Then Picture1.Print
Next
End Sub