我有一个数组dim a(4) as string
有一个数组dim b() as string
有一个值dim str as string
函数是bfun(参数是数组)
我想让这个函数接受的参数是数组a后跟着str的值组成的一个新函数
函数返回的数组赋值给数组b
用数组作为函数的参数,只能是传址方式,而传址方式的参数,就已经是把结果传递给调用了。
由于是传址方式,所以无所谓使用函数还是过程。
比如:使用过程
Option Explicit
Private Sub Command1_Click()
Dim a(4) As String
Dim b() As String
Dim i As Integer
For i = 1 To 4
a(i) = i
Next i
Call bfun(a, b)
For i = 1 To 4
Print b(i)
Next i
End Sub
'自定义过程
Private Sub bfun(a() As String, b() As String)
Dim i As Integer
Dim n As Integer
n = UBound(a)
ReDim b(n) As String
For i = 1 To n
b(i) = a(i)
Next i
End Sub
由于是传址方式,所以无所谓使用函数还是过程。
比如:使用过程
Option Explicit
Private Sub Command1_Click()
Dim a(4) As String
Dim b() As String
Dim i As Integer
For i = 1 To 4
a(i) = i
Next i
Call bfun(a, b)
For i = 1 To 4
Print b(i)
Next i
End Sub
'自定义过程
Private Sub bfun(a() As String, b() As String)
Dim i As Integer
Dim n As Integer
n = UBound(a)
ReDim b(n) As String
For i = 1 To n
b(i) = a(i)
Next i
End Sub
温馨提示:答案为网友推荐,仅供参考