Question

VB中布尔表达式，与字符表达式的转换

想用VB 做一个小应用:用Inputbox()函数接受一个表达式（比如：25>12）然后程序对这个布尔表达式进行判断，并输出判断结果。可是不知道用什么才能实现，
开始时，我使用以下代码：

Private Sub Form_Load()
Dim aStr As String, aExp As Boolean
Form1.Cls
Form1.AutoRedraw = True
aStr = InputBox("请输入一个表达式:")
aExp = Val(aStr)
If (aExp) Then
Print aStr, ":", "True"
Else
Print aStr, ":", "False"
End If

End Sub
可是判断的结果不对，求帮助！

Answer 1

Private Sub Form_Load()
Dim aStr As String, aExp As Boolean
Form1.Cls
Form1.AutoRedraw = True
aStr = InputBox("请输入一个表达式:")

Set ms = CreateObject("MSScriptControl.ScriptControl")
ms.Language = "vbscript"
aExp= ms.Eval(aStr)

If (aExp) Then
Print aStr, ":", "True"
Else
Print aStr, ":", "False"
End If

End Sub

Answer 2

用Application.Evaluate()函数，将表达式放里面就行了，比如：
--------------
Public Sub dff()
Dim a$
a = InputBox("请输入表达式：")
MsgBox Application.Evaluate(a)
End Sub