vb编写简易计算器(附图)

《vb编写简易计算器(附图)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用VB6.0编写简易计算器效果图：废话不多说，直接上步骤一、创建控件组1、创建控件组的方法  首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字0；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其Caption属性为数字“1”并将其拖至合适位置即可。

2、此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。2、各控件组其属性设置如下：控件名称功能/属性窗体Form1简易计算器按钮Command1Command1（0）～Command1（9）即：Caption0～9按钮Command2小数点“.”按钮Command3等于号“=”按钮Command4退格按钮Command5清除按钮Command6Command6（0）～Command6（3）即：Caption+、-、*、/按钮Command7负数按钮C

3、ommand8平方设置效果如下图所示：二、编写代码Dims1AsSingle,s2AsSingle,ysfAsString'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符PrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&Command1(Index).Caption'将command1的单击事件与文本框显示的内容连接EndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text+"."If(I

4、nStr(Text1.Text,".")=1)Then'第一位不能为小数Text1.Text=""EndIfIfInStr(Text1.Text,".")

5、Text=s1-s2Case"*"Text1.Text=s1*s2Case"/"Ifs2=0ThenMsgBox"分母不能为零!"Text1.Text=""ElseText1.Text=s1/s2EndIfEndSelectText1=IIf(Left(Text1.Text,1)=".",0&Text1.Text,Text1.Text)'这个很关键，如果没有这个的话，得出小于1的小数前面没有0EndSubPrivateSubCommand4_Click()IfText1.Text=""Then'文本为空就结束ExitSubE

6、ndIfText1.Text=Left(Text1.Text,Len(Text1.Text)-1)'文本退一格EndSubPrivateSubCommand5_Click()Text1.Text=""'清除当前框内文本EndSubPrivateSubCommand6_Click(IndexAsInteger)s1=Val(Text1.Text)'将s1隐藏起来ysf=Command6(Index).CaptionText1.Text=""EndSubPrivateSubCommand7_Click()IfLeft(Text1

7、.Text,1)<>"-"Then'判断作为负数Text1.Text="-"&Text1.TextElseText1.Text=Right(Text1.Text,Len(Text1.Text)-1)EndIfEndSubPrivateSubCommand8_Click()Text1.Text=Text1.Text*Text1.Text'平方EndSub各位朋友，可以将红色代码复制到相应位置，不清楚的可以全选复制，但是一定要按照我的步骤和给的名称来哦！还可以再添加按钮PrivateSubCommand9_Click()'这是退

8、出代码EndEndSub三、测试，成功的话给个好评哦！谢谢各位下载与支持！这个可以编写作为作业哦！