《用VB编写计算器.docVIP

用VB编写计算器 2007-01-09 10:36 一．实验目的 用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 Private Sub Command2_Click(Index As Integer) ?? shu1 = Val(Text1.Text)?? 将shu1隐藏起来 ?? suanfu = Command2(Index).Caption ?? Text1.Text = End Sub Private Sub Command4_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 Command5_Click()?? 开始加减乘除的运算 shu2 = Val(Text1.Text) ??? Select Case suanfu ????? Case + ???????? Text1.Text = shu1 + shu2 ????? Case - ???????? Text1.Text = shu1 - shu2 ????? Case * ???????? Text1.Text = shu1 * shu2 ????? Case / ???????? If shu2 = 0 Then MsgBox 分母不能为零!, 1 + 32 + 0,??错误?? 错误提示框图下所示 ?????????? Text1.Text = ??????? Else ????? Text1.Text = shu1 / shu2??????????????????????? End If???????????? End Select?????End Sub ???Private Sub Command3_Click()??? 假如输入错误,可每次退后一格 If