软件技术实验指导(实验3)

《软件技术实验指导(实验3)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验三、VB程序设计技巧（简单计算器和绘制三角函数任意选择一个做）实验知识点：练习VB程序设计的技巧。如：pictureBox的绘图方法，控件数组的应用，selectcase分支结构的掌握等实验要求：1）设计一个可以进行四则运算的简单计算器。该计算机除了可以进行加、减、乘、除、求模（取余）等简单的四则运算外，还要求可以进行四则混合连算，并具有符合计算器日常使用习惯的容错纠错功能。具体步骤如下：①在界面上建立按钮控件数组：首先在窗体中置入一个命令按钮控件后，将其激活并点击右键通过“复制”、“粘贴”的方法依次产生19个一样的命令按钮控件，其中在创

2、建第一个“粘贴”控件时VB会询问“是否要创建控件数组？”回答“是”即可开始依次创建该数组。②按钮属性的设置：将各按钮的caption属性分别设置为0，1，2……9，＋、－、×，/，Mod，＝，cls,Exit，注意在设置这些属性时其值与按钮控件的Index属性的对应性。③其它控件的属性设置：文本框作为显示操作数和结果的控件，应遵循一般计算器的显示习惯，将其Alignment即对齐属性设置为“Right”，此外，将各控件相关的字体、字号等设置为统一风格。④在程序的通用区定义四个窗体层变量：num1、num2、sum、act、前三个为双精度、ac

3、t为整型变量。⑤编写进行四则运算所需的程序作为命令按钮的单击事件过程。参考代码一：Dimnum1AsDouble,num2AsDoubleDimsumAsDoubleDimactAsIntegerPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0IfText1.Text=""ThenText1.Text="0"ElseText1.Text=Text1.Text+"0"EndIfCase1IfText1.Text=""ThenText1.Text="1"ElseText1.T

4、ext=Text1.Text+"1"EndIfCase2IfText1.Text=""ThenText1.Text="2"ElseText1.Text=Text1.Text+"2"EndIfCase3IfText1.Text=""ThenText1.Text="3"ElseText1.Text=Text1.Text+"3"EndIfCase4IfText1.Text=""ThenText1.Text="4"ElseText1.Text=Text1.Text+"4"EndIfCase5IfText1.Text=""ThenText1.Text=

5、"5"ElseText1.Text=Text1.Text+"5"EndIfCase6IfText1.Text=""ThenText1.Text="6"ElseText1.Text=Text1.Text+"6"EndIfCase7IfText1.Text=""ThenText1.Text="7"ElseText1.Text=Text1.Text+"7"EndIfCase8IfText1.Text=""ThenText1.Text="8"ElseText1.Text=Text1.Text+"8"EndIfCase9IfText1.Text=""T

6、henText1.Text="9"ElseText1.Text=Text1.Text+"9"EndIfCase10IfText1.Text=""ThenText1.Text="."ElseText1.Text=Text1.Text+"."EndIfCase11num1=CDbl(Text1.Text)Text1.Text=""act=1Case12IfText1.Text=""ThenText1.Text="-"Elsenum1=CDbl(Text1.Text)Text1.Text=""act=2EndIfCase13num1=CDbl(Te

7、xt1.Text)Text1.Text=""act=3Case14num1=CDbl(Text1.Text)Text1.Text=""act=4Case15num1=CDbl(Text1.Text)Text1.Text=""act=5Case16num1=0num2=0sum=0Text1.Text=""Case17num2=CDbl(Text1.Text)SelectCaseactCase1sum=num2+num1Case2sum=num1-num2Case3sum=num1*num2Case4sum=num1/num2Case5sum=

8、num1Modnum2EndSelectText1.Text=""Ifsum<1Andsum>0ThenText1.Text="0"+CStr(sum)ElseIf