请指导一下，一个自定义函数！

Question

判断一个字符，根据不同的值返回不同的中文
我现在做的
Public Function de_type(ByVal a As String, ByVal r As String) As Long
Select Case a
  Case "d"
  r = "离散型"
  Case "i"
  r = "整型"
  Case "r"
  r = "实型"
  Case "m"
  r = "字符型"
 End Select
 End Function
调用
c = de_type(Left(item(i), 1), i_type(i))
i_type 返回的都是空的这个问题如何解决啊本来我实打算做成
i_type(i)=de_type(left(item(i),1)) 的，但不知如何返回值。

Answer 1

ByVal r As String 改为byref r as string

Answer 2

Public Function de_type(ByVal a As String) As String
Select Case a
 Case "d"
  de_type = "离散型"
  Case "i"
  de_type = "整型"
  Case "r"
  de_type = "实型"
  Case "m"
  de_type = "字符型"
 End Select
End Function

Answer 3

//根据不同的值返回不同的中文
以上是函数本身直接返回中文字符串,ByVal r As String 改为byref r as string
也可以,在函数中会修改参数的值,在第二个参数中得到中文字符串

Answer 4

ByVal按值传递参数，实参值复制到函数中的形参
ByRef按引用传递参数，函数中直接操作实参