Question

在VB6.0中，如何把文本公式转换为数学公式

有两个文本框，当我在text1文本框中输入（2+3）/5 时，希望通过计算按钮使得第二个文本框显示1，语句如下
text1=“（2+3）/5”
A=text1
text2=A
我希望得到的结果是
text2=1
结果是
text2="（2+3）/5"
在第二个文本框显示为
（2+3）/5
希望大侠指点
把图片中的*改为/，其实是一个意思

Answer 1

VB6本身没有这样的功能，可通过调用VBScript（或JavaScript）来间接实现：

Function CalcStr(StrNum As String) As Double
Dim MSSC As Object
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
CalcStr = MSSC.Eval(StrNum)
Set MSSC = Nothing
End Function

Private Sub Command1_Click()  '假定“计算”按钮为Command1
Text2.Text = CalcStr(Text1.Text)
End Sub

请注意，公式内容必须完全符合VB对表达式的要求，否则会出错

Answer 2

Private Function CallVal(ByVal inputStr As String) As String '使用ScriptControl计算的函数
Dim SC
On Error GoTo er
Set SC = CreateObject("ScriptControl")
SC.Language = "VBScript"
CallVal = SC.Eval(inputStr)
Exit Function
er:
CallVal = "错误"
End Function
Private Sub Command1_Click() '计算
Text2.Text = CallVal(Text1.Text)
End Sub