dynamic2.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmDynamic2 
   Caption         =   "Fig. 7.17: Assigning an array to a dynamic array"
   ClientHeight    =   1605
   ClientLeft      =   2325
   ClientTop       =   2940
   ClientWidth     =   5265
   LinkTopic       =   "Form1"
   ScaleHeight     =   1605
   ScaleWidth      =   5265
   Begin VB.CommandButton cmdPrint 
      Caption         =   "Print"
      Height          =   495
      Left            =   1920
      TabIndex        =   0
      Top             =   960
      Width           =   1215
   End
End
Attribute VB_Name = "frmDynamic2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 7.17
' Returning an array from function
Option Explicit

Private Sub cmdPrint_Click()
   Dim x() As Integer    ' Dynamic array
   Dim i As Integer      ' Looping variable
   
   Call Cls              ' Clear form
   x = GetArray          ' Assign returned array
                         ' to x
   
   Print "In cmdPrint_Click array x contains:"
   
   For i = LBound(x) To UBound(x)
      Print x(i), ;
   Next i
   
End Sub

Private Function GetArray() As Integer()
   Dim y(5) As Integer     ' Fix-size array
   Dim j As Integer        ' Looping variable
   
   Print "In GetArray array y contains:"
   
   ' Generate data
   For j = LBound(y) To UBound(y)
      y(j) = Int(10 * Rnd())
      Print y(j), ;
   Next j
   
   Print
   GetArray = y            ' Return array
End Function