frmarray.frm

来自「Visual Basic 6 大学教程的代码」· FRM 代码 · 共 73 行

VERSION 5.00
Begin VB.Form frmArray 
   Caption         =   "Fig. 7.19: Demonstrating Function Array"
   ClientHeight    =   1650
   ClientLeft      =   2505
   ClientTop       =   2460
   ClientWidth     =   4680
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   9.75
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   1650
   ScaleWidth      =   4680
   Begin VB.CommandButton cmdPrint 
      Caption         =   "Print"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   1080
      Width           =   1215
   End
End
Attribute VB_Name = "frmArray"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 7.19
' Demonstrating function Array.
Option Explicit
Option Base 1

Private Sub cmdPrint_Click()
   Dim v As Variant, x As Integer
   
   v = Array(7, 5, 6, 9, 3, 0)     ' Returns Variant array
   Print "Variant array values are: ";
   For x = LBound(v) To UBound(v)
      Print Format$(v(x), "@@@");
   Next x
   
   Print
   v = Array("hello", "bye", "hi")  ' Return Variant array
   Print "Variant array values are: ";
   For x = LBound(v) To UBound(v)
      Print v(x) & Space$(2);
   Next x
      
   Print
   v = Array(1.1, 2.2, 3.3, 4.4)     ' Return Variant array
   Print "Variant array values are: ";
   For x = LBound(v) To UBound(v)
      Print v(x) & Space$(2);
   Next x
   
   cmdPrint.Enabled = False
End Sub