Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer, j As Integer
Randomize
Print "初始顺序的数字:"
For i = 1 To 10
a(i) = 20 + Int(61 * Rnd())
Print a(i);
Next i
For i = 1 To 5
j = a(i): a(i) = a(11 - i): a(11 - i) = j
Next i
Print "颠倒后的数字:"
For i = 1 To 10
Print a(i);
Next i
End Sub