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

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

VB code

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

这个代码不错！