帮忙写下段注释!!

来源：百度知道 编辑：UC知道 时间：2024/07/04 07:00:12
rivate Sub Command1_Click()
Dim N As Integer
Dim Ar() As Integer
Dim i As Integer
Dim j As Integer
Dim T As Integer
N = Val(InputBox("输入数字的个数")) - 1
ReDim Ar(N)
For i = 0 To N
Ar(i) = Val(InputBox("输入第" & i & "个数字："))
Next i
Print "排序前的结果是："
For i = 0 To N
Print Ar(i); " ";
Next i
For i = N To 1 Step -1
For j = 0 To i - 1
If Ar(j) < Ar(j + 1) Then
T = Ar(j)
Ar(j) = Ar(j + 1)
Ar(j + 1) = T
End If
Next j
Next i
Print
Print "排序后的结果是："
For i = 0 To N
Print Ar(i); " ";
Next i
End Sub

尽量写清楚点详细点,谢了...

Dim N As Integer '定义N为整型
Dim Ar() As Integer '定义Ar为整型动态数组
Dim i As Integer '定义i为整型
Dim j As Integer '定义j为整型
Dim T As Integer '定义T为整型
N = Val(InputBox("输入数字的个数")) - 1 '弹出文本输入框InputBox，提示“输入数字的个数”；用户输入后便得到一个数值，以方便下一步重定义数组Ar的大小。由于数组从0开始计算，所以通过文本输入框得到的数值需要减去1后才赋值给N
ReDim Ar(N) '重定义动态数组
For i = 0 To N '从0开始，一直做循环至N
Ar(i) = Val(InputBox("输入第" & i & "个数字：")) '弹出文本输入框InputBox，提示“输入第i个数字”；用户输入后便得到的数值赋值给Ar(i)
Next i 'i增加1，如果i大于N，则结束循环，否则继续做循环
Print "排序前的结果是："
For i = 0 To N '从0开始，一直做循环至N
Print Ar(i); " "; '在窗体输出数组Ar()中的数值
Next i 'i增加1，如果i大于N，则结束循环，否则继续做循环
For i = N To 1 Step -1 '第一循环，从N倒数至1，每倒数一次减去1
For j = 0 To i - 1 '第二循环，从0顺数至i-1
If Ar(j) < Ar(j + 1) Then '如果Ar(j)的值小于Ar(j+1)的值，执行接着的指令，实现数值互换
T = Ar(j) '如果Ar(j)的值小于Ar(j+1)的值，把Ar(j)的值赋给T
Ar(j) = Ar(j + 1) '如果Ar(j)的值小于Ar(j+1)的值，把Ar(