Question

vb或按键精灵： 如何在不使用判断的情况下通过变量指定执行某个子程序（sub）或函数（functi

vb或按键精灵：
如何在不使用判断的情况下通过变量指定执行某个子程序（sub）或函数（function）。
例如：
变量=洗衣服
call 洗衣服
执行
sub 洗衣服
end sub
…
sub 洗碗
end sub
…
sub 洗地
end sub

下次我改变变量为洗碗，又可以允许sub 洗碗。
用goto或call想了很久，后面不能跟变量名。

Answer 1

在按键精灵中，可以这样：

变量="洗衣服"
Execute 变量

在VBScript、VBS中也可以这样，因为按键精灵中使用的脚本其实就是VBScript

但在VB6、VBA、VB.NET中就不能这样。可以考虑这样变通：

变量="洗衣服"
Call 子程序(变量)

Sub 子程序(参数)
Select Case 参数
Case "洗衣服"
   '把原来子程序“洗衣服”中的代码放到这里
Case "洗碗"
   '把原来子程序“洗碗”中的代码放到这里
Case "洗地"
   '把原来子程序“洗地”中的代码放到这里
End Select
End Sub

追问

我的子程序太多，不考虑select case，可否详细点说说execute是怎么实现的

追答

只有脚本类的VB语言才能这样的。其实就是把你原来的 call 换成 execute 就行了

追问

　　你好，帮人帮到底，这段代码按你的提点，却不成功，是否哪里写错了

　　Sub a

　　TracePrint "a"

　　End Sub

　　Sub b

　　TracePrint "a"

　　End Sub

　　Sub c

　　TracePrint "c"

　　End Sub

　　变量 = "c"

　　execute 变量

　　

追答

按键精灵我好就没用过了，而且现在电脑上也没装按键精灵。你试试改成这样：
Execute "Call " & 变量

Answer 2

//变量=0 洗衣服，变量=1 洗碗，变量=2 洗地，

变量 = 0

Select Case 变量
Case 0
Call 洗衣服()
Case 1
Call 洗碗()
Case 2
Call 洗地()
End Select

Function 洗衣服()
TracePrint "洗衣服"
End Function
Function 洗碗()
TracePrint "洗碗"
End Function
Function 洗地()
TracePrint "洗地"
End Function

追问

不要一个个判断，因我的子程序有50个