vb字符串如何化成数值

来源：百度知道 编辑：UC知道 时间：2024/05/27 16:02:35
我要把含有运算符的字符串化成数值，例如字符串“7 * 7 + 1”，要从这个字符串求出数值“50”。哪位高手给个思路，或者直接给源码。

很简单。

下面的例子中，text1是输入算式（也就是你的“7 * 7 + 1”），text2是输出结果的。command1是用来确定你在text1的输入已经结束的按钮（也就是开始计算）。

Public X As Boolean

Private Sub Command1_Click()
X = True
Text2 = RESULT(Text1)
If Not X Then Text2 = "你的算式有问题，请注意查对！"
Command1.Default = False
Command2.Default = True
End Sub

Function RESULT(ByVal X1 As String) As Double
Dim OBJ As Object
On Error GoTo cuowufankui
Set OBJ = CreateObject("MSScriptControl.ScriptControl")
OBJ.Language = "vbscript"
RESULT = OBJ.Eval(X1)
Set OBJ = Nothing
Exit Function

cuowufankui:
X = False
End Function

Private Sub Command2_Click()
Text1 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "计算"
Command1.Move 600, 1680, 1215, 495
Command2.Caption = "