VB编写简易计算器附图.docx
- 文档编号:232228
- 上传时间:2022-10-07
- 格式:DOCX
- 页数:4
- 大小:60.08KB
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 三、测试,成功的话给个好评哦! 谢谢各位下载与支持! 这个可以编写作为作业哦!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编写 简易 计算器 附图