用VB做计算器出问题，请大大指教。

来源：百度知道 编辑：UC知道 时间：2024/05/29 16:55:50
Option Explicit
Private strCaculateType As String
Private dblNum1 As Double
Private dblNum2 As Double
Private blnFlag As Boolean
Private Sub Command1_Click()
txtScreen = ""
strCaculateType = ""
blnFlag = False
End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command10_Click()
strCaculateType = "-"
dblNum1 = Val(txtScreen)
End Sub

Private Sub Command11_Click()
If strCaculateType <> "" And blnFlag = False Then
txtScreen = "7"
blnFlag = True
ElseIf strCaculateType = "" And blnFlag = False Then
txtScreen = txtScreen + "7"
ElseIf strCaculateType <> "" And blnFlag = True Then
txtScreen = txtScreen + "7"
End If
End Sub

Private Sub Command12_Click()

请“大大”指教？～呵呵 差辈儿了吧～

Private Sub Command19_Click()
strCaculateType = "/"
dblNum1 = Val(txtScreen)
End Sub

Private Sub Command3_Click()
If strCaculateType <> "" And blnFlag = False Then
txtScreen = "1"
blnFlag = True
ElseIf strCaculateType = "" And blnFlag = False Then
txtScreen = txtScreen + "1"
ElseIf strCaculateType <> "" And blnFlag = True Then
txtScreen = txtScreen + "1"
End If
End Sub

Private Sub Command4_Click()
If strCaculateType <> "" And blnFlag = False Then
txtScreen = "2"
blnFlag = True
ElseIf strCaculateType = "" And blnFlag = False Then
txtScreen = txtScreen + "2"
ElseIf strCaculateType <> "" And blnFlag = True Then