资源描述：
《VBNET简易计算器制作与实现.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、简易计算器的实现：图形及代码如下：OptionStrictOffOptionExplicitOnImportsVB=Microsoft.VisualBasicPublicClassForm1InheritsSystem.Windows.Forms.FormDimx,y,zAsDoubleDimoperAsCharDimiAsIntegerPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadx=0y=0z=0oper=""i=0En
2、dSub'数字PrivateSubchiffre(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB0.Click,B1.Click,B2.Click,B3.Click,B4.Click,B5.Click,B6.Click,B7.Click,B8.Click,B9.ClickIfLabel1.Text="0"ThenLabel1.Text=CStr(sender.text)ExitSubElseIfi=1ThenLabel1.Text=CStr(sender.text)i=2ElseIfi
3、=3ThenLabel1.Text=CStr(sender.text)Label2.Text=""i=0ElseLabel1.Text=Label1.Text&CStr(sender.text)EndIfEndIfEndIfEndSub'小数点PrivateSubdeci_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesdeci.ClickIfi=0ThenIfInStr(Label1.Text,".")=0ThenLabel1.Text=Label1.Text&"."EndI
4、fElseIfi=1ThenLabel1.Text="0"i=2ElseIfi=2ThenIfInStr(Label1.Text,".")=0ThenLabel1.Text=Label1.Text&"."EndIfElseIfi=3ThenLabel1.Text="0"Label2.Text=""i=0EndIfEndIfEndIfEndIfEndSub'正负号PrivateSubpm_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlespm.ClickIfVal(Label1.T
5、ext)>0ThenLabel1.Text="-"+Label1.TextElseLabel1.Text=-Val(Label1.Text)EndIfEndSub'运算符PrivateSuboperation(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmult.Click,div.Click,plus.Click,minus.Clickx=Val(Label1.Text)oper=CStr(sender.text)i=1Label2.Text=Label1.Text+CStr(sen
6、der.text)EndSub'加减乘除运算PrivateSubegale_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesegale.ClickIfy=0Theny=Val(Label1.Text)EndIfIfoper="/"Thenz=x/yx=zLabel1.Text=zElseIfoper="-"Thenz=x-yx=zLabel1.Text=zElseIfoper="*"Thenz=x*yx=zLabel1.Text=zElseIfoper="+"Thenz=x+y
7、x=zLabel1.Text=zEndIfIfoper="/"Andy=0ThenLabel1.Text="除数不能为零"EndIfLabel1.Text=zLabel2.Text=""i=3EndSub'开平方根PrivateSubsqrt_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlessqrt.ClickLabel2.Text="sqrt("&Label1.Text&")"Label1.Text=System.Math.Sqrt(Val(Label1.Text))i=3E
8、ndSub'百分号%PrivateSubperc_C
