打印本文 打印本文  关闭窗口 关闭窗口  
[二级VB试题天天练]VB考试试题17
作者:佚名  文章来源:不详  点击数  更新时间:2008/4/18 14:49:45  文章录入:杜斌  责任编辑:杜斌

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
打印本文 打印本文  关闭窗口 关闭窗口