简单计算器VB完美教程.doc

《简单计算器VB完美教程.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、简单计算器完美教程方法及步骤：第一步：在窗口中放置控件。要点：十个数字按钮为按钮数组（画一个，其余几个拷贝出来），四个运算符为按钮数组，其它控件及按钮单独建立（一个一个的画出来）。第二步：配置各个控件的属性，调整大小和位置第三步：编写代码备注：代码可以直接从本文中拷贝过去，但不是太建议这样子做，自己编写的时候可以学到更多的知识。窗口属性代码Dims1AsSingle,s2AsSingle,ysfAsString,cfsAsSinglePrivateSubCommand1_Click(IndexAsInteger)Ifcfs>0Then'输入数字之前判断是否为重复计

2、算（cfs重复算）Text1.Text=""'重复算就清零之前的显示cfs=0'重复算代码清零EndIfText1.Text=Text1.Text&Command1(Index).Caption'数字框按钮与文本框关联IfLen(Text1.Text)>13Then'限制录入13位数字MsgBox"数字不能大于13位"Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)EndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)s1=Text1.Text'按运算符时存数据1ysf=Co

3、mmand2(Index).Caption'提取运算符Text1.Text=""'清除文本框里的数据1，等待录入数据2EndSubPrivateSubCommand3_Click()Text1.Text=Text1.Text+"."IfInStr(Text1.Text,".")=1Then'小数点录入的时候不能是第一位Text1.Text=""EndIfIfInStr(Text1.Text,".")

4、'出现第二个小数点会删除EndIfEndSubPrivateSubCommand4_Click()IfText1.Text=""ThenExitSubEndIfText1.Text=Left(Text1.Text,Len(Text1.Text)-1)'删除最后一位数EndSubPrivateSubCommand5_Click()cfs=cfs+1'按“=”号后重复算代码加1s2=Val(Text1.Text)'提取数据2SelectCaseysf'根据运算符进行运算Case"+"Text1.Text=s1+s2Case"-"Text1.Text=s1-s2Case

5、"*"Text1.Text=s1*s2Case"/"Ifs2=0Then'避免除以零MsgBox"分母不能为零"Text1.Text=""ElseText1.Text=s1/s2EndIfEndSelectIfLeft(Text1.Text,1)="."ThenText1.Text="o"&Text1.TextEndIfEndSubPrivateSubCommand6_Click()Text1.Text=""EndSub全文完