没有合适的资源?快使用搜索试试~ 我知道了~
VB做计算器
资源推荐
资源详情
资源评论
vb 做计算器
一.实验目的
用 vb 语言编写一个简易计算器
二.实验要求
1.能够完成浮点数的加,减,乘,除;(平方等)
2.能够实现退格和清除功能;
3.初始值为 0.0;
4.小数点不能重复输入;
5.高位数的 0 不出现;
6.应用控件数组实现。
三.控件属性列表
1、创建控件组的方法
a、首先创建一个命令按钮,调整其大小 — 宽、高为 495,名称为
Command1,aption 属性为数字 0 。
b、然后进行“复制”和“粘贴”,当选择“粘贴”时,出现对话框提示已有一个同名
控件,询问是否创建控件组,选择“是”后,即创建了一个名为“Command”的
控件组。这时,第一个按钮的 Index 属性值默认为“0”,第二个的 Index 属性
值自动设为“1”,并且大小与第一个按钮相同,只需修改其 Caption 属性为数
字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中
其余按钮,共 19 个按钮,每建立一个,就将它拖到合适处,并修改相应的
Caption 属性值。
c、建立其他控件:如右图所示
2、各控件属性设置如下:
控 件 控 件
控件 名称 Caption 控件 名称 Caption
窗体 Form 1 计算器 按钮 Command 2(0) +
按钮 Command 3 退格 按钮 Command 2(1) -
按钮 Command 4 . 按钮 Command 2(2) ¸*
按钮 Command 5 = 按钮 Command 2(3) /
按钮 command 6 + 按钮 Command 7 ±
按钮 Command 1(0)~Command1(9) Caption 0 ~ 9
各个属性修改后得到如图所示的界面
四 程序如下
Dim shu1 As Single, shu2 As Single, suanfu As String
'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
'将 command1 的单击事件与文本框显示的内容连接
End Sub
资源评论
Jason_53999
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功