一个菜鸟的心路历程.

现在时间是2016年3月31日下午16:50.     邪恶的计算机老师又给我们布置了很多任务。虽然说电脑很好玩。vb很高级 ，但是你不会，不懂，那你就没办法了 ，就比如下面的这个代码

Option Base 1

Private Sub Command1_Click()
Cls
Me.Font.Size = 25
Dim A(10) As Integer
Dim swap As Integer
Dim n As Integer
n = 1
While n <= 10
A(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 9
If A(n) < A(n + 1) Then
swap = A(n)
A(n) = A(n + 1)
A(n + 1) = swap
End If
n = n + 1
Wend

n=..................................(省略)

n = 1
While n <= 10
Print A(n)
n = n + 1
Wend


End Sub

很神奇的就把10个数排序了。