怎样返回一个数组呢

surfs 2004-04-08 09:31:31

怎样返回一个数组呢
Public Function 函数名() As String()
dim aa() as string()
函数名=aa()
end function
不知是否正确？？？？

...全文

94 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

liuyanghe111 2004-04-12

打赏
举报

Private Sub Command1_Click()
Dim arr() As Integer
Dim i As Long

ReDim arr(0)

For i = 1 To 100
addnumber arr
Next i
End Sub

Private Function addnumber(arr() As Integer) As Integer()
Dim lSum As Long

lSum = UBound(arr) + 1

ReDim arr(lSum)
arr(lSum) = lSum

addnumber = arr
End Function

liuyanghe111 2004-04-12

打赏
举报

以数组名作为函数的参数，传入其首地址即可

songq 2004-04-12

打赏
举报

这样写就行啊：
Public Function 函数名() As String()
dim aa() as string '你多了括号
函数名=aa '你多了括号
end function

superxiumu 2004-04-09

打赏
举报

mark

daisy8675 2004-04-09

打赏
举报

Dim mResult() As String

Public Function CheckCallNo(PhoneNo As String) As String

mResult = Split(CheckCallNo(txtPhoneNo.Text), "｜")

就這樣返回呀

fishmans 2004-04-09

打赏
举报

用参数应该可行
我一般是在外部定义一个全局数组，所有操作在函数里完成就能直接取值了
用完再删除

leolan 2004-04-09

打赏
举报

Public Function 函数名() As Variant
dim aa() as string()
函数名=aa()
end function

或者通過Byref傳入一個數組,在Function裡來改變數組的值

songq 2004-04-09

打赏
举报

可以返回。

northwolves 2004-04-08

打赏
举报

Private Sub Command1_Click()
MsgBox Join(arrayx(30), vbCrLf)
End Sub
Function arrayx(ByVal n As Long)
Dim a() As String, i As Long
ReDim a(n)
For i = 0 To n
a(i) = i & "^2=" & i ^ 2
Next
arrayx = a
Erase a
End Function

surfs 2004-04-08