vb课后作业参考.ppt

1、简单的计算器应用程序设计任务 任务描述： 仿照Windows操作系统自带的计算器程序，设计一个计算器，完成加、减、乘、除四则运算。运行界面如图所示。,主要执行逻辑,1. 输入第一个数字。当单击数字区的数字时，文本框中将显示相应的数字，并能进行正负数变换。 2.输入四则运算符。当第一个数字输入完成后，可单击功能区的加、减、乘、除四则运算符。 3.输入第二个数字。当单击了某个运算符后，再单击数字区的数字时，文本框中将显示第二个数字。,主要执行逻辑,4. 进行计算。上述三步完成后，单击“计算结果”按钮，将在文本框中显示四则运算的结果。 5.重复计算。可在第四步的基础上，返回到第2步继续进行四则运算，

2、或者单击“清空”按钮并返回第1步，开始新的四则运算过程。 6.菜单操作。当单击“帮助”中的“关于”菜单项时，弹出“帮助”窗体。 7.退出系统。单击“退出”按钮结束程序。,1 界面布局,2 界面设计,创建一个“标准EXE”工程。 1.设置窗体属性 Caption”计算器“ MaxButtonFalse 2. 框架控件 Caption分别为“数字区”和“功能区” 3. 放置命令按钮,4. 放置文本框按钮,txtResult显示四则运算结果。 txtFirst存储四则运算的第一个数字。 txtSecond存储四则运算的第二个数字。 txtLabel存储四则运算符。 txtFirst、txtSecon

3、d、txtLabel文本框的Visible属性设置为False。,5. 设计菜单,在VB集成环境中通过“工具菜单编辑器”打开“菜单编辑器”。,3 代码设计,窗体的Load事件 Private Sub Form_Load() txtFirst.Text = txtSecond.Text = txtLabel.Text = “ txtResult.Text= End Sub,3 代码设计,(1)数字“0”按钮 Private Sub Command1_Click() 每单击一一下该按钮，就在文本框的尾部加字符“0” 如果txtLabel为空，则说明现在正在输入的是第一个数字 否则表示输入的是第二个

4、数字 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 0 Else txtSecond.Text = txtSecond.Text + 0 End If End Sub,3 代码设计,（2）数字“1”按钮 Private Sub Command3_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 1 Else txtSecond.Text = txtSecond.Text + 1 End If End Sub,3 代码设计,（3）数字“2”按钮 Priv

5、ate Sub Command4_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 2 Else txtSecond.Text = txtSecond.Text + 2 End If End Sub,3 代码设计,（4）数字“3”按钮 Private Sub Command5_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 3 Else txtSecond.Text = txtSecond.Text + 3 End If End Sub,

6、3 代码设计,（5）数字“4”按钮 Private Sub Command6_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 4 Else txtSecond.Text = txtSecond.Text + 4 End If End Sub,3 代码设计,（6）数字“5”按钮 Private Sub Command7_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 5 Else txtSecond.Text = txtSecond.Te

7、xt + 5 End If End Sub,3 代码设计,（7）数字“6”按钮 Private Sub Command8_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 6 Else txtSecond.Text = txtSecond.Text + 6 End If End Sub,3 代码设计,（8）数字“7”按钮 Private Sub Command9_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 7 Else txtSeco

8、nd.Text = txtSecond.Text + 7 End If End Sub,3 代码设计,（9）数字“8”按钮 Private Sub Command10_Click() If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + 8 Else txtSecond.Text = txtSecond.Text + 8 End If End Sub,3 代码设计,（10）数字“9”按钮 Private Sub Command11_Click() If txtLabel.Text = Then txtFirst.Text = txtFi

9、rst.Text + 9 Else txtSecond.Text = txtSecond.Text + 9 End If End Sub,3 代码设计,3. txtFirst文本框的Change事件 txtFirst文本框的Change事件 Private Sub txtFirst_Change() 每当txtFirst的内容发生变化时，将变化结果随时映射到txtResult txtResult.Text = txtFirst.Text End Sub,3 代码设计,txtSecond文本框的Change事件 Private Sub txtSecond_Change() 每当txtSecond

10、的内容发生变化时，将变化结果随时映射到txtResult txtResult.Text = txtSecond.Text End Sub,3 代码设计,4. 正符号（）命令按钮的Click事件 Private Sub Command2_Click() 如果txtLabel为空，则说明现在正在输入的是第一个数字 否则表示当前正这输入的是第二个数字 转换语句的主要含义是：首先用Val函数将txtFirst.Text转换为数字 然后再乘以-1 If txtLabel.Text = Then txtFirst.Text = -1 * Val(txtFirst.Text) Else txtSecond.

11、Text = -1 * Val(txtSecond.Text) End If End Sub,3 代码设计,5. “+”、”-”、”、”命令按钮的Click事件 “+”命令按钮的Click事件 Private Sub Command15_Click() txtLabel.Text = + End Sub “-”命令按钮的Click事件 Private Sub Command16_Click() txtLabel.Text = - End Sub,3 代码设计,5. “+”、”-”、”、”命令按钮的Click事件 “”命令按钮的Click事件 Private Sub Command12_Clic

12、k() txtLabel.Text = End Sub “”命令按钮的Click事件 Private Sub Command13_Click() txtLabel.Text = End Sub,6. “计算结果”（即“=”号）命令按钮的Click事件 Private Sub Command17_Click() 定义一个Double类型的变量 Dim MyResult As Double 以txtLable.Text的值为多重分支条件 Select Case txtLabel.Text Case + 当txtLabel.Text的值为+时 MyResult = Val(txtFirst.Text

13、) + Val(txtSecond.Text) Case - 当txtLabel.Text的值为-时 MyResult = Val(txtFirst.Text) - Val(txtSecond.Text) Case 当txtLabel.Text的值为时 MyResult = Val(txtFirst.Text) * Val(txtSecond.Text) Case 当txtLabel.Text的值为时 MyResult = Val(txtFirst.Text) / Val(txtSecond.Text) End Select txtResult.Text = MyResult 显示计算结果 E

14、nd Sub,3 代码设计,7. ”清空“命令按钮的Click事件 如果四则运算完成，希望进行另一表达式的四则运算 则单击此按钮 Private Sub Command14_Click() txtFirst.Text = txtLabel.Text = txtSecond.Text = txtResult.Text = End Sub,3 代码设计,8. ”帮助“菜单的调用 事先通过VB集成开发环境”工程-添加窗体“菜单 使用”关于“对话框模板创建一个关于窗体（名为frmAbout） 然后完成计算机应用程序的”帮助-关于”子菜单的Click事件代码 Private Sub About_Click() frmAbout.Show 1 End Sub 9. 退出命令按钮的Click事件 Private Sub Command18_