【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了一维数组的设定.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Begin VB.Form Form1 
       AutoRedraw      =   -1  'True
       BackColor       =   &H0000FFFF&
       BorderStyle     =   1  'Fixed Single
       Caption         =   "Hello"
       ClientHeight    =   1620
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   2415
       BeginProperty Font 
          Name            =   "宋体"
          Size            =   12
          Charset         =   136
          Weight          =   400
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   1620
       ScaleMode       =   0  'User
       ScaleWidth      =   2415
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command1 
          Caption         =   "请按我"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   9
             Charset         =   136
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   500
          Left            =   360
          TabIndex        =   0
          Top             =   800
          Width           =   1800
       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()
        Dim Box(50) As String
        Box(0) = "red"
        Box(1) = "blue"
        Print Box(0)
        Print Box(1)
    End Sub