UC知道VB求助，高手进！！
来源：百度知道 编辑：UC知道 时间：2024/05/30 18:24:08
解释一下什么意思！！
Dim a(1 To 5) As Integer
Private Sub Command1_Click()
Dim i%, k%, t%, x%
For i = 1 To 5
a(i) = Int(Rnd * 20)
Picture1.Print a(i); Space(2);
Next i
For k = LBound(a()) To UBound(a())
For t = k To (UBound(a()) - 1)
If a(k) > a(t + 1) Then
z = a(t + 1)
a(t + 1) = a(k)
a(k) = z
End If
Next t
Next k
For i = 1 To 5
Picture2.Print a(i); Space(2);
Next i
End Sub
Dim a(1 To 5) As Integer
Private Sub Command1_Click()
Dim i%, k%, t%, x%
For i = 1 To 5
a(i) = Int(Rnd * 20)
Picture1.Print a(i); Space(2);
Next i
For k = LBound(a()) To UBound(a())
For t = k To (UBound(a()) - 1)
If a(k) > a(t + 1) Then
z = a(t + 1)
a(t + 1) = a(k)
a(k) = z
End If
Next t
Next k
For i = 1 To 5
Picture2.Print a(i); Space(2);
Next i
End Sub
Dim a(1 To 5) As Integer //定义名为a的五元素数组，
Private Sub Command1_Click() //鼠标点击动作
Dim i%, k%, t%, x% //定义四个整形变量
For i = 1 To 5 //for循环
a(i) = Int(Rnd * 20) //给数组a的五个元素赋值，为0-20的随机数
Picture1.Print a(i); Space(2); //在Picture1控件上输出数组a的五个值
Next i //同上
For k = LBound(a()) To UBound(a()) //k从a的下界到上限的for循环
For t = k To (UBound(a()) - 1) //for嵌套t从当前k值到a上限减1
If a(k) > a(t + 1) Then
z = a(t + 1)
a(t + 1) = a(k)
a(k) = z
End If //对数组a的元素进行排序
Next t
Next k
For i = 1 To 5
Picture2.Print a(i); Space(2);//将排序后的结果在控件Picture2中输出
Next i
End Sub//结束
总而言之，就是定义一个数组->赋值->第一次输出->排序->第二次输出 这样一个程序
眼花缭乱呗！