2022年VB编写简易计算器.pdf

VB编写简易计算器( 附图 ) 用 VB6 、0 编写简易计算器效果图 : 废话不多说 , 直接上步骤一、创建控件组1、创建控件组的方法首先创建一个命令按钮 , 调整其大小 ( 觉得合适就行 ), 名称为 Command1,Caption 属性为数字 0 ; 然后进行“复制”与“粘贴”, 当选择“粘贴”时 , 出现对话框提示已有一个同名控件, 询问就是否创建控件组 , 选择“就是”后 , 即创建了一个名为“ Command”的控件组。这时 ,第一个按钮的 Index 属性值默认为“ 0”, 第二个的 Index 属性值自动设为“ 1”, 并且大小与第一个按钮相同 , 只需修改其 Caption 属性为数字“ 1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其她控件组中其余按钮, 共 20 个按钮 , 每建立一个 , 就将它拖到合适处, 并修改相应的 Caption 属性值。2、各控件组其属性设置如下: 控件名称功能/ 属性窗体Form 1 简易计算器按钮Command1 Command1(0) Command1(9) 即:Caption 0 9 按钮Command2 小数点“、”按钮Command3 等于号“ =”精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 4 页 - - - - - - - - - - VB编写简易计算器( 附图 ) 按钮Command4 退格按钮Command5 清除按钮Command6 Command6(0) Command6(3) 即:Caption + 、-、*、/ 按钮Command7 负数按钮Command8 平方设置效果如下图所示 : 二、编写代码Dim s1 As Single, s2 As Single, ysf As String 定义两个单精度数变量用与存放参与运算的数, 一个字符型存放运算符Private Sub Command1_Click(Index As Integer) Text1 、Text = Text1、Text & Command1(Index) 、Caption 将 command1 的单击事件与文本框显示的内容连接End Sub Private Sub Command2_Click() Text1 、Text = Text1、Text + 、 If (InStr(Text1、Text, 、) = 1) Then 第一位不能为小数 Text1、Text = End If If InStr(Text1、Text, 、) Len(Text1、Text) Then 防止出现两个小数点 Text1、Text = Left(Text1、Text, Len(Text1、Text) - 1) End If End Sub Private Sub Command3_Click() s2 = Val(Text1、Text) 开始加减乘除运算精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 4 页 - - - - - - - - - - VB编写简易计算器( 附图 ) Select Case ysf Case + Text1、Text = s1 + s2 Case - Text1、Text = s1 - s2 Case * Text1、Text = s1 * s2 Case / If s2 = 0 Then MsgBox 分母不能为零 ! Text1、Text = Else Text1、Text = s1 / s2 End If End Select Text1 = IIf(Left(Text1、Text, 1) = 、, 0 & Text1、Text, Text1、Text) 这个很关键, 如果没有这个的话 , 得出小于 1 的小数前面没有0End Sub Private Sub Command4_Click() If Text1、Text = Then 文本为空就结束Exit Sub End If Text1 、Text = Left(Text1、Text, Len(Text1、Text) - 1) 文本退一格End Sub Private Sub Command5_Click() Text1 、Text = 清除当前框内文本End Sub Private Sub Command6_Click(Index As Integer) s1 = Val(Text1、Text) 将 s1 隐藏起来ysf = Command6(Index) 、Caption Text1 、Text = End Sub Private Sub Command7_Click() If Left(Text1、Text, 1) - Then 判断作为负数Text1 、Text = - & Text1、Text Else Text1 、Text = Right(Text1、Text, Len(Text1、Text) - 1) End If End Sub Private Sub Command8_Click() Text1 、Text = Text1、Text * Text1、Text 平方End Sub 各位朋友 , 可以将红色代码复制到相应位置, 不清楚的可以全选复制, 但就是一定要按照我的步骤与给的名称来哦！精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 4 页 - - - - - - - - - - VB编写简易计算器( 附图 ) 还可以再添加按钮Private Sub Command9_Click() 这就是退出代码End End Sub 三、测试 , 成功的话给个好评哦！谢谢各位下载与支持！这个可以编写作为作业哦！精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 4 页 - - - - - - - - - -