会用VB的近来下谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/08 13:53:39
救助 各位了哈

下星期我们计算机考试 要求用 VB编写个软件 如题:

写一过程sort,将一数组(1~100之间的随即数)用"冒泡法"按升序排序

谁会的帮帮小弟我啊

谢谢 我的终身幸福就在各位手里了
请问下
listbox控件是什么

'为方便显示两组数，窗体上放两个listbox控件，加两个按钮
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Call sort '调用过程
End Sub

Private Sub Command2_Click() '生成随机函数
Dim i As Integer
List1.Clear
For i = 1 To 100
a(i) = Int(Rnd * 100 + 1)
List1.AddItem a(i)
Next i
End Sub

Public Sub sort() '冒泡法排序过程
Dim i As Integer
Dim t As Integer
Dim k As Integer
Dim n As Integer
For k = 1 To 100
For i = 100 To 2 Step -1
If a(i) > a(i - 1) Then
t = a(i - 1)
a(i - 1) = a(i)
a(i) = t
End If
Next
Next
List2.Clear
For n = 1 To 100
List2.AddItem a(n)
Next
End Sub