VB编写简易计算器附图Word文档下载推荐.docx

VB编写简易计算器附图Word文档下载推荐.docx

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

控件

名称

功能/属性

窗体

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,"

）<

Len（Text1.Text）Then'

防止出现两个小数点

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

PrivateSubCommand3_Click（）

s2=Val（Text1.Text）'

开始加减乘除运算

SelectCaseysf

Case"

+"

Text1.Text=s1+s2

-"

Text1.Text=s1-s2

*"

Text1.Text=s1*s2

/"

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

PrivateSubCommand4_Click（）

IfText1.Text="

Then'

文本为空就结束

ExitSub

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

文本退一格

PrivateSubCommand5_Click（）

Text1.Text="

'

清除当前框内文本

PrivateSubCommand6_Click（IndexAsInteger）

s1=Val（Text1.Text）'

将s1隐藏起来

ysf=Command6（Index）.Caption

PrivateSubCommand7_Click（）

IfLeft（Text1.Text,1）<

>

"

判断作为负数

&

Text1.Text

Else

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

PrivateSubCommand8_Click（）

Text1.Text=Text1.Text*Text1.Text'

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

还可以再添加按钮

PrivateSubCommand9_Click（）'

这是退出代码

End

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

谢谢各位下载与支持！

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