希望解析下下面的代码？？简单的。

Option Base 1
Private Const N As Integer = 10
Private Sub CmdSort_Click()
Dim a(N) As Integer, temp As Integer
Dim i As Integer, j As Integer
Randomize
For i = 1 To N
a(i) = Int(Rnd * (100 - 1)) + 1
Text1.Text = Text1.Text & Str(a(i))
Next i
For i = 1 To N - 1
For j = i + 1 To N
If a(i) > a(j) Then                      希望每行代码都解析。
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To N
Text2.Text = Text2.Text & Str(a(i))
Next i
End Sub  --------------------编程问答--------------------

Option Base 1

Private Const N As Integer = 10 '声明常量N

Private Sub CmdSort_Click()

Dim a(N) As Integer, temp As Integer

Dim i As Integer, j As Integer

Randomize  '初始化随机数生成器

For i = 1 To N

a(i) = Int(Rnd * (100 - 1)) + 1  '生成介于1和99的随机数添加到a(i)数组中

Text1.Text = Text1.Text & Str(a(i))

Next i

For i = 1 To N - 1  '这两层循环将会把a(i)这个数组按从小到大排列

For j = i + 1 To N

If a(i) > a(j) Then

temp = a(i)

a(i) = a(j)

a(j) = temp

End If

Next j

Next i

For i = 1 To N '这个循环将会把排序后的数字显示出来

Text2.Text = Text2.Text & " " & Str(a(i))

Next i

End Sub

--------------------编程问答-------------------- 这个代码不错！

补充：VB ,  基础类