Dim a(9), b(9) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 9
a(i) = 2 * i
b(i) = i
Next i
Call pp(b, a, 9)
End Sub
Private Sub pp(b() As Integer, a() As Integer, j As Integer)
Dim i As Integer
For i = LBound(b) To j
Form1.Print b(i), a(i)
Next i
End Sub
编译后提示 “类型不匹配,缺少数组或用户定义类型”
如果形参只包含一个数组作为形参,就可以通过。
不知哪儿出错了,请各位高手帮忙指点一下,谢谢!!