cxc4.frm

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

VERSION 5.00
Begin VB.Form cxc04 
   BackColor       =   &H00C0FFC0&
   Caption         =   "希尔排序（shellsort)"
   ClientHeight    =   7995
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10875
   FillStyle       =   6  'Cross
   Icon            =   "cxc4.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8500
   ScaleMode       =   0  'User
   ScaleWidth      =   10875
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      BackColor       =   &H00FFC0FF&
      Height          =   735
      Left            =   5280
      MultiLine       =   -1  'True
      TabIndex        =   14
      Text            =   "cxc4.frx":0CCA
      Top             =   1800
      Width           =   4935
   End
   Begin VB.ListBox List2 
      BackColor       =   &H00FFC0FF&
      Height          =   1680
      Left            =   5280
      TabIndex        =   13
      Top             =   3360
      Width           =   4935
   End
   Begin VB.ListBox List3 
      BackColor       =   &H00FFC0FF&
      Height          =   1680
      Left            =   5280
      TabIndex        =   12
      Top             =   5640
      Width           =   4935
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   5000
      Left            =   9120
      Top             =   2880
   End
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   5500
      Left            =   9360
      Top             =   6840
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Height          =   975
      Left            =   0
      TabIndex        =   1
      Top             =   -120
      Width           =   11000
      Begin VB.Image Image9 
         Height          =   240
         Index           =   2
         Left            =   9120
         Picture         =   "cxc4.frx":0CD0
         Top             =   240
         Width           =   240
      End
      Begin VB.Label Label13 
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "递减排序"
         Height          =   255
         Left            =   8880
         TabIndex        =   11
         Top             =   600
         Width           =   735
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "说 明"
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   600
         Width           =   855
      End
      Begin VB.Image Image9 
         Height          =   240
         Index           =   0
         Left            =   8040
         Picture         =   "cxc4.frx":0DD2
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image8 
         Height          =   225
         Left            =   10200
         Picture         =   "cxc4.frx":0ED4
         Top             =   240
         Width           =   225
      End
      Begin VB.Image Image7 
         Height          =   240
         Left            =   6960
         Picture         =   "cxc4.frx":0FCE
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image6 
         Height          =   225
         Left            =   4680
         Picture         =   "cxc4.frx":10D0
         Top             =   240
         Width           =   225
      End
      Begin VB.Image Image5 
         Height          =   270
         Left            =   5760
         Picture         =   "cxc4.frx":11CA
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image4 
         Height          =   225
         Left            =   3720
         Picture         =   "cxc4.frx":12DC
         Top             =   240
         Width           =   225
      End
      Begin VB.Image Image3 
         Height          =   225
         Left            =   2640
         Picture         =   "cxc4.frx":13D6
         Top             =   240
         Width           =   225
      End
      Begin VB.Image Image2 
         Height          =   240
         Left            =   1560
         Picture         =   "cxc4.frx":14D0
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image1 
         Height          =   240
         Left            =   480
         Picture         =   "cxc4.frx":15D2
         Top             =   240
         Width           =   270
      End
      Begin VB.Label Label9 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "返 回"
         Height          =   255
         Left            =   9840
         TabIndex        =   9
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label8 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "递增排序"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   7800
         TabIndex        =   8
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label7 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "输入数据"
         Height          =   255
         Left            =   6600
         TabIndex        =   7
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "继 续"
         Height          =   255
         Left            =   4440
         TabIndex        =   6
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "单步运行"
         Height          =   255
         Left            =   5400
         TabIndex        =   5
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "暂 停"
         Height          =   255
         Left            =   3360
         TabIndex        =   4
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "自动运行"
         Height          =   255
         Left            =   2280
         TabIndex        =   3
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "导入程序"
         Height          =   255
         Left            =   1200
         TabIndex        =   2
         Top             =   600
         Width           =   855
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4080
      Top             =   6840
   End
   Begin VB.ListBox List1 
      BackColor       =   &H80000018&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5640
      Left            =   720
      TabIndex        =   0