VERSION 5.00
Begin VB.Form frmArray 
   Caption         =   "Массив"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdExit 
      Caption         =   "Выход"
      Height          =   495
      Left            =   360
      TabIndex        =   2
      Top             =   2640
      Width           =   1215
   End
   Begin VB.CommandButton cmdArray2 
      Caption         =   "Массив Array2"
      Height          =   495
      Left            =   1920
      TabIndex        =   1
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton cmdArray1 
      Caption         =   "Массив Array1"
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   1800
      Width           =   1215
   End
End
Attribute VB_Name = "frmArray"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim garray2(10 To 20) As Integer


Private Sub cmdArray1_Click()
Dim counter
Static array1(1 To 10) As String
array1(1) = "ABC"
array1(2) = "DEF"
array1(3) = "GHI"
frmArray.Cls
Print "Вот 3 элемента массива Аrray1:"
For counter = 1 To 3 Step 1
Print "Arrary1(" + Str(counter) + ")=" + (array1(counter))
Next
End Sub

Private Sub cmdArray2_Click()
Dim counter
garray2(11) = 234
garray2(12) = 567
garray2(13) = 890
frmArray.Cls
Print "Вот 3 элемента массива gАrray2:"
For counter = 11 To 13 Step 1
Print "gArrary2(" + Str(counter) + ")=" + Str(garray2(counter))
Next

End Sub

Private Sub CmdExit_Click()
End
End Sub

