4.7.frm

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

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "在数组中删除数据"
   ClientHeight    =   2235
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2235
   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()
    Dim Data(10) As Integer
    Dim I%, J%, X%, N%
    N = 10                              '数据个数
    For I = 1 To N
        Data(I) = 5 * I                 '给数组元素赋值
    Next I
    X = InputBox("请输入一个数据：")
    For I = 1 To N                      '在数组中寻找与X相同的元素
        If X = Data(I) Then Exit For    '若找到则终止循环
    Next I
    If I = N + 1 Then
       MsgBox "无此数据"
       Exit Sub          '数组元素中无X值，终止过程
    End If
    For J = I + 1 To N                  '将X后的元素左移
        Data(J - 1) = Data(J)
    Next J
    N = N - 1                           '数据个数减1
    For I = 1 To N
        Print Data(I);
    Next I
End Sub