文档详情

VB编写简易计算器(附图).doc

发布:2018-09-22约2.33千字共4页下载文档
文本预览下载声明
用VB6.0编写简易计算器 效果图: 废话不多说,直接上步骤 一、创建控件组 1、创建控件组的方法?? 首先创建一个命令按钮,调整其大小(觉得合适就行),名称为Command1,Caption 属性为数字 0 ;然后进行“复制”和“粘贴”,当选择“粘贴”时,出现对话框提示已有一个同名控件,询问是否创建控件组,选择“是”后,即创建了一个名为“Command”的控件组。这时,第一个按钮的Index属性值默认为“0”,第二个的Index属性值自动设为“1”,并且大小与第一个按钮相同,只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮,共20个按钮,每建立一个,就将它拖到合适处,并修改相应的Caption属性值。 2、各控件组其属性设置如下: 控件名称功能/属性窗体Form 1简易计算器按钮Command1Command1(0)~ Command1(9)即:Caption 0 ~ 9按钮Command2小数点“.”按钮Command3等于号“=”按钮Command4退格按钮Command5清除按钮Command6Command6(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) 开始加减乘除运算 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的小数前面没有0 End 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(Tex
显示全部
相似文档