数组各元素积.frm

Visual Basic课程举例1 有很好的例题

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   840
      TabIndex        =   0
      Top             =   1680
      Width           =   2175
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Function tim(a() As Integer)
    Dim t#, i%
    t = 1
    For i = LBound(a) To UBound(a) '求数组的下界和上界
         t = t * a(i)
    Next i
    tim = t
End Function

Private Sub Command1_Click()
    Dim a%(1 To 5), b%(2 To 10), i%, t1#, t2#
    For i = 1 To 5   '简化 a数组的数据输入
        a(i) = i
        Print a(i); "  ";
    Next i
    Print
    For i = 2 To 10  '简化b数组的数据输入
        b(i) = i
        Print b(i); "  ";
    Next i
    Print
    t1 = tim(a())  '调用函数tim
    t2 = tim(b())  '调用函数tim
    Print "t1="; t1; "t2="; t2
End Sub