000.txt

来自「c语言实现的排序算法」· 文本 代码 · 共 43 行

 '组合框combo1的单击事件，选择升降序
Private Sub Combo1_Change()
  
End Sub
'字号组合框combo2的单击事件，选择排序方法
Private Sub Combo2_Change()

End Sub
'产生随机数
Private Sub Command1_Click()
  Dim n As Integer
    n = Text1.Text
 Dim number(1 To 10000) As Integer
 Dim m As Integer
 Randomize
  For m = 1 To n
  number(m) = Int(Rnd * n) + 1
 List1.AddItem number(m)
 Next m
 End Sub

Private Sub Command2_Click()
Static index As Integer
index = index + 1
Select Case index
  
  End Select
End Sub

'在load事件中，将各列表项加入到组合框combo1、组合框combo2中
Private Sub Form_Load()
Combo1.AddItem "升序"
Combo1.AddItem "降序"
Combo2.AddItem "冒泡排序"
Combo2.AddItem "插入排序"
Combo2.AddItem "桶排序"
Combo2.AddItem "选择排序"
Combo2.AddItem "希尔排序"
Combo2.AddItem "快速排序"
Combo2.AddItem "堆排序"
End Sub