vb简易计算器代码

这是一个简易计算器的VB代码，下面是这个计算器的界面，有一个文本输入框和16个按钮Public Class Form1Dim OperatorState As Integer Dim data1 As IntegerDim result As IntegerDim data2 As Integer下面是09十个按钮的点击事件Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox1.Text = TextBox1.Text + “1“End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox1.Text = TextBox1.Text + “2“End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox1.Text = TextBox1.Text + “3“End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickTextBox1.Text = TextBox1.Text + “4“End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickTextBox1.Text = TextBox1.Text + “5“End SubPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickTextBox1.Text = TextBox1.Text + “6“End SubPrivate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickTextBox1.Text = TextBox1.Text + “7“End SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickTextBox1.Text = TextBox1.Text + “8“End SubPrivate Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickTextBox1.Text = TextBox1.Text + “9“End SubPrivate Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickTextBox1.Text = TextBox1.Text + “0“End Sub下面是清除键的代码Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickTextBox1.Text = “End Sub下面是加减乘除四个按钮的代码Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Clickdata1 = Val(TextBox1.Text)OperatorState = 1TextBox1.Text = “End SubPrivate Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Clickdata1 = Val(TextBox1.Text)OperatorState = 2TextBox1.Text = “End SubPrivate Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Clickdata1 = Val(TextBox1.Text)OperatorState = 3TextBox1.Text = “End SubPrivate Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Clickdata1 = Val(TextBox1.Text)OperatorState = 4TextBox1.Text = “End Sub下面是等于号的的代码Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Clickdata2 = Val(TextBox1.Text)If (OperatorState = 1) Thenresult = data1 + data2End IfIf (OperatorState = 2) Thenresult = data1 - data2End IfIf (Ope