获得macro1中的数组
Sub xx()Dim s() As Integermacro1 5, sMsgBox s(0) & vbCrLf & s(1)End Sub
Sub macro1(ByVal x As Integer, ByRef sa() As Integer)ReDim sa(1)
x = 1
sa(0) = x + xsa(1) = x * xEnd Sub