cxc3.frm

《数据结构》排序演示系统。实现6种内部排序。包括直接插入排序

      TabIndex        =   17
      Top             =   5400
      Width           =   4695
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "经直接插入排序后递增序列为："
      Height          =   375
      Left            =   5520
      TabIndex        =   16
      Top             =   3240
      Width           =   4695
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "您输入的待排序序列为："
      Height          =   255
      Left            =   5520
      TabIndex        =   15
      Top             =   1560
      Width           =   4695
   End
End
Attribute VB_Name = "cxc03"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'**********************************************
'* desinded dy 丞相  E_mail:[e-mail]  *
'**********************************************

Dim i, k As Integer
Dim a(100), c(10) As Integer
Dim b(10) As Variant
Sub insertsort(s(), ByVal nOrder As Integer) '插入排序程序
Dim i, j
Dim TEMP

    
    j = LBound(s)  '不超出下界
    While (j <= UBound(s)) '不超出上界
        i = j
        Do
            If i > LBound(s) Then
                If nOrder = 0 Then '递增排序
                    If s(i) < s(i - 1) Then
                        TEMP = s(i)
                        s(i) = s(i - 1)
                        s(i - 1) = TEMP
                        i = i - 1
                    Else
                        Exit Do
                    End If
                ElseIf nOrder = 1 Then '递减排序
                    If s(i) >= s(i - 1) Then
                         TEMP = s(i)
                        s(i) = s(i - 1)
                        s(i - 1) = TEMP
                        i = i - 1
                    Else
                        Exit Do
                    End If
                End If
            Else
                Exit Do
            End If
            
        Loop
        j = j + 1
        
    Wend
End Sub
Private Sub Command1_Click() '导入程序
List1.AddItem ("直接插入排序自动运行显示：")
List1.AddItem ("insertsort(int m)")
List1.AddItem ("{")
List1.AddItem ("int i,j;")
List1.AddItem ("for(i=2;i<=m;i++)")
List1.AddItem ("if(r[i].key<r[i-1].key)")
List1.AddItem ("{")
List1.AddItem ("r[0].key=r[i].key;")
List1.AddItem ("j=i-1;")
List1.AddItem ("while(r[0].key<r[j].key)")
List1.AddItem ("{")
List1.AddItem ("r[j+1].key=r[j].key;")
List1.AddItem ("j--;")
List1.AddItem ("}")
List1.AddItem ("r[j+1].key=r[0].key;")
List1.AddItem ("}")
List1.AddItem ("}")

End Sub

Private Sub Command10_Click()
cxc05.Show
End Sub

Private Sub Command2_Click()  '自动运行
Timer1.Enabled = True '调出时钟，使其工作
End Sub

Private Sub Command3_Click() '返回
cxc03.Hide
cxc02.Show
End Sub

Private Sub Command4_Click() '暂停
Timer1.Enabled = False
End Sub

Private Sub Command5_Click() '继续
Timer1.Enabled = True
End Sub

Private Sub Command6_Click() '单步运行
Call Timer1_Timer
End Sub

Private Sub Command7_Click() '输入数据
Dim i As Integer
Dim textstr As String
For i = 0 To 9
b(i) = InputBox("请逐个输入待排序序列（10个）：")
If b(i) = "" Then
Exit For
End If
textstr = textstr + Str$(b(i)) + Space(1)
Text1.Text = textstr
Next i
End Sub

Private Sub Command8_Click() '递减排序
Dim textstr As String
Call insertsort(b, 1)
For i = 0 To 9
textstr = textstr + Str$(b(i)) + Space(1)
List2.AddItem "第" + Str$(i) + "趟：" + textstr
Next i
End Sub

Private Sub Command9_Click() '递增序列
Dim textstr As String
Call insertsort(b, 0)
For i = 1 To 10
textstr = textstr + Str$(b(i)) + Space(1)
List2.AddItem "第" + Str$(i) + "趟：" + textstr
Next i
End Sub

Private Sub Form_Load()
cxc03.Left = (Screen.Width - Width) / 2 '定位
cxc03.Top = (Screen.Height - Height) / 2
i = 0 '初始化
a(0) = 4: a(1) = 5: a(2) = 7: a(3) = 8: a(4) = 9: a(5) = 11: a(6) = 12: a(7) = 14
a(8) = 4: a(9) = 5: a(10) = 7: a(11) = 8:  a(12) = 14
a(13) = 4: a(14) = 5: a(15) = 7: a(16) = 8: a(17) = 9: a(18) = 11: a(19) = 12: a(20) = 14
a(21) = 4: a(22) = 5: a(23) = 7: a(24) = 8:  a(25) = 14
a(26) = 4: a(27) = 5: a(28) = 7: a(29) = 8: a(30) = 9: a(31) = 11: a(32) = 12: a(33) = 14
a(34) = 4: a(35) = 5: a(36) = 7: a(37) = 8:  a(38) = 14
a(39) = 4: a(40) = 5: a(41) = 7: a(42) = 8: a(43) = 9: a(44) = 11: a(45) = 12: a(46) = 14
a(47) = 4: a(48) = 5: a(49) = 7: a(50) = 8:  a(51) = 14
a(52) = 4: a(53) = 5: a(54) = 7: a(55) = 8: a(56) = 9: a(57) = 11: a(58) = 12: a(59) = 14
a(60) = 4: a(61) = 5: a(62) = 7: a(63) = 8:  a(64) = 14

c(0) = 0: c(1) = 1: c(2) = 2: c(3) = 3: c(4) = 4: c(5) = 5: c(6) = 6: c(7) = 7: c(8) = 8: c(9) = 9
End Sub

Private Sub Label1_Click()
List1.AddItem ("直接插入排序（递增）自动运行显示：")
List1.AddItem ("insertsort(int m)")
List1.AddItem ("{")
List1.AddItem ("int i,j;")
List1.AddItem ("for(i=2;i<=m;i++)")
List1.AddItem ("if(r[i].key<r[i-1].key)")
List1.AddItem ("{")
List1.AddItem ("r[0].key=r[i].key;")
List1.AddItem ("j=i-1;")
List1.AddItem ("while(r[0].key<r[j].key)")
List1.AddItem ("{")
List1.AddItem ("r[j+1].key=r[j].key;")
List1.AddItem ("j--;")
List1.AddItem ("}")
List1.AddItem ("r[j+1].key=r[0].key;")
List1.AddItem ("}")
List1.AddItem ("}")
End Sub

Private Sub Label13_Click()
Dim textstr As String
Call insertsort(b, 1)
For i = 0 To 9
textstr = textstr + Str$(b(i)) + Space(1)
List3.AddItem "第" + Str$(i + 1) + "趟：" + textstr
Next i
End Sub

Private Sub Label2_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Label3_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Label4_Click()
Call Timer1_Timer
Call Timer2_Timer
End Sub

Private Sub Label5_Click()
cxc14.Show
End Sub

Private Sub Label6_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Label7_Click()
Dim i As Integer
Dim textstr As String
For i = 0 To 9
b(i) = InputBox("请逐个输入待排序序列（10个）：")
If b(i) = "" Then
Exit For
End If
textstr = textstr + Str$(b(i)) + Space(1)
Text1.Text = textstr
Next i
End Sub

Private Sub Label8_Click()
Dim textstr As String
Call insertsort(b, 0)
For i = 1 To 10
textstr = textstr + Str$(b(i)) + Space(1)
List2.AddItem "第" + Str$(i) + "趟：" + textstr
Next i
End Sub

Private Sub Label9_Click()
cxc03.Hide
cxc02.Show
End Sub

Private Sub Timer1_Timer()
If (i <= 100) Then '控制时钟
List1.Selected(a(i)) = True
End If
 i = i + 1
End Sub

Private Sub Timer2_Timer()
If (k <= 10) Then
List2.Selected(c(k)) = True
End If
 k = k + 1
End Sub