Question

VB函数的调用问题

我有一批字符串要处理，所以我想先写一个函数，其作用是利用“/"将字符串提取出来，并存到一个数组中，但我想在别的地方调用时就会碰到困难，问问大家是应该怎么样，例子如下：
Public Function P_Slash(SUPP_TAG)
Dim P_S() As String
SUPP_TAG = Replace(SUPP_TAG, "-", "/")
SUPP_TAG = "/" & SUPP_TAG
SUPP_TAG = Replace(SUPP_TAG, " ", "")
P_S = Split(SUPP_TAG, "/")

End Function

大家看上面的P_S这个数组，当运行程序后，P_S这个数组里应该存有一些数值，
我想在别的地方调用。
比如说我在其它地方运行
P_Slash("A1-1-500")
当我想输出P_S的数值时怎么没有响应？

Answer 1

Public Function P_Slash(byval SUPP_TAG as string) as string ()
Dim P_S() As String
SUPP_TAG = Replace(SUPP_TAG, "-", "/")
SUPP_TAG = "/" & SUPP_TAG
SUPP_TAG = Replace(SUPP_TAG, " ", "")
P_S = Split(SUPP_TAG, "/")
P_Slash=P_S
End Function

调用:

dim s() as string

s=P_Slash("A1-1-500")

Answer 2

因为你这个变量（数组）是在过程（函数）里声明的，它的生命仅仅在该过程执行的时候存活。
如果，你希望在本窗体的其它地方使用它，把它声明为模块级变量，即在窗体代码窗口的最上面那行，开始声明模块级变量。

Answer 3

把
Dim P_S() As String

改成Private P_S() As String放在Form1的最上面试试
其实你这个不叫函数返回，P_Slash永远返回空值，定义个SUB一样实现这时候