怎样让一个函数返回字符串数组类型？在线等

mysisc 2004-10-23 10:07:09

Public Function myfunction() As String --原来是返回字符串,现要改成数组
myfuncion = msDataBuf原来msDataBuf是字符串，现在msDataBuf是字符串数组
End Function

...全文

631 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

lovebeethoven 2004-10-23

打赏
举报

一楼的我试了，可以，学习。。。

行云边 2004-10-23

打赏
举报

这样定义 myfunction()
1。Public Function myfunction()
2。Public Function myfunction() As Variant

northwolves 2004-10-23

打赏
举报

Private Sub Command1_Click()
MsgBox Join(myfunction(10), vbCrLf)
End Sub
Function myfunction(ByVal N As Integer)
Dim X() As String, I As Integer
ReDim X(1 To N)
For I = 1 To N
X(I) = I & "^2=" & I ^ 2
Next
myfunction = X
Erase X
End Function

lovebeethoven 2004-10-23

打赏
举报

请问楼上的可以返回多个元素的字符串数组吗？
楼主可以试一下，把字符串数组作为参数，声明一个外部字符串数组，然后作为参数就可以了
private sub myfunction(mystring()
mystring(0)=...
mystring(1)=...
end sub

leolan 2004-10-23

打赏
举报

Option Explicit

Private msDataBuf(1) As String

Private Function myfunction()
myfunction = msDataBuf
End Function

Private Sub Form_Load()
Dim arrTemp() As String

msDataBuf(0) = "AAA"
msDataBuf(1) = "BBB"

arrTemp = myfunction
MsgBox arrTemp(0)
MsgBox arrTemp(1)

End Sub

jam021 2004-10-23