Private Sub Command1_Click()
Dim k()
Dim k2()
Label1.Caption = "": Label2.Caption = ""
k = Array(4, 7, 5, 6, 9)
'排序
BubbleSort2 k
For i = 0 To UBound(k)
'Debug.Print k(i)'测试排序结果
Next'分组 ReDim k2(0) k2(0) = 0 For i = 0 To UBound(k) - 1
If k(i + 1) - k(i) > 1 Then
...
Private Sub Command1_Click()
Dim k() As Variant, s As Integer
Dim k2() As Single, t As Single
Dim i As Integer, c As Integer
Dim J As Integer
k = Arr...