《用VB编写计算器》由会员分享，可在线阅读，更多相关《用VB编写计算器（3页珍藏版）》请在装配图网上搜索。
1、用VB编写计算器2007-01-09 10:36一实验目的用vb语言编写一个简易计算器二实验要求1能够完成浮点数的加，减，乘，除；（平方等） 2能够实现退格和清除功能；3初始值为0.0； 4小数点不能重复输入； 5高位数的0不出现； 6应用控件数组实现。三控件属性列表1、创建控件组的方法a、首先创建一个命令按钮，调整其大小一宽、高为495,名称为Commandl, aption 属性为数字 0 。b、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一 个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认
2、为“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）
3、按钮 Command 5 = 按钮 Command 2（3） / 按钮 command 6 + 按钮 Command 7 按钮 Command 1 （0）Commandl （9）Caption0 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 将
4、commandl的单击事件与文本框显示的内容连接 End SubPrivate Sub Command2_Click(Index As Integer)shul = Val(Textl.Text)将 shul 隐藏起来suanfu = Command2(Index).CaptionTextl.Text = End SubPrivate Sub Command4_Click()Textl.Text = Textl.Text + .If (InStr(Textl.Text, .) = l) Then 第一位不能为小数 Textl.Text = End IfIf InStr(Textl.Text,
5、.) Len(Textl.Text) Then防止出现两个小数点Textl.Text = Left(Textl.Text, Len(Textl.Text) - l)End IfEnd SubPrivate Sub Command5_Click() 开始加减乘除的运算shu2 = Val(Textl.Text)Select Case suanfuCase+Textl.Text = shul + shu2Case Textl.Text= shul- shu2Case*Textl.Text= shul* shu2Case/If shu2 = 0 ThenMsgBox 分母不能为零!, l + 32
6、+ 0,错误 错误提示框图下所示Textl.Text = Else Textl.Text = shul / shu2End IfEnd SelectEnd SubPrivate Sub Command3_Click()假如输入错误,可每次退后一格If Textl.Text = ThenExit SubEnd IfTextl.Text = Left(Textl.Text, Len(Textl.Text) - l)End SubPrivate Sub Command6_Click()Text1.Text = 清除End SubPrivate Sub Command7_Click() 平方运算Tex
7、t1.Text = Text1.Text * Text1.TextEnd SubPrivate Sub Command8_Click()If Left(Text1.Text, 1) - ThenText1.Text = - & Text1.TextElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Form_Click()a = In t(R nd() * 255)b = In t(R nd() * 255) c = In t(R nd() * 255)Forml.BackColor = RGB(a, b, c)End Sub
用VB编写计算器
