VB编写简易计算器附图Word文档下载推荐.docx
《VB编写简易计算器附图Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB编写简易计算器附图Word文档下载推荐.docx(4页珍藏版)》请在冰豆网上搜索。
![VB编写简易计算器附图Word文档下载推荐.docx](https://file1.bdocx.com/fileroot1/2022-10/7/862e758d-66ac-4a0c-8d65-169d169147d1/862e758d-66ac-4a0c-8d65-169d169147d11.gif)
控件
名称
功能/属性
窗体
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
三、测试,成功的话给个好评哦!
谢谢各位下载与支持!
这个可以编写作为作业哦!