4.6.frm

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

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 Length = 10
    Dim D(Length + 1) As Integer
    Dim X%, I%, J%
    For I = 1 To Length          '给数组赋值，依次为100、200、300、…、1000
        D(I) = 10 * I
    Next I
    X = InputBox("插入数据的值")
    For I = Length To 1 Step -1
        If X >= D(I) Then
            I = I + 1           '新数据的插入位置
            Exit For
        End If
    Next I
    For J = Length To I Step -1
        D(J + 1) = D(J) '从插入位置开始，所有元素挪一个位置
    Next J
    D(I) = X            '插入新数据
    For I = 1 To Length + 1     '输出所有数组元素
        Form1.Print D(I);
    Next I
End Sub