一断VB6.0代码，求解释

程序功能：点击按钮后生成10个1-100的随机数，放到text1中，然后按升序排序后，放到text2中

逐行代码注释如下：

Option Base 1 '数组下标从1开始的
Private Const N As Integer = 10 '定义常量N=10
Private Sub CmdSort_Click() '按钮点击事件代码
Dim a(N) As Integer, temp As Integer '定义a(10) 的整型数组，和临时变量
Dim i As Integer, j As Integer '循环变量
Randomize '初始化随机数发生器
For i = 1 To N '这个循环生成10个随机数到a(n)这个数组中
a(i) = Int(Rnd * (100 - 1)) + 1 '生成随机数（1-100)到a(i)这个元素中
Text1.Text = Text1.Text & Str(a(i)) '依次放进text1
Next i

'以下的两个循环嵌套是典型的升序排序算法
For i = 1 To N - 1
For j = i + 1 To N
’循环体内的代码含义为让a (i) 和a(i+1)中的较大值放到a(i+1)中 实现排序
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i

'将排序结果a(n)数组输出到text2中
For i = 1 To N
Text2.Text = Text2.Text & Str(a(i))
Next i
End Sub