7,759
社区成员
发帖
与我相关
我的任务
分享
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
Next
End Sub
Sub Main()
Form1.Show
Dim a(1,1) As Integer
a(0,0)=30
a(1,0)=40
a(0,1)=50
a(1,1)=60
PrintArray a,Form1,3
End Sub