VB学习基础——编写计算器

《VB学习基础——编写计算器》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一．设计要求1．能够完成浮点数的加，减，乘，除；（平方等）2．能够实现退格和清除功能；3．初始值为0.0；4．小数点不能重复输入；5．高位数的0不出现；二．控件属性列表1、创建控件组的方法a、首先创建一个命令按钮，调整其大小—宽、高为495，名称为Command1，aption属性为数字0。b、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，

2、只需修改其Caption属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共19个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。c、建立其他控件2、各控件属性设置如下：控件名称Caption控件名称Caption窗体Form1计算器按钮Command2（0）+按钮Command3退格按钮Command2（1）-按钮Command4.按钮Command2（2）?*按钮Command5=按钮Command2（3）/按钮command6+按钮Command7±按钮Command1（0）～Command

3、1（9）Caption0～9各个属性修改后得到如图所示的界面三程序如下Dimshu1AsSingle,shu2AsSingle,suanfuAsString'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符PrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&Command1(Index).Caption'将command1的单击事件与文本框显示的内容连接EndSubPrivateSubCommand2_Click(IndexAsInteger)shu1=Val(Text1.T

4、ext)'将shu1隐藏起来suanfu=Command2(Index).CaptionText1.Text=""EndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text+"."If(InStr(Text1.Text,".")=1)Then'第一位不能为小数Text1.Text=""EndIfIfInStr(Text1.Text,".")

5、ivateSubCommand5_Click()'开始加减乘除的运算shu2=Val(Text1.Text)SelectCasesuanfuCase"+"Text1.Text=shu1+shu2Case"-"Text1.Text=shu1-shu2Case"*"Text1.Text=shu1*shu2Case"/"Ifshu2=0ThenMsgBox"分母不能为零!",1+32+0,"错误"'错误提示框图下所示Text1.Text=""ElseText1.Text=shu1/shu2EndIfEndSelectEndSubPrivateSubCommand3_

6、Click()'假如输入错误,可每次退后一格IfText1.Text=""ThenExitSubEndIfText1.Text=Left(Text1.Text,Len(Text1.Text)-1)EndSubPrivateSubCommand6_Click()Text1.Text=""'清除EndSubPrivateSubCommand7_Click()'平方运算Text1.Text=Text1.Text*Text1.TextEndSubPrivateSubCommand8_Click()IfLeft(Text1.Text,1)<>"-"ThenText1.T

7、ext="-"&Text1.TextElseText1.Text=Right(Text1.Text,Len(Text1.Text)-1)EndIfEndSub