用java编写计算器 用VB编写计算器

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

1、用java编写计算器用VB编写计算器导读：就爱阅读网友为您分享以下“用VB编写计算器”的资讯，希望对您有所帮助，感谢您对92to.com的支持!用VB编写计算器2007-01-0910:36一．实验目的用vb语言编写一个简易计算器二．实验要求1．能够完成浮点数的加，减，乘，除；（平方等）2．能够实现退格和清除功能；3．初始值为0.0；4．小数点不能重复输入；5．高位数的0不出现；6．应用控件数组实现。三．控件属性列表1、创建控件组的方法a、首先创建一个命令按钮，调整其大小—宽、高为495，名称为Command1，

2、aption属性为数字0。5b、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其Caption属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共19个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。c、建立其他控件：如右

3、图所示2、各控件属性设置如下：控件控件控件名称Caption控件名称Caption窗体Form1计算器按钮Command2（0）+按钮Command3退格按钮Command2（1）-*?按钮Command4.按钮Command2（2）按钮Command5=按钮Command2（3）/按钮command6+按钮Command7±按钮Command1（0）～Command1（9）Caption0～9各个属性修改后得到如图所示的界面四程序如下Dimshu1AsSingle,shu2AsSingle,suanfuAsSt

4、ring‘定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符PrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&Command1(Index).Caption5‘将command1的单击事件与文本框显示的内容连接EndSubPrivateSubCommand2_Click(IndexAsInteger)shu1=Val(Text1.Text)‘将shu1隐藏起来suanfu=Command2(Index).CaptionText1

5、.Text=EndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text+If(InStr(Text1.Text,第一位不能为小数Text1.Text=EndIfIfInStr(Text1.Text,’防止出现两个小数点Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)EndIfEndSubPrivateSubCommand5_Click()‘开始加减乘除的运算shu2=Val(Text1.Text)SelectCas

6、esuanfuCaseText1.Text=shu1+shu2CaseText1.Text=shu1-shu2CaseText1.Text=shu1*shu2CaseIfshu2=0ThenMsgBox分母不能为零!\错误错误提示框图下所示Text1.Text=Else5Text1.Text=shu1/shu2EndIfEndSelectEndSubPrivateSubCommand3_Click()‘假如输入错误,可每次退后一格IfText1.Text=ExitSubEndIfText1.Te

7、xt=Left(Text1.Text,Len(Text1.Text)-1)EndSubPrivateSubCommand6_Click()Text1.Text=清除EndSubPrivateSubCommand7_Click()‘平方运算Text1.Text=Text1.Text*Text1.TextEndSubPrivateSubCommand8_Click()IfLeft(Text1.Text,1)Text1.Text=ElseText1.Text=Right(Text1.Text,Len(Text1.

8、Text)-1)EndIfEndSubPrivateSubForm_Click()a=Int(Rnd()*255)b=Int(Rnd()*255)c=Int(Rnd()*255)Form1.BackColor=RGB(a,b,c)EndSubPrivateSubCommand6_Click()Text1.Text=清除5EndSubPrivateSubCommand7_