如题所述
第1个回答 推荐于2017-09-29
Option Explicit
Type test
a(10) As String
End Type
Sub test()
Dim c As test
Dim i As Integer
For i = 0 To 10
c.a(i) = i ^ 2
Next
Call F1(c)
End Sub
Function F1(b As test)
Dim i As Integer
For i = 0 To UBound(b.a)
Debug.Print b.a(i)
Next。
Type test
a(10) As String
End Type
Sub test()
Dim c As test
Dim i As Integer
For i = 0 To 10
c.a(i) = i ^ 2
Next
Call F1(c)
End Sub
Function F1(b As test)
Dim i As Integer
For i = 0 To UBound(b.a)
Debug.Print b.a(i)
Next。
第2个回答 推荐于2017-10-10
Option Explicit
Type test
a(10) As String
End Type
Sub test()
Dim c As test
Dim i As Integer
For i = 0 To 10
c.a(i) = i ^ 2
Next
Call F1(c)
End Sub
Function F1(b As test)
Dim i As Integer
For i = 0 To UBound(b.a)
Debug.Print b.a(i)
Next
End Function
这样算不算本回答被提问者和网友采纳
Type test
a(10) As String
End Type
Sub test()
Dim c As test
Dim i As Integer
For i = 0 To 10
c.a(i) = i ^ 2
Next
Call F1(c)
End Sub
Function F1(b As test)
Dim i As Integer
For i = 0 To UBound(b.a)
Debug.Print b.a(i)
Next
End Function
这样算不算本回答被提问者和网友采纳