VB编写简易计算器附图.docx

VB编写简易计算器附图.docx

《VB编写简易计算器附图.docx》由会员分享，可在线阅读，更多相关《VB编写简易计算器附图.docx（4页珍藏版）》请在冰豆网上搜索。

用VB6.0编写简易计算器

效果图：

废话不多说，直接上步骤

一、创建控件组

1、创建控件组的方法  

首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字0；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。

这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其Caption属性为数字“1”并将其拖至合适位置即可。

此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

2、各控件组其属性设置如下：

控件

名称

功能/属性

窗体

Form1

简易计算器

按钮

Command1

Command1（0）～Command1（9）即：

Caption0～9

按钮

Command2

小数点“.”

按钮

Command3

等于号“=”

按钮

Command4

退格

按钮

Command5

清除

按钮

Command6

Command6（0）～Command6（3）即：

Caption+、-、*、/

按钮

Command7

负数

按钮

Command8

平方

设置效果如下图所示：

二、编写代码

Dims1AsSingle,s2AsSingle,ysfAsString

'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符

PrivateSubCommand1_Click（IndexAsInteger）

Text1.Text=Text1.Text&Command1（Index）.Caption

'将command1的单击事件与文本框显示的内容连接

EndSub

PrivateSubCommand2_Click（）

Text1.Text=Text1.Text+"."

If（InStr（Text1.Text,"."）=1）Then'第一位不能为小数

Text1.Text=""

EndIf

IfInStr（Text1.Text,"."）

Text1.Text=Left（Text1.Text,Len（Text1.Text）-1）

EndIf

EndSub

PrivateSubCommand3_Click（）

s2=Val（Text1.Text）'开始加减乘除运算

SelectCaseysf

Case"+"

Text1.Text=s1+s2

Case"-"

Text1.Text=s1-s2

Case"*"

Text1.Text=s1*s2

Case"/"

Ifs2=0Then

MsgBox"分母不能为零!

"

Text1.Text=""

Else

Text1.Text=s1/s2

EndIf

EndSelect

Text1=IIf（Left（Text1.Text,1）=".",0&Text1.Text,Text1.Text）'这个很关键，如果没有这个的话，得出小于1的小数前面没有0

EndSub

PrivateSubCommand4_Click（）

IfText1.Text=""Then'文本为空就结束

ExitSub

EndIf

Text1.Text=Left（Text1.Text,Len（Text1.Text）-1）'文本退一格

EndSub

PrivateSubCommand5_Click（）

Text1.Text=""'清除当前框内文本

EndSub

PrivateSubCommand6_Click（IndexAsInteger）

s1=Val（Text1.Text）'将s1隐藏起来

ysf=Command6（Index）.Caption

Text1.Text=""

EndSub

PrivateSubCommand7_Click（）

IfLeft（Text1.Text,1）<>"-"Then'判断作为负数

Text1.Text="-"&Text1.Text

Else

Text1.Text=Right（Text1.Text,Len（Text1.Text）-1）

EndIf

EndSub

PrivateSubCommand8_Click（）

Text1.Text=Text1.Text*Text1.Text'平方

EndSub

各位朋友，可以将红色代码复制到相应位置，不清楚的可以全选复制，但是一定要按照我的步骤和给的名称来哦！

还可以再添加按钮

PrivateSubCommand9_Click（）'这是退出代码

End

EndSub

三、测试，成功的话给个好评哦！

谢谢各位下载与支持！

这个可以编写作为作业哦！