Question

在VB中如何将文本框中输入的文本转化为数学表达式

Answer 1

Private Declare Function EbExecuteLine& Lib "vba6.dll" _
(ByVal Ex1&, ByVal Uk1&, ByVal Uk2&, ByVal fC&)

Private Function ExLine(sCode$, Optional Opt1 As Boolean) As Boolean
ExLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(Opt1))
End Function

Private Sub Command1_Click()
ExLine "dim x as double"
ExLine "x = " & Text1.Text
ExLine "msgbox x"
End Sub

不知道你说的数学表达式是什么意思，难道你输的文本不是表达式？这段代码就是计算文本中表达式的值。

Answer 2

用Val(Text1.text)函数就可以