VB计算器源代码.doc
Dim sum As DoubleDim flag1 As IntegerDim flag2 As IntegerPublic wen As DoublePrivate Sub Command19_Click() Command24_Click Operator = Index NewEntry = TrueEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case Index Case 0 wen = 0 Label1.Caption = "" Case 1 Text1.Text = Str(wen) Case 2 If Text1.Text = "" Then wen = 0 Label1.Caption = "" Else wen = Val(Text1.Text) Label1.Caption = "M" End If Text1.Text = "" Case 3 wen = Val(Text1.Text) + wen Label1.Caption = "M" End SelectEnd SubPrivate Sub Command12_Click()If Text1.Text <> "" Then Text1.Text = Text1.Text * -1Else MsgBox "输入不能为空！", vbOKOnly, "警告" Text1.SetFocus End IfEnd SubPrivate Sub Command16_Click()If InStr(Text1.Text, ".") = 0 ThenText1.Text = Text1.Text & "."ElseExit SubEnd IfEnd SubPrivate Sub Command21_Click()Text1.Text = Str(Sqr(Val(Text1.Text)End SubPrivate Sub Command22_Click()sum = Text1.Textflag1 = 5flag2 = 1End SubPrivate Sub Command23_Click()Text1.Text = Str(Val(Text1.Text / 1)flag2 = 0End SubPrivate Sub Command24_Click()Select Case (flag1)Case 1Text1.Text = sum + Text1.TextCase 2Text1.Text = sum - Text1.TextCase 3Text1.Text = sum * Text1.TextCase 4If Text1.Text = 0 Thendf = MsgBox("除数不能为零!请重新输入.", vbOKOnly + vbInformation, "警告")Text1.Text = ""Text1.SetFocusExit SubElseText1.Text = sum / Text1.TextEnd IfCase 5If Text1.Text = 0 Then df = MsgBox("余数不能为零!请重新输入.", vbOKOnly + vbInformation, "警告") Text1.Text = "" Text1.SetFocusExit SubElseText1.Text = sum Mod Text1.TextEnd IfEnd Selectflag2 = 0End SubPrivate Sub Command25_Click()If Text1.Text <> "" ThenText1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)If Text1.Text = "" ThenText1.Text = "0"End IfEnd IfEnd SubPrivate Sub Command26_Click()Text1.Text = "0"End SubPrivate Sub Command27_Click()Text1.Text = "0"End SubPrivate Sub Command5_Click(Index As Integer)If flag2 = 1 Then Text1.Text = Index flag2 = 0Else If Text1.Text <> "0" Then Text1.Text = Text1.Text & Index Else Text1.Text = "" & Index End IfEnd IfEnd SubPrivate Sub Command6_Click() If Text1.Text <> "" Then sum = Text1.Text flag1 = 4 flag2 = 1Else MsgBox "输入不能为空！", vbOKOnly, "警告" Text1.SetFocusEnd IfEnd SubPrivate Sub Command7_Click()If Text1.Text <> "" Then sum = Text1.Text flag1 = 3 flag2 = 1Else MsgBox "输入不能为空！", vbOKOnly, "警告" Text1.SetFocusEnd IfEnd SubPrivate Sub Command8_Click()If Text1.Text <> "" Then sum = Text1.Text flag1 = 2 flag2 = 1Else MsgBox "输入不能为空！", vbOKOnly, "警告" Text1.SetFocusEnd IfEnd SubPrivate Sub Command9_Click()If Text1.Text <> "" Then sum = Text1.Text flag1 = 1 flag2 = 1Else MsgBox "输入不能为空！", vbOKOnly, "警告" Text1.SetFocusEnd IfEnd Sub
