Dim a As String
Dim i, j As Double
Dim n As Integer


Private Sub Command1_Click(Index As Integer)
If n <> 0 Then
Right a, 1
End If
If Text1.Text = "0" Then
Text1.Text = ""
End If
Select Case (Index)
Case 0
Text1.Text = Text1.Text + "0"
Case 1
Text1.Text = Text1.Text + "1"
Case 2
Text1.Text = Text1.Text + "2"
Case 3
Text1.Text = Text1.Text + "3"
Case 4
Text1.Text = Text1.Text + "4"
Case 5
Text1.Text = Text1.Text + "5"
Case 6
Text1.Text = Text1.Text + "6"
Case 7
Text1.Text = Text1.Text + "7"
Case 8
Text1.Text = Text1.Text + "8"
Case 9
Text1.Text = Text1.Text + "9"
Case 10
If Text1.Text = "" Then
Text1.Text = "0"
End If
Text1.Text = Text1.Text + "."
End Select
a = Text1.Text
End Sub

Private Sub Command2_Click(Index As Integer)
Select Case (Index)
Case 0
i = Val(a)
Text1.Text = Text1.Text + "+"
n = 1
Case 1
i = Val(a)
Text1.Text = Text1.Text + "-"
n = 2
Case 2
i = Val(a)
Text1.Text = Text1.Text + "*"
n = 3
Case 3
i = Val(a)
Text1.Text = Text1.Text + "/"
n = 4
End Select
End Sub

Private Sub Command3_Click()
j = Val(a)
Select Case (n)
Case 1
Text1.Text = i + j
a = Text1.Text
Case 2
Text1.Text = i - j
a = Text1.Text
Case 3
Text1.Text = i * j
a = Text1.Text
Case 4
Text1.Text = i / j
a = Text1.Text
End Select
End Sub

Private Sub Command4_Click()
Text1.Text = "0"
End Sub

Private Sub Command5_Click()
Text1.Text = 0
a = 0
n = 0

End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click(Index As Integer)
Select Case (Index)
Case 0
Load 計算器
計算器.Show
Unload Me
Case 1
End Select
End Sub

Private Sub Form_Load()

End Sub


======================================================================


If n = 1 Or n = 2 Or n = 3 Or n = 4 Then
Right temp, 1
End If
If n = 6 Or n = 7 Then
Right temp, 1
End If

======================================================================
'處理優(yōu)先級問題
If s1_1 > s2_2 Then
If n = 3 Then
a = a * b
ElseIf n = 4 Then
If b = 0 Then
MsgBox "錯誤??！除數(shù)不能為0??！請重新輸入除數(shù)！！", , "錯誤警告"
Exit Sub
End If
a = a / b
End If
b = c
s1 = s2

ElseIf s1_1 < s2_2 Then
If n = 3 Then
b = b * c
ElseIf n = 4 Then
If b = 0 Then
MsgBox "錯誤??！除數(shù)不能為0?。≌堉匦螺斎氤龜?shù)?。?quot;, , "錯誤警告"
Exit Sub
End If
b = b / c
End If
s2 = s3

ElseIf s1_1 = s1_2 Then
Select Case (s1)
Case "+"
a = a + b
Case "-"
a = a - b
Case "*"
a = a * b
Case "/"
If b = 0 Then
MsgBox "錯誤！！除數(shù)不能為0！！請重新輸入除數(shù)?。?quot;, , "錯誤警告"
Exit Sub
End If
a = a / b
End Select
b = c
s1 = s2
s2 = s3

End If
'未編輯好待續(xù)


======================================================================

'修改中，處理符號問題
If count1 = 1 Then
s1 = Right(Text1.Text, 1)
If n = 1 Or n = 2 Then
s1_1 = 1
ElseIf n = 3 Or n = 4 Then
s1_1 = 2
End If
ElseIf count1 = 2 Then
s1 = Right(Text1.Text, 1)
If n = 1 Or n = 2 Then
s1_2 = 1
ElseIf n = 3 Or n = 4 Then
s1_2 = 2
End If
End If

If count3 = 3 Then
s3 = Right(Text1.Text, 1)

'處理優(yōu)先級問題
If s1_1 > s2_2 Then
If n = 3 Then
a = a * b
ElseIf n = 4 Then
If b = 0 Then
MsgBox "錯誤??！除數(shù)不能為0??！請重新輸入除數(shù)??！", , "錯誤警告"
Exit Sub
End If
a = a / b
End If
b = c
s1 = s2

ElseIf s1_1 < s2_2 Then
If n = 3 Then
b = b * c
ElseIf n = 4 Then
If b = 0 Then
MsgBox "錯誤?。〕龜?shù)不能為0！！請重新輸入除數(shù)??！", , "錯誤警告"
Exit Sub
End If
b = b / c
End If
s2 = s3

ElseIf s1_1 = s1_2 Then
Select Case (s1)
Case "+"
a = a + b
Case "-"
a = a - b
Case "*"
a = a * b
Case "/"
If b = 0 Then
MsgBox "錯誤！！除數(shù)不能為0??！請重新輸入除數(shù)??！", , "錯誤警告"
Exit Sub
End If
a = a / b
End Select
b = c
s1 = s2
s2 = s3

End If
'未編輯好待續(xù)


End If

======================================================================

c = Val(temp)
Select Case (s1)
Case "+"
a = a + b
Case "-"
a = a - b
Case "*"
a = a * b
Case "/"
If b = 0 Then
MsgBox "錯誤！！除數(shù)不能為0?。≌堉匦螺斎氤龜?shù)！！", , "錯誤警告"
Exit Sub
End If
a = a / b
End Select
Text1.Text = a
temp = ""

======================================================================
Select Case (s1_1 - s2_2)
Case -1
Select Case (s2)
Case "*"
b = b * c
Case "/"
If b = 0 Then
MsgBox "錯誤??！除數(shù)不能為0??！請重新輸入除數(shù)！！", , "錯誤警告"
Exit Sub
End If
b = b / c
End Select
s2 = s3
s2_2 = s3_3
b = c
temp2 = temp3

Case 1
Select Case (s1)
Case "+"
a = a + b
Case "-"
a = a - b
End Select
s1 = s2
s2 = s3
s1_1 = s2_2
s2_2 = s3_3
temp1 = temp2
temp2 = temp3
b = c

Case 0
Select Case (s1)
Case "+"
a = a + b
Case "-"
a = a - b
Case "*"
a = a * b
Case "/"
If b = 0 Then
MsgBox "錯誤！！除數(shù)不能為0??！請重新輸入除數(shù)！！", , "錯誤警告"
Exit Sub
End If
a = a / b
End Select
b = c
s1 = s2
s2 = s3
s1_1 = s2_2
s2_2 = s3_3

End Select

======================================================================

Sub counts()
If s1_1 > s2_2 Then
If n = 3 Then
a = a * b
ElseIf n = 4 Then
If b = 0 Then
MsgBox "錯誤??！除數(shù)不能為0??！請重新輸入除數(shù)??！", , "錯誤警告"
Exit Sub
End If
a = a / b
End If
b = c
s1 = s2

ElseIf s1_1 < s2_2 Then
If n = 3 Then
b = b * c
ElseIf n = 4 Then
If b = 0 Then
MsgBox "錯誤！！除數(shù)不能為0?。≌堉匦螺斎氤龜?shù)??！", , "錯誤警告"
Exit Sub
End If
b = b / c
End If
s2 = s3

ElseIf s1_1 = s1_2 Then
Select Case (s1)
Case "+"
a = a + b
Case "-"
a = a - b
Case "*"
a = a * b
Case "/"
If b = 0 Then
MsgBox "錯誤！！除數(shù)不能為0！！請重新輸入除數(shù)！！", , "錯誤警告"
Exit Sub
End If
a = a / b
End Select
b = c
s1 = s2
s2 = s3

End If
'未編輯好待續(xù)

End Sub

==============================================================================