［二级VB试题天天练］VB考试试题17

文章作者 100test 发表时间 2007:03:10 18:00:38
来源 100Test.Com百考试题网

22.过程函数练习（3）
再来看看用数组作为参数的用法——
Private Sub Command1_Click()
Dim intA(1 To 4) As Integer
Dim i As Integer
For i = 1 To 4
intA(i) = i
Next
Call Proc1(intA())
For i = 1 To 4
Print intA(i)
Next
End Sub
Private Sub Proc1(B() As Integer)
Dim i As Integer
For i = 1 To 4
B(i) = 2 * i
Next
End Sub