有表达式的分数计算器么？如5/7+3/8-2/9=509/504

Question

因为要给女儿检查作业。。我实在太懒了，想输个公式就出结果。。哈。
要能输入一个表达式并将结果表示为分数，可以约分！！！
没发现好用的。
....

Answer 1

看此贴http://topic.csdn.net/t/20050517/18/4014381.html

Answer 2

好像EbExecuteLine在编译后不能正确运行，还是用ScriptControl吧，比如：
Sub Main()
    Dim strExpress As String
    Dim objScriptEngine As Object    Set objScriptEngine = CreateObject("MSScriptControl.ScriptControl")
    objScriptEngine.Language = "VBScript"
    
    strExpress = "1+2+8*1.5"
    MsgBox objScriptEngine.Eval(strExpress)
    
    Set objScriptEngine = Nothing
End Sub