vb简易计算器代码

《vb简易计算器代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、这是一个简易计算器的VB代码，下面是这个计算器的界面，有一个文本输入框和16个按钮PublicClassForm1DimOperatorStateAsIntegerDimdata1AsIntegerDimresultAsIntegerDimdata2AsInteger’下面是0~9十个按钮的点击事件PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1

2、.Text=TextBox1.Text+"1"EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=TextBox1.Text+"2"EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.C

3、lickTextBox1.Text=TextBox1.Text+"3"EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickTextBox1.Text=TextBox1.Text+"4"EndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Hand

4、lesButton5.ClickTextBox1.Text=TextBox1.Text+"5"EndSubPrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickTextBox1.Text=TextBox1.Text+"6"EndSubPrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Ev

5、entArgs)HandlesButton7.ClickTextBox1.Text=TextBox1.Text+"7"EndSubPrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.ClickTextBox1.Text=TextBox1.Text+"8"EndSubPrivateSubButton9_Click(ByValsenderAsSystem.Object,ByVal

6、eAsSystem.EventArgs)HandlesButton9.ClickTextBox1.Text=TextBox1.Text+"9"EndSubPrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.ClickTextBox1.Text=TextBox1.Text+"0"EndSub’下面是清除键的代码PrivateSubButton15_Click(ByValse

7、nderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton15.ClickTextBox1.Text=""EndSub’下面是加减乘除四个按钮的代码PrivateSubButton11_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton11.Clickdata1=Val(TextBox1.Text)OperatorState=1TextBox1.Text=

8、""EndSubPrivateSubButton12_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton12.Clickdata1=Val(TextBox1.Text)OperatorState=2TextBox1.Text=""EndSubPrivateSubButton13_Click(ByValsenderAsSystem.Object,ByV