Dim a(10) As Integer, b(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, t As Integer
For i = 1 To 5
b(i) = a(11 - i)
b(11 - i) = a(i)
Next i
For i = 1 To 10
Print b(i);
Next i
End Sub
Private Sub Command3_Click()
End
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024