admin 管理员组文章数量: 887021
2024年1月23日发(作者：programfiles)
一．实验目的
用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)
= & Command1(Index).Caption
'将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click(Index As Integer)
shu1 = Val() '将shu1隐藏起来
suanfu = Command2(Index).Caption
= ""
End Sub
Private Sub Command4_Click()
= + "."
If (InStr(, ".") = 1) Then '第一位不能为小数
= ""
End If
If InStr(, ".") < Len() Then
'防止出现两个小数点
= Left(, Len() - 1)
End If
End Sub
Private Sub Command5_Click() '开始加减乘除的运算
shu2 = Val()
Select Case suanfu
Case "+"
= shu1 + shu2
Case "-"
= shu1 - shu2
Case "*"
= shu1 * shu2
Case "/"
If shu2 = 0 Then
MsgBox "分母不能为零!", 1 + 32 + 0,
"错误" '错误提示框图下所示
= ""
Else
= shu1 / shu2
End If
End Select
End Sub
Private Sub Command3_Click() '假如输入错误,可每次退后一格
If = "" Then
Exit Sub
End If
= Left(, Len() - 1)
End Sub
Private Sub Command6_Click()
= "" '清除
End Sub
Private Sub Command7_Click() '平方运算
= *
End Sub
Private Sub Command8_Click()
If Left(, 1) <> "-" Then
= "-" &
Else
= Right(, Len() - 1)
End If
End Sub
版权声明：本文标题：VB计算器 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1705987749h496830.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论