VB设计计算器.docVIP

Option Explicit Public Function Fun_YunSuan(str As String) As Double Dim str1 As String, str2 As String, ch1 As String, ch2 As String Dim str_len As Integer, i As Integer, j As Integer, kuohao As Integer Dim str1_len As Integer Dim m As Integer, n As Integer Dim data(20) As Double, flag(20) As String, Index As Integer Dim d As Integer str = str + str_len = Len(str) Index = 0 j = 1 For i = 1 To str_len 获取操作数 ch1 = Mid(str, i, 1) If ch1 = + Or ch1 = - Or ch1 = * Or ch1 = / Then If j i Then 确保是负数时 仍然成立 flag(Index) = ch1 data(Index) = Val(Mid(str, j, i - j)) j = i + 1 Index = Index + 1 End If ElseIf ch1 = ( Then kuohao = 1 For m = i + 1 To str_len ch2 = Mid(str, m, 1) If ch2 = ( Then kuohao = kuohao + 1 ElseIf ch2 = ) Then kuohao = kuohao - 1 End If If kuohao = 0 Then str1_len = m - i - 1 Exit For End If Next m str1 = Mid(str, i + 1, str1_len) data(Index) = Fun_YunSuan(str1) i = m + 1 flag(Index) = Mid(str, i, 1) j = i + 1 Index = Index + 1 End If Next i For i = 0 To Index - 1 If (flag(i - d) = * Or flag(i - d) = /) Then If (flag(i - d) = *) Then data(i - d) = data(i - d) * data(i - d + 1) Else If data(i - d + 1) = 0 Then MsgBox (除数不能为‘0’！) Exit Function Else