怎么向函数传数组参数？

[zz321]

是 funtion abc(x() as integer) as integer么？

[zz321]

问题好简单？没人么？

[pctommy]

应该行，试试

[zz321]

再re一次，哎

[dyx]

function abc(ByRef x() as integer) as integer

[zz321]

怎么调用？abc(x())总出错

[zz321]

总有类型不匹配的错误

[zz321]

天怅怅、人茫茫

[YHeng]

funtion abc(Byref x() as integer) as integer

传递是实参用数组名

[zz321]

我先输入x(0)=1,x(1) =2 .......
使用 abc(x()) 调用总出错类型不匹配的错误
使用 abc(x) 更不对

[zz321]

yiyayiyayiyayi

[YHeng]

Private Sub Command1_Click()
Dim x(9) As Integer
Dim i As Integer

For i = 0 To 9
x(i) = i
Next

Call iArr(x)

End Sub


Private Function iArr(arr() As Integer) As Integer

Dim i As Integer

For i = 0 To UBound(arr)
Debug.Print arr(i)
Next

End Function

运行通过