VB variant参数传递的有关问题

VB variant参数传递的问题

VB code

Public Sub PrintArray(ArrayName() As Variant, Optional Object As Object, Optional Tabs As Long)    Dim i As Integer, j As Integer    For i = LBound(ArrayName, 1) To UBound(ArrayName, 1)        For j = LBound(ArrayName, 2) To UBound(ArrayName, 2)            Object.Print Trim(ArrayName(i, j)); Space(Tabs);        Next        Object.Print    NextEnd SubSub Main()Form1.ShowDim a(1,1) As Integera(0,0)=30a(1,0)=40a(0,1)=50a(1,1)=60PrintArray a,Form1,3End Sub

编译时提示 类型不匹配 :缺少数组或用户定义类型
应该是第一行ArrayName那里Variant的类型出了错
为什么Numeric (Integer)类型的数组不能传递给Variant类型的数组？请各位帮忙解决

[解决办法]
Variant 可以是任何其他类型，所以本身就可以是数组，不需要再宣布为数组。
把 ArrayName 后面的括号去掉，或者把 后面的 Variant 改为 integer。


[解决办法]
ArrayName 这样传进去看看

查看更多 下一篇