《用vb编写计算器》word版

《《用vb编写计算器》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、用VB编写计算器2007-01-0910:36一．实验目的用vb语言编写一个简易计算器二．实验要求  1．能够完成浮点数的加，减，乘，除；（平方等）2．能够实现退格和清除功能；3．初始值为0.0；4．小数点不能重复输入；5．高位数的0不出现；6．应用控件数组实现。三．控件属性列表  1、创建控件组的方法  a、首先创建一个命令按钮，调整其大小—宽、高为495，名称为Command1，aption属性为数字0。b、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组

2、，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其Caption属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共19个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。c、建立其他控件：如右图所示2、各控件属性设置如下：控  件控  件控件名称Caption控件名称Caption窗体Form1计算器按钮Comm

3、and2（0）+按钮Command3退格按钮Command2（1）-*¸按钮Command4.按钮Command2（2）按钮Command5=按钮Command2（3）/按钮command6+按钮Command7±按钮Command1（0）～Command1（9）      Caption   0～9   各个属性修改后得到如图所示的界面              四  程序如下Dimshu1AsSingle,shu2AsSingle,suanfuAsString'定义两个单精度数变量用与存放参与运算的数,

4、一个字符型存放运算符PrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&Command1(Index).Caption'将command1的单击事件与文本框显示的内容连接EndSubPrivateSubCommand2_Click(IndexAsInteger)  shu1=Val(Text1.Text)  '将shu1隐藏起来  suanfu=Command2(Index).Caption  Text1.Text=""EndSubPr

5、ivateSubCommand4_Click()   Text1.Text=Text1.Text+"."If(InStr(Text1.Text,".")=1)Then  '第一位不能为小数          Text1.Text=""      EndIfIfInStr(Text1.Text,".")

6、ommand5_Click()  '开始加减乘除的运算shu2=Val(Text1.Text)   SelectCasesuanfu     Case"+"        Text1.Text=shu1+shu2     Case"-"        Text1.Text=shu1-shu2     Case"*"        Text1.Text=shu1*shu2     Case"/"        Ifshu2=0ThenMsgBox"分母不能为零!",1+32+0,  "错误"  '错误提示框图

7、下所示          Text1.Text=""       Else     Text1.Text=shu1/shu2                       EndIf            EndSelect     EndSub   PrivateSubCommand3_Click()   '假如输入错误,可每次退后一格IfText1.Text=""ThenExitSubEndIfText1.Text=Left(Text1.Text,Len(Text1.Text)-1)EndSubPriva

8、teSubCommand6_Click()  Text1.Text=""  '清除EndSubPrivateSubCommand7_Click()   '平方运算Text1.Text=Text1.Text*Text1.TextEndSubPrivateSubCommand8_Click()IfLeft(Text1.Text,1)<>"-"ThenText1.Text="-"&Text1.Text    Else