递归。加减。示例。
运行结果

缺点：
①递归，对初学者不好理解和设计
②运行速度慢（几乎不能容忍）

你为什么把CreateObject放在里层？其实可以考虑放在最外层，启动时创建，结束时销毁(释放)，应该会快一点

大佬，好像你的回复全被吞了(或者过一会儿才能显示，要不私聊？)

虽然还是看不到你那边的回复(不知道到底是那边被限制了)，但我还是说一下我这边的分析
dwCount = 0
dfTA = Timer
Set objScript = CreateObject("MSScriptControl.ScriptControl")
objScript.Language = "vbscript"
Set objScript = Nothing
dfTB = Timer
Print Format(dfTB - dfTA, "0.000000 s")
你可以测试一下这段代码，然后你会大致获取你单次CreateObject并又释放内存所消耗的时间，然后你再使用一个变量统计一下你的 计算 函数被调用了多少次，然后就可以大致算出你被这一过程多消耗了多少时间。

最神奇的是，我统计了调用计算的次数后，稍作更改，并增加了一个判断：
If dwCount = 19680 Then DoEvents'19680为测试出来的需要调用计算的数量，并且此语句添加后便又能正常运行了，真是奇怪。

Private Obj As Object
Private Sub Form_Load()
Set Obj = CreateObject("MSScriptControl.ScriptControl")
Obj.Language = "vbscript"
End Sub
Private Sub Command1_Click()
计算 = Obj.eval(算式)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Obj = Nothing
End Sub
推荐这样的写法，递归或循环中反复创建同一个对象是没有必要，而且对速度有影响

今天，对 @隨風
缒夢 以及 @
余思培 两位大侠指教的代码进行了测试。汇报结果如下：
1、我原程序运行时间（在Command1_Click增加了计时）26.34766s
2、空运行创建对象、设语言属性、撤销这组语句3^9次（即19683次），耗时25.16016s
3、使用只创建设置撤销一次（且创建、设置、撤销时间在计时之外），同时取消了19000余次调用函数后，耗时0.46875s
感谢两位大侠的指导和帮助！

@璐村惂鐢ㄦ埛_0748V5Z馃惥 CreateObject("MSScriptControl.ScriptControl")实际引用的是msscript.ocx，而赋值到Object是后期绑定，赋值到ScriptControl是前期绑定
也就是说：
Private Obj As Object
Private Sub Form_Load()
Set Obj = CreateObject("MSScriptControl.ScriptControl") '由于Obj的Object类型，所创建的对象属于后期绑定，因为不知道其属性和函数
Obj.Language = "vbscript"
End Sub
而
Private Obj As ScriptControl
Private Sub Form_Load()
Set Obj = CreateObject("MSScriptControl.ScriptControl") '由于Obj的ScriptControl类型，所创建的对象属于前期绑定，需要引用msscript.ocx，已经知道其属性和函数
Obj.Language = "vbscript"
End Sub
上面的也可以改成(由于引用了msscript.ocx，直接new就行)
Private Obj As ScriptControl
Private Sub Form_Load()
Set Obj = New ScriptControl
Obj.Language = "vbscript"
End Sub
Private Obj As ScriptControl 这种前期绑定的调用的函数也比后期的要快(具体可以参考相关资料了解)
所以之前的代码改成先引用mscript.ocx(相当于引用tlb，不是部件里添加)，调用Eval效率大概能提升20%左右
还一种是直接在部件里引用mscript.ocx，应该都是知道的

最终结果，确定如下：

这是引用的情况。
在不引用的情况下声明为对象时，消耗时间大约为26秒所有（与前文的29秒相差较多，估计应该属于机器的后台运行程序数量内容造成）。

虽然在当前条件下，似乎已经可以接受
但是如果改为+，-，/，*，^五种运算，不加括号，不增加数目仍然是1~10是个顺序数，竟然运行了161s
估算做了6^9≈1千万个算式

虽然你是以此练习递归的，但我还是给你看下循环的有多快(你的机子会更快一点)

挖一下坟，补个注释