Question

vb程序编写题 随机产生20到80之间的10个整数,将它们从小到大排序

Answer 1

Private Sub Command1_Click()
Dim MyValue(10) As Integer
Dim i, j, p As Integer
For i = 0 To 9
Randomize
MyValue(i) = Int(Rnd() * (80 - 20 + 1)) + 20
Next

For i = 0 To 9
For j = i + 1 To 10
If MyValue(i) > MyValue(j) Then
p = MyValue(i)
MyValue(i) = MyValue(j)
MyValue(j) = p
End If
Next
Next

For i = 0 To 9
Print MyValue(i)
Next i
End Sub