一个菜鸟的心路历程.

现在时间是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个数排序了。