许多人问是否有一种方法可以写一个数学表达式，在文本框中以字符串形式编写，因此他们可以执行以下操作：

sub something_click()textbox2.text=eval(textbox1.text)
end sub

好吧，这当然是可行的，并且可以通过管理某些字符来完成。 这样，您可以根据需要将其复杂化。 我通常的做法是通过5个简单的步骤：

1.创建2个字符串数组，将数字保存在一个中，将运算符保存在另一个中：

2.将第一个数组转换为双精度数组（因此您可以使用Option Strict）

3.评估能力（我不评估根，因为您可以使用a ^ 0.5代替sqrt等）

4.评估产品和部门。

5.评估总和和差额。

完成此小功能后，我想使用递归性制作另一个函数来处理括号，这在处理根时非常有用，因为您可以编写a ^（1/5）而不是第5个根。

让我们将第一个函数称为“ Basics”，然后将括号处理程序称为“ Eval”，它们可能如下所示：

Public Function Basics(ByVal Str1 As String) As DoubleDim i, j, k As IntegerDim Boo1 As Boolean = FalseDim mStr1(1), mStr2(0), mStr3(0), mStr4(0) As StringDim mDou1(), mDou2(), mDou3() As Double If Str1 = "" Then Return 0 : Exit Function'----------------------------------------------------------'' Save in mStr1 the numbers. Save in mStr2 the operators.  ''----------------------------------------------------------'j = 1For i = 1 To Str1.Lengthk = Asc(Mid(Str1, i, 1))If (k >= Asc("0") And k <= Asc("9")) Or k = Asc(".") Or (k = Asc("-") And Boo1 = False) ThenmStr1(j) = mStr1(j) & Chr(k): Boo1 = TrueElseIf k = 69 ThenmStr1(j) = mStr1(j) & Chr(69) & Mid(Str1, i + 1, 1): i = i + 1ElseIf Boo1 = True ThenReDim Preserve mStr2(j)mStr2(j) = Chr(k): j = j + 1ReDim Preserve mStr1(j)End IfBoo1 = FalseEnd IfNext'--------------------------------------'' Save in mDou1 the numbers as doubles ''--------------------------------------'ReDim mDou1(UBound(mStr1))For i = 1 To UBound(mStr1): mDou1(i) = CDbl(mStr1(i)): Next'------------------------'' First priority: powers ''------------------------'j = 1: ReDim mDou2(1): mDou2(1) = mDou1(1)For i = 1 To UBound(mStr2)If mStr2(i) = "^" Then: mDou2(j) = mDou2(j) ^ mDou1(i + 1)ElseReDim Preserve mStr3(j): mStr3(j) = mStr2(i)j = j + 1: ReDim Preserve mDou2(j)mDou2(j) = mDou1(i + 1)End IfNextIf UBound(mStr3) = 0 Then Return mDou2(1) : Exit Function'-----------------------------------------'' Second priority: products and quotients ''-----------------------------------------'j = 1: ReDim mDou3(1): mDou3(1) = mDou2(1)For i = 1 To UBound(mStr3)If mStr3(i) = "*" Then: mDou3(j) = mDou3(j) * mDou2(i + 1)ElseIf mStr3(i) = "/" Then: mDou3(j) = mDou3(j) / mDou2(i + 1)ElseReDim Preserve mStr4(j): mStr4(j) = mStr3(i)j = j + 1: ReDim Preserve mDou3(j)mDou3(j) = mDou2(i + 1)End IfNextIf UBound(mStr4) = 0 Then Return mDou3(1) : Exit Function'---------------------------------------'' Third priority: sums and differences. ''---------------------------------------'Basics = mDou3(1)For i = 1 To UBound(mStr4)If mStr4(i) = "+" Then: Basics = Basics + mDou3(i + 1)ElseIf mStr4(i) = "-" Then: Basics = Basics - mDou3(i + 1): End IfNext
End Function

对于括号处理程序：

Public Function Eval(ByVal Str1 As String) As DoubleDim i, j, k(2), c As IntegerDim Str2 As StringIf Str1 = "" Then Return 0 : Exit Function'------------------------------'' Find the outern parenthesis. ''------------------------------'j = 0For i = 1 To Str1.LengthIf Mid(Str1, i, 1) = "(" ThenIf j = 0 Then k(1) = ij = j + 1ElseIf Mid(Str1, i, 1) = ")" ThenIf j = 1 Then: k(2) = i: Exit For: End Ifj = j - 1End IfNext'----------------------------------------------------------------------'' Using recursivity, it'll find the inner ones, and add '*' when needed''----------------------------------------------------------------------'If j = 1 ThenIf k(1) > 1 Then c = Asc(Mid(Str1, k(1) - 1, 1))Str2 = ""If (c >= Asc("0") And c <= Asc("9")) Or c = Asc(".") Then Str2 = "*"If c = Asc("-") Then Str2 = "1*"Str1 = Eval(Mid(Str1, 1, k(1) - 1) & Str2 & Eval(Mid(Str1, k(1) + 1, k(2) - k(1) - 1)).tostring & Mid(Str1, k(2) + 1).tostring).tostringEnd IfReturn basics(Str1)
End Function

这是VB 2005 Express版本的功能，语法可能会在其他版本的VB中更改，因此您可能必须更改某些“返回”，“ ToString”和“ .Length”，以及使用以下方法声明数组或处理行的方式'：'。

您还应注意，当括号之前需要时，它将添加一个“ *”，但之后需要时将不会添加。 所以2（8）= 16但（2）8将是一个错误。

这是一个非常简单的功能，但是我确信您会发现它很有用。

卡德

From: https://bytes.com/topic/visual-basic/insights/759263-evaluate-mathematical-expressions-vb