Question

怎么在VB 中实现 函数名 用变量来表示

Answer 1

对于自定义函数/方法名需要放在类模块中，比如新建一个类模块 Class1，其中有一个函数/方法 Add 用于计算两个数相加并返回结果：

Public Function Add(ByVal Num1 As Long, ByVal Num2 As Long) As Long
    Add = Num1 + Num2
End Function

再添加一个窗体 Form1，添加如下代码：

Private Sub Form_Load()
    Dim clsMy As New Class1
    Dim strMethod As String
    
    strMethod = "Add"
    MsgBox CallByName(clsMy, strMethod, VbMethod, 1, 2), vbInformation, "1+2=?"
End Sub

F5 运行窗体后显示：

Answer 2

VB本身不支持这种方式，你可以引用 Microsoft Script Control，代码如下：
Dim scr As New ScriptControl
scr.Language = "vbscript"
scr.AddObject "Form1", Form1
scr.ExecuteStatement "Form1.GetNumber"
'GetNumber()是自定义过程