4.12.frm

来自「VB6.0应用例题」· FRM 代码 · 共 40 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "冒泡法排序"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
  Const N = 10                  'N为数据个数
  Dim D(N) As Integer
  Dim I, J, T As Integer        'T为交换用中间变量
  Randomize Timer               '随机数初始化
  For I = 1 To N
      D(I) = Rnd * 100
      Print D(I);               '输出排序前的数据序列
  Next I
  Print
  For I = N - 1 To 1 Step -1    '让前N-1个大数"沉底"
      For J = 1 To I
          If D(J) > D(J + 1) Then     '进行数据元素的交换
              T = D(J): D(J) = D(J + 1): D(J + 1) = T
          End If
      Next J
  Next I
  For I = 1 To N                  '输出排序结果
      Print D(I);
  Next I
End Sub