d7f2.frm

来自「常用数值算法集哈」· FRM 代码 · 共 82 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7335
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   7335
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   5160
      TabIndex        =   0
      Top             =   2640
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    'PROGRAM D7F2
    'for routine SORT
    Dim A(10)
    A(1) = 29.82: A(2) = 71.51: A(3) = 3.3:   A(4) = 87.44: A(5) = 53.42
    A(6) = 63.16: A(7) = 89.1:  A(8) = 25.75: A(9) = 93.16: A(10) = 27.72
    'Print Original array
    Print
    Print Tab(5); "Original array:"
    Print
    For I = 1 To 10
        Print Tab(I * 7); Format$(A(I), "##.#0");
    Next I
    'Sort array
    Call SORT(10, A())
    'Print sorted array
    Print Tab(5)
    Print Tab(5); "Sorted array:"
    Print Tab(5)
    For I = 1 To 10
        Print Tab(I * 7); Format$(A(I), "##.#0");
    Next I
End Sub
Sub SORT(N, RA())
    L = Int(N / 2) + 1
    IR = N
    Do
        If L > 1 Then
            L = L - 1
            RRA = RA(L)
        Else
            RRA = RA(IR)
            RA(IR) = RA(1)
            IR = IR - 1
            If IR = 1 Then
              RA(1) = RRA
              Exit Sub
            End If
        End If
        I = L
        J = L + L
        While J <= IR
            If J < IR Then
                If RA(J) < RA(J + 1) Then J = J + 1
            End If
            If RRA < RA(J) Then
                RA(I) = RA(J)
                I = J
                J = J + J
            Else
                J = IR + 1
            End If
        Wend
        RA(I) = RRA
    Loop
End Sub