O bosses design using VB to help design a calculator-CodePudding

Design calculator interface implementation calculators corresponding function (by multi-function calculator to carry on the design), and be able to in a text box that can realize two, the number of addition, subtraction, multiplication, and division
CodePudding user response:
A casual baidu, and the land is the code
CodePudding user response:
Remember before I also did a calculator, don't know where the,,,,
CodePudding user response:
 


Private Sub button 0 _click () 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 0 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 0 
End the If 
End the If 
End Sub 

Private Sub button 1 _click () 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 1 
End the If 
If Val (Label1)=0 Then 
Label1. The Caption=1 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 1 
End the If 
Then If Val (Label3)=0 
Label3. The Caption=1 
End the If 
End the If 
End Sub 

Private Sub button 2 _click () 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 2 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=2 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 2 
End the If 
Then If Val (Label3)=0 
Label3. Caption=2 
End the If 
End the If 
End Sub 

Private Sub button 3 _click () 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 3 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=3 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 3 
End the If 
Then If Val (Label3)=0 
Label3. Caption=3 
End the If 
End the If 
End Sub 


Private Sub button 4 _click () 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 4 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=4 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 4 
End the If 
Then If Val (Label3)=0 
Label3. Caption=4 
End the If 
End the If 
End Sub 

Private Sub button 5 _click (Index As an Integer) 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 5 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=5 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 5 
End the If 
Then If Val (Label3)=0 
Label3. Caption=5 
End the If 
End the If 
End Sub 

Private Sub button 6 _click (Index As an Integer) 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 6 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=6 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 6 
End the If 
Then If Val (Label3)=0 
Label3. Caption=6 
End the If 
End the If 
End Sub 

Private Sub button 7 _click () 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 7 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=7 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 7 
End the If 
Then If Val (Label3)=0 
Label3. Caption=7 
End the If 
End the If 
End Sub 

Private Sub button 8 _click () 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 8 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=8 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 8 
End the If 
Then If Val (Label3)=0 
Label3. Caption=8 
End the If 
End the If 
End Sub 

Private Sub button 9 _click (Index As an Integer) 
If Val (Text1)=1 Then 
If Val (Label1) & lt; & gt; 0 Then 
Label1. Caption=Val (Label1) & amp; 9 
End the If 
If Val (Label1)=0 Then 
Label1. Caption=9 
End the If 
End the If 
If Val (Text1)=2 Then 
If Val (Label3) & lt; & gt; 0 Then 
Label3. Caption=Val (Label3) & amp; 9 
End the If 
Then If Val (Label3)=0 
Label3. Caption=9 
End the If 
End the If 
End Sub 

Private Sub take _Click () 
Label2. Caption="x" 
Label8. Caption=3 
End Sub 

Private Sub except _Click () 
Label2. Caption="present" 
Label8. Caption=4 
End Sub 

Private Sub equals _Click () 
If Val (Label8 Caption)=1 Then Label5. The Caption=Val (Label1) + Val (Label3) 
If Val (Label8 Caption)=2 Then Label5. The Caption=Val (Label1) - Val (Label3) 
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull