VB简易计算器代码

840111484
1 ℃
2019-10-15

整理文档很辛苦，赏杯茶钱您下走！

还剩 ... 页未读，继续阅读 >>

免费阅读已结束，点击下载阅读编辑剩下 ... 页

阅读已结束，您可以下载文档离线阅读编辑

资源描述

VB16PublicClassForm1DimOperatorStateAsIntegerDimdata1AsIntegerDimresultAsIntegerDimdata2AsInteger0~9PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=TextBox1.Text+1EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=TextBox1.Text+2EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox1.Text=TextBox1.Text+3EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickTextBox1.Text=TextBox1.Text+4EndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickTextBox1.Text=TextBox1.Text+5EndSubPrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickTextBox1.Text=TextBox1.Text+6EndSubPrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.ClickTextBox1.Text=TextBox1.Text+7EndSubPrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.ClickTextBox1.Text=TextBox1.Text+8EndSubPrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.ClickTextBox1.Text=TextBox1.Text+9EndSubPrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.ClickTextBox1.Text=TextBox1.Text+0EndSubPrivateSubButton15_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton15.ClickTextBox1.Text=EndSubPrivateSubButton11_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton11.Clickdata1=Val(TextBox1.Text)OperatorState=1TextBox1.Text=EndSubPrivateSubButton12_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton12.Clickdata1=Val(TextBox1.Text)OperatorState=2TextBox1.Text=EndSubPrivateSubButton13_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton13.Clickdata1=Val(TextBox1.Text)OperatorState=3TextBox1.Text=EndSubPrivateSubButton14_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton14.Clickdata1=Val(TextBox1.Text)OperatorState=4TextBox1.Text=EndSubPrivateSubButton16_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton16.Clickdata2=Val(TextBox1.Text)If(OperatorState=1)Thenresult=data1+data2EndIfIf(OperatorState=2)Thenresult=data1-data2EndIfIf(OperatorState=3)Thenresult=data1*data2EndIfIf(OperatorState=4)Thenresult=data1/data2EndIfTextBox1.Text=Str(result)EndSubEndClass