VB简易计算器代码

1、WORD格式这是一个简易计算器的VB代码，下面是这个计算器的界面，有一个文本输入框和16个按钮PublicClass Form1Dim OperatorStateAs IntegerDim data1As IntegerDim resultAs IntegerDim data2As Integer下面是 09十个按钮的点击事件专业资料整理WORD格式PrivateSub Button1_Click(ByVal sender As System.Object,Button1.ClickTextBox1.Text = TextBox1.Text +"1"End SubByVal

2、 e As System.EventArgs)Handles专业资料整理WORD格式PrivateSub Button2_Click(ByVal sender As System.Object,Button2.ClickTextBox1.Text = TextBox1.Text +"2"End SubByVal e As System.EventArgs)Handles专业资料整理WORD格式PrivateSub Button3_Click(ByVal sender As System.Object,Button3.ClickTextBox1.Text = TextBox1

3、.Text +"3"End SubByVal e As System.EventArgs)Handles专业资料整理WORD格式PrivateSub Button4_Click(ByVal sender As System.Object,Button4.ClickTextBox1.Text = TextBox1.Text +"4"End SubByVal e As System.EventArgs)Handles专业资料整理WORD格式PrivateSub Button5_Click(ByVal sender As System.Object,ByVal

4、 e As System.EventArgs)HandlesButton5.ClickTextBox1.Text = TextBox1.Text +"5"End SubPrivateSub Button6_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)HandlesButton6.ClickTextBox1.Text = TextBox1.Text +"6"End SubPrivateSub Button7_Click(ByVal sender As System.Obje

5、ct,ByVal e As System.EventArgs)HandlesButton7.ClickTextBox1.Text = TextBox1.Text +"7"End SubPrivateSub Button8_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)HandlesButton8.ClickTextBox1.Text = TextBox1.Text +"8"End SubPrivateSub Button9_Click(ByVal sender As Sys

6、tem.Object,ByVal e As System.EventArgs)HandlesButton9.ClickTextBox1.Text = TextBox1.Text +"9"End SubPrivateSub Button10_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)Handles Button10.ClickTextBox1.Text = TextBox1.Text +"0"End Sub下面是去除键的代码PrivateSub Button15_Click(

7、ByVal senderAs System.Object,ByVal eAs System.EventArgs)Handles Button15.ClickTextBox1.Text =""End Sub下面是加减乘除四个按钮的代码PrivateSub Button11_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)Handles Button11.Clickdata1 = Val(TextBox1.Text)OperatorState = 1TextBox1.Text =""

8、End Sub专业资料整理WORD格式PrivateSub Button12_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)专业资料整理WORD格式Handles Button12.Clickdata1 = Val(TextBox1.Text)OperatorState = 2专业资料整理WORD格式TextBox1.Text =End Sub""专业资料整理WORD格式PrivateSub Button13_Click(Handles Button13.Clickdata1 = Val(Text

9、Box1.Text)OperatorState = 3TextBox1.Text =""End SubByVal senderAs System.Object,ByVal eAs System.EventArgs)专业资料整理WORD格式PrivateSub Button14_Click(Handles Button14.Clickdata1 = Val(TextBox1.Text)OperatorState = 4TextBox1.Text =""End SubByVal senderAs System.Object,ByVal eAs System.

10、EventArgs)专业资料整理WORD格式下面是等于号的的代码专业资料整理WORD格式PrivateSub Button16_Click(ByVal senderAs System.Object,ByVal e As System.EventArgs)Handles专业资料整理WORD格式Button16.Clickdata2 = Val(TextBox1.Text)专业资料整理WORD格式If(OperatorState = 1)Then专业资料整理WORD格式result = data1 + data2End If专业资料整理WORD格式If(OperatorState = 2)Then专业资料整理WORD格式result = data1 - data2End If专业资料整理WORD格式If(OperatorState = 3)Then专业资料