《VB计算器的程序设计(附代码).doc》由会员分享，可在线阅读，更多相关《VB计算器的程序设计(附代码).doc（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、计算器的VB程序设计要求： 1）设计一个可以进行四则运算的简单计算器。该计算器可以进行加、减、乘、除、求模（取余）等简单的四则运算，并具有符合计算器日常使用习惯的容错纠错功能。具体步骤如下： 在界面上建立按钮控件数组：首先在窗体中置入一个命令按钮控件后，将其激活并点击右键通过“复制”、“粘贴”的方法依次产生19个一样的命令按钮控件，其中在创建第一个“粘贴”控件时VB会询问“是否要创建控件数组？”回答“是”即可开始依次创建该控件数组。 按钮属性的设置：将各按钮的caption属性分别设置为0，1，29，、，/，Mod，cls,Exit，注意在设置这些属性时其值与按钮控件的Index属性的对应性。
2、 其它控件的属性设置：文本框作为显示操作数和结果的控件，应遵循一般计算器的显示习惯，将其Alignment即对齐属性设置为“Right”，此外，将各控件相关的字体、字号等设置为统一风格。 在程序的通用区定义四个窗体层变量：num1、num2、sum、act、前三个为双精度、act为整型变量。 编写进行四则运算所需的程序作为命令按钮的单击事件过程。 实验三参考代码一： Dim num1 As Double, num2 As Double Dim sum As Double Dim act As Integer Private Sub Form_Load() num1 = 0 num2 = 0 s
3、um = 0 End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 If Text1.Text = Then Text1.Text = 0 Else Text1.Text = Text1.Text + 0 End If Case 1 If Text1.Text = Then Text1.Text = 1 Else Text1.Text = Text1.Text + 1 End If Case 2 If Text1.Text = Then Text1.Text = 2 Else Text1.Te
4、xt = Text1.Text + 2 End If Case 3 If Text1.Text = Then Text1.Text = 3 Else Text1.Text = Text1.Text + 3 End If Case 4 If Text1.Text = Then Text1.Text = 4 Else Text1.Text = Text1.Text + 4 End If Case 5 If Text1.Text = Then Text1.Text = 5 Else Text1.Text = Text1.Text + 5 End If Case 6 If Text1.Text = T
5、hen Text1.Text = 6 Else Text1.Text = Text1.Text + 6 End If Case 7 If Text1.Text = Then Text1.Text = 7 Else Text1.Text = Text1.Text + 7 End If Case 8 If Text1.Text = Then Text1.Text = 8 Else Text1.Text = Text1.Text + 8 End If Case 9 If Text1.Text = Then Text1.Text = 9 Else Text1.Text = Text1.Text + 9
6、 End If Case 10 If Text1.Text = Then Text1.Text = . Else Text1.Text = Text1.Text + . End If Case 11 num1 = CDbl(Text1.Text) 强制转换双精度型 Text1.Text = act = 1 Case 12 num1 = CDbl(Text1.Text) Text1.Text = act = 2 Case 13 num1 = CDbl(Text1.Text) Text1.Text = act = 3 Case 14 num1 = CDbl(Text1.Text) Text1.Te
7、xt = act = 4 Case 15 num1 = CDbl(Text1.Text) Text1.Text = act = 5 Case 16 num1 = 0 num2 = 0 sum = 0 Text1.Text = Case 17 num2 = CDbl(Text1.Text) Select Case act Case 1 sum = num1 + num2 Case 2 sum = num1 - num2 Case 3 sum = num1 * num2 Case 4 sum = num1 / num2 Case 5 sum = num1 Mod num2 End Select Text1.Text = Text1.Text = CStr(sum) Case 18 End End Select End Sub