UC知道有一段VB代码不理解，高手指点啊！
来源：百度知道 编辑：UC知道 时间：2024/05/16 15:49:39
刚刚看到这段代码没理解什么意思请高手说明每行代码的意思！（尽量详细些）谢谢~代码如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = InputBox("请输入")
Next i
For i = 10 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
Print "经过冒泡排序，得出结果："
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = InputBox("请输入")
Next i
For i = 10 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
Print "经过冒泡排序，得出结果："
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 10) As Integer ，定义一个数组a
For i = 1 To 10
a(i) = InputBox("请输入") ，inputbox向数组a中输入数据
Next i
For i = 10 To 2 Step -1 ，i从10取到2，每次少1
For j = 1 To i - 1 ，j从1到i-1
If a(j) > a(j + 1) Then ，比较数组a中a(j)和a（j+1）的大小，
temp = a(j + 1) ，如果a(j) > a(j + 1)的话a(j)和a（j+1）中的数据交换一下
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
Print "经过冒泡排序，得出结果："
For i = 1 To 10 ，窗体打印出排序后的数组
Print a(i)
Next i
End Sub
这是一个冒泡算法的例子，对数组进行大小排序，冒泡算法是排序算法的一种，很经典的算法。在很多时候都能用到。
单击Command1
定义数组a（i）
当i=1到10中的一个数就执行输出