vb计算器的程序设计(附代码)

《vb计算器的程序设计(附代码)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、计算器的VB程序设计要求：1）设计一个可以进行四则运算的简单计算器。该计算器可以进行加、减、乘、除、求模（取余）等简单的四则运算，并具有符合计算器日常使用习惯的容错纠错功能。具体步骤如下：①在界面上建立按钮控件数组：首先在窗体中置入一个命令按钮控件后，将其激活并点击右键通过“复制”、“粘贴”的方法依次产生19个一样的命令按钮控件，其中在创建第一个“粘贴”控件时VB会询问“是否要创建控件数组？”回答“是”即可开始依次创建该控件数组。②按钮属性的设置：将各按钮的caption属性分别设置为0，1，2……9，＋、－、×，/，Mod，＝，cls,Exi

2、t，注意在设置这些属性时其值与按钮控件的Index属性的对应性。③其它控件的属性设置：文本框作为显示操作数和结果的控件，应遵循一般计算器的显示习惯，将其Alignment即对齐属性设置为“Right”，此外，将各控件相关的字体、字号等设置为统一风格。④在程序的通用区定义四个窗体层变量：num1、num2、sum、act、前三个为双精度、act为整型变量。7⑤编写进行四则运算所需的程序作为命令按钮的单击事件过程。实验三参考代码一：•Dimnum1AsDouble,num2AsDouble•DimsumAsDouble•DimactAsIntege

3、r•PrivateSubForm_Load()•num1=0•num2=0•sum=0•EndSub•PrivateSubCommand1_Click(IndexAsInteger)•SelectCaseIndex•Case0•IfText1.Text=""Then•Text1.Text="0"•Else7•Text1.Text=Text1.Text+"0"•EndIf•Case1•IfText1.Text=""Then•Text1.Text="1"•Else•Text1.Text=Text1.Text+"1"EndIf•Case2•IfTex

4、t1.Text=""Then•Text1.Text="2"•Else•Text1.Text=Text1.Text+"2"•EndIf•Case3•IfText1.Text=""Then•Text1.Text="3"•Else•Text1.Text=Text1.Text+"3"•EndIf•Case47•IfText1.Text=""Then•Text1.Text="4"•Else•Text1.Text=Text1.Text+"4"•EndIf•Case5•IfText1.Text=""Then•Text1.Text="5"•Else•Text1

5、.Text=Text1.Text+"5"•EndIf•Case6•IfText1.Text=""Then•Text1.Text="6"•Else•Text1.Text=Text1.Text+"6"•EndIf•Case7•IfText1.Text=""Then•Text1.Text="7"•Else•Text1.Text=Text1.Text+"7"7•EndIf•Case8•IfText1.Text=""Then•Text1.Text="8"•Else•Text1.Text=Text1.Text+"8"•EndIf•Case9•IfText1

6、.Text=""Then•Text1.Text="9"•Else•Text1.Text=Text1.Text+"9"•EndIf•Case10•IfText1.Text=""Then•Text1.Text="."•Else•Text1.Text=Text1.Text+"."•EndIf•Case11•num1=CDbl(Text1.Text)‘强制转换双精度型•Text1.Text=""7•act=1•Case12•num1=CDbl(Text1.Text)•Text1.Text=""•act=2•Case13•num1=CDbl(Text1.

7、Text)•Text1.Text=""•act=3•Case14•num1=CDbl(Text1.Text)•Text1.Text=""•act=4•Case15•num1=CDbl(Text1.Text)•Text1.Text=""•act=5•Case16•num1=0•num2=0•sum=0•Text1.Text=""7•Case17•num2=CDbl(Text1.Text)•SelectCaseact•Case1•sum=num1+num2•Case2•sum=num1-num2•Case3•sum=num1*num2•Case4•

8、sum=num1/num2•Case5•sum=num1Modnum2•EndSelect•Text1.Text=""•Text1.Text=CStr