《计算器vb程序》word版

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

1、计算器VB程序这个程序包括5个单选按钮，12个命令按钮和一个文本框。如果你学了数组以后，10个数字键就可以打一行代码了。不需要这么麻烦（我给你的第二种代码中的就是）第一种代码：DimflagAsInteger通用&声明Dims1AsStringPrivateSubCommand1_Click()'数字“1”Text1.Text=Text1.Text+Str$(1)EndSubPrivateSubCommand10_Click()'数字“0”Text1.Text=Text1.Text+Str$(0)EndSubifisjdthenm-tb-out.text

2、=str(sin((val(m-tb-out.text)/180)*pi))elsem-tb-out.text=str(sin((val(m-tb-out.text)PrivateSubCommand11_Click()'点号“.”Text1.Text=Text1.Text+"."EndSubPrivateSubCommand2_Click()'数字“2”Text1.Text=Text1.Text+Str$(2)EndSubPrivateSubCommand3_Click()'数字“3”Text1.Text=Text1.Text+Str$(3)EndSu

3、bPrivateSubCommand4_Click()'数字“4”Text1.Text=Text1.Text+Str$(4)EndSubPrivateSubCommand5_Click()'数字“5”Text1.Text=Text1.Text+Str$(5)EndSubPrivateSubCommand6_Click()'数字“6”Text1.Text=Text1.Text+Str$(6)EndSubPrivateSubCommand7_Click()'数字“7”Text1.Text=Text1.Text+Str$(7)EndSubPrivateSubC

4、ommand8_Click()'数字“8”Text1.Text=Text1.Text+Str$(8)EndSubPrivateSubCommand9_Click()'数字“9”Text1.Text=Text1.Text+Str$(9)EndSubPrivateSubopt1_Click()'opt1为+加运算Ifflag=-1Then'这里通过flag的值判断前一步是否点击过运算符s1=Text1.Text'如果没有点击过运算符执行这里Text1.Text=""flag=1'表示加法运算Else'如果前一步没有点击过运算符则执行者里s2=Text1.Te

5、xtSelectCaseflag'这里通过flag的值判断前一步的运算符,并执行相应的运算.Case1s1=Val(s1)+Val(s2)Case2s1=Val(s1)-Val(s2)Case3s1=Val(s1)*Val(s2)Case4s1=Val(s1)/Val(s2)EndSelectText1.Text=""flag=1EndIfEndSubPrivateSubopt2_Click()'opt2为-减运算Ifflag=-1Thens1=Text1.TextText1.Text=""flag=2'表示减法运算Elses2=Text1.TextSe

6、lectCaseflagCase1s1=Val(s1)+Val(s2)Case2s1=Val(s1)-Val(s2)Case3s1=Val(s1)*Val(s2)Case4s1=Val(s1)/Val(s2)EndSelectText1.Text=""flag=2EndIfEndSubPrivateSubopt3_Click()'opt3为*乘运算Ifflag=-1Thens1=Text1.TextText1.Text=""flag=3'表示乘法运算Elses2=Text1.TextSelectCaseflagCase1s1=Val(s1)+Val(s2

7、)Case2s1=Val(s1)-Val(s2)Case3s1=Val(s1)*Val(s2)Case4s1=Val(s1)/Val(s2)EndSelectText1.Text=""flag=3EndIfEndSubPrivateSubopt4_Click()'opt4为/除运算Ifflag=-1Thens1=Text1.TextText1.Text=""flag=4'表示除法运算Elses2=Text1.TextSelectCaseflagCase1s1=Val(s1)+Val(s2)Case2s1=Val(s1)-Val(s2)Case3s1=Va

8、l(s1)*Val(s2)Case4s1=Val(s1)/Val(s2)EndS