如何用VB编写一个加减乘除计算器？只要代码!

答案：Option  Explicit  
  Dim  Op1,  Op2
  Dim  DecimalFlag  As  Integer 
  Dim  NumOps  As  Integer
  Dim  LastInput
  Dim  OpFlag
  Dim  TempReadout  
   
  Private  Sub  Cancel_Click()  
       Readout  =  Format(0,  "0.")  
       Op1  =  0  
       Op2  =  0  
       Form_Load  
  End  Sub  

  Private  Sub  CancelEntry_Click()  
       Readout  =  Format(0,  "0.")  
       DecimalFlag  =  False  
       LastInput  =  "CE"  
  End  Sub  
   
  Private  Sub  Decimal_Click()  
       If  LastInput  =  "NEG"  Then  
            Readout  =  Format(0,  "-0.")  
       ElseIf  LastInput  <>  "NUMS"  Then  
            Readout  =  Format(0,  "0.")  
       End  If  
       DecimalFlag  =  True  
       LastInput  =  "NUMS"  
  End  Sub  
   
  Private  Sub  Form_Load()  
       DecimalFlag  =  False  
       NumOps  =  0  
       LastInput  =  "NONE"  
       OpFlag  =  "  "  
       Readout  =  Format(0,  "0.")  
       'Decimal.Caption  =  Format(0,  ".")  
  End  Sub  
   
  Private  Sub  Number_Click(Index  As  Integer)  
       If  LastInput  <>  "NUMS"  Then  
            Readout  =  Format(0,  ".")  
            DecimalFlag  =  False  
       End  If  
       If  DecimalFlag  Then  
            Readout  =  Readout  +  Number(Index).Caption  
       Else  
            Readout  =  Left(Readout,  InStr(Readout,  Format(0,  "."))  -  1)  +  Number(Index).Caption  +  Format(0,  ".")  
       End  If  
       If  LastInput  =  "NEG"  Then  Readout  =  "-"  &  Readout  
       LastInput  =  "NUMS"  
  End  Sub  

  Private  Sub  Operator_Click(Index  As  Integer)  
       TempReadout  =  Readout  
       If  LastInput  =  "NUMS"  Then  
            NumOps  =  NumOps  +  1  
       End  If  
       Select  Case  NumOps  
            Case  0  
            If  Operator(Index).Caption  =  "-"  And  LastInput  <>  "NEG"  Then  
                  Readout  =  "-"  &  Readout  
                  LastInput  =  "NEG"  
            End  If  
            Case  1  
            Op1  =  Readout  
            If  Operator(Index).Caption  =  "-"  And  LastInput  <>  "NUMS"  And  OpFlag  <>  "="  Then  
                  Readout  =  "-"  
                  LastInput  =  "NEG"  
            End  If  
            Case  2  
            Op2  =  TempReadout  
            Select  Case  OpFlag  
                  Case  "+"  
                       Op1  =  CDbl(Op1)  +  CDbl(Op2)  
                  Case  "-"  
                       Op1  =  CDbl(Op1)  -  CDbl(Op2)  
                  Case  "X"  
                       Op1  =  CDbl(Op1)  *  CDbl(Op2)  
                  Case  "/"  
                       If  Op2  =  0  Then  
                           MsgBox  "除数不能为  0",  48,  "计算器"  
                       Else  
                           Op1  =  CDbl(Op1)  /  CDbl(Op2)  
                       End  If  
                  Case  "="  
                       Op1  =  CDbl(Op2)  
                  Case  "%"  
                       Op1  =  CDbl(Op1)  *  CDbl(Op2)  
                  End  Select  
            Readout  =  Op1  
            NumOps  =  1  
       End  Select  
       If  LastInput  <>  "NEG"  Then  
            LastInput  =  "OPS"  
            OpFlag  =  Operator(Index).Caption  
       End  If  
  End  Sub  

  Private  Sub  Percent_Click()  
       Readout  =  Readout  /  100  
       LastInput  =  "Ops"  
       OpFlag  =  "%"  
       NumOps  =  NumOps  +  1  
       DecimalFlag  =  True  
  End  Sub 
 
窗体代码
 VERSION 5.00 
 Begin VB.Form Calculator 
 BorderStyle = 1 'Fixed Single 
 Caption = "计算器" 
 ClientHeight = 2970 
 ClientLeft = 2580 
 ClientTop = 1485 
 ClientWidth = 3270 
 ClipControls = 0 'False 
 BeginProperty Font 
 Name = "System" 
 Size = 9.75 
 Charset = 0 
 Weight = 700 
 Underline = 0 'False 
 Italic = 0 'False 
 Strikethrough = 0 'False 
 EndProperty 
 Icon = "CALC.frx":0000 
 LinkMode = 1 'Source 
 LinkTopic = "Form1" 
 MaxButton = 0 'False 
 PaletteMode = 1 'UseZOrder 
 ScaleHeight = 2970 
 ScaleWidth = 3270 
 WhatsThisHelp = -1 'True 
 Begin VB.CommandButton Number 
 Caption = "7" 
 Height = 480 
 Index = 7 
 Left = 120 
 TabIndex = 7 
 Top = 600 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "8" 
 Height = 480 
 Index = 8 
 Left = 720 
 TabIndex = 8 
 Top = 600 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "9" 
 Height = 480 
 Index = 9 
 Left = 1320 
 TabIndex = 9 
 Top = 600 
 Width = 480 
 End 
 Begin VB.CommandButton Cancel 
 Caption = "C" 
 Height = 480 
 Left = 2040 
 TabIndex = 10 
 Top = 600 
 Width = 480 
 End 
 Begin VB.CommandButton CancelEntry 
 Caption = "CE" 
 Height = 480 
 Left = 2640 
 TabIndex = 11 
 Top = 600 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "4" 
 Height = 480 
 Index = 4 
 Left = 120 
 TabIndex = 4 
 Top = 1200 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "5" 
 Height = 480 
 Index = 5 
 Left = 720 
 TabIndex = 5 
 Top = 1200 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "6" 
 Height = 480 
 Index = 6 
 Left = 1320 
 TabIndex = 6 
 Top = 1200 
 Width = 480 
 End 
 Begin VB.CommandButton Operator 
 Caption = "+" 
 Height = 480 
 Index = 1 
 Left = 2040 
 TabIndex = 12 
 Top = 1200 
 Width = 480 
 End 
 Begin VB.CommandButton Operator 
 Caption = "-" 
 Height = 480 
 Index = 3 
 Left = 2640 
 TabIndex = 13 
 Top = 1200 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "1" 
 Height = 480 
 Index = 1 
 Left = 120 
 TabIndex = 1 
 Top = 1800 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "2" 
 Height = 480 
 Index = 2 
 Left = 720 
 TabIndex = 2 
 Top = 1800 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "3" 
 Height = 480 
 Index = 3 
 Left = 1320 
 TabIndex = 3 
 Top = 1800 
 Width = 480 
 End 
 Begin VB.CommandButton Operator 
 Caption = "X" 
 Height = 480 
 Index = 2 
 Left = 2040 
 TabIndex = 14 
 Top = 1800 
 Width = 480 
 End 
 Begin VB.CommandButton Operator 
 Caption = "/" 
 Height = 480 
 Index = 0 
 Left = 2640 
 TabIndex = 15 
 Top = 1800 
 Width = 480 
 End 
 Begin VB.CommandButton Number 
 Caption = "0" 
 Height = 480 
 Index = 0 
 Left = 120 
 TabIndex = 0 
 Top = 2400 
 Width = 1080 
 End 
 Begin VB.CommandButton Decimal 
 Caption = "." 
 Height = 480 
 Left = 1320 
 TabIndex = 18 
 Top = 2400 
 Width = 480 
 End 
 Begin VB.CommandButton Operator 
 Caption = "=" 
 Height = 480 
 Index = 4 
 Left = 2040 
 TabIndex = 16 
 Top = 2400 
 Width = 480 
 End 
 Begin VB.CommandButton Percent 
 Caption = "%" 
 Height = 480 
 Left = 2640 
 TabIndex = 17 
 Top = 2400 
 Width = 480 
 End 
 Begin VB.Label Readout 
 Alignment = 1 'Right Justify 
 BackColor = &H0000FFFF& 
 BorderStyle = 1 'Fixed Single 
 Caption = "0." 
 BeginProperty Font 
 Name = "MS Sans Serif" 
 Size = 12 
 Charset = 0 
 Weight = 700 
 Underline = 0 'False 
 Italic = 0 'False 
 Strikethrough = 0 'False 
 EndProperty 
 ForeColor = &H00000000& 
 Height = 375 
 Left = 120 
 TabInde
上一个：急求一个VB调用数据库的程序代码！！
下一个：求用VB 做出來的完整記事本代易做图？
更多图片编程知识: