VB应用程序的设计方法——“简易计器”教学设计.docVIP

VB应用程序的设计方法——“简易计算器”教学设计 对象 属性 设置值 Command1 Caption + Command2 Caption - Command3 Caption * Command4 Caption / Command5 Caption 平方 Command6 Caption 开方 Command7 Caption 清除 Command8 Caption 退出 Text1 Text 0 Text2 Text 空白 Private Sub Command1_Click() ’当没有输入数值的时候发出警告，注：当输入字母时并不影响计算结果故不作考虑 If Text1.Text = Then MsgBox 请输入一个数值, 0, 警告 Else ’用text2.text来存放累加数值并显示结果 Text2.Text = Val(Text2.Text) + Val(Text1.Text) ’将text1.text置空，好接收下一个要计算的数值的输入。 Text1.Text = End If End Sub “/”按钮的参考代码： Private Sub Command4_Click() If Text1.Text = Or Val(Text1.Text) = 0 Then MsgBox 被除数不能能为0或者缺少除被数, 0, 警告 Else Text2.Text = Val(Text2.Text) / Val(Text1.Text) Text1.Text = End If End Sub (2)“平方”、“开方”按钮的代码编写 A.编写代码前的分析： 提问：(先演示“简易计算器”的开方运算功能)大家思考一下当要进行开方计算前应考虑哪些情况发生。提示：演示程序后提醒他们开方计算只需对一个数值进行计算； 回答：出错情况：text1、text2都无数值；正常情况一：text1有数值；正常情况二：text1无数值而text2有数值； 总结：根据演示可知当text1、text2都无数值时出错，当两者都有数值时应优先考虑text1中的值，若text1无数值才考虑text2中的值。因为是多种情况的（二种以上）故可用条件块结构语句来实现，当进行开方运算时还要考虑值为非负的情况。 B．编写代码： 任务：每两位同学为一组，每位同学负责平方或开方运算的一个功能的代码编写，最后再合二为一。 目的：通过反复训练培养学生自主完成任务的能力及团结合作的精神。 “平方”按钮的参考代码： Private Sub Command5_Click() If Text1.Text Then ’在text1中输入了数值； Text2.Text = Val(Text1.Text) * Val(Text1.Text) Text1.Text = ElseIf Text2.Text Then ’text1中无数值，而text2中有数值 Text2.Text = Val(Text2.Text) * Val(Text2.Text) Else ’即text1.text= and text2.text= MsgBox 请输入一个数值, 0, 警告 End If End Sub “开方”按钮的参考代码 Private Sub Command6_Click() If Text1.Text And Val(Text1.Text) = 0 Then ’在text1中输入了一个非负数； Text2.Text = Sqr(Val(Text1.Text)) Text1.Text = ElseIf Text2.Text And Val(Text2.Text) = 0 Then ’text1中无数值，而text2中有非负值； Text2.Text = Sqr(Val(Text2.Text)) Else ’除了上面两种情况外，此else包括了text1,text2无数值或要计算的值(text1或text2)为负数 MsgBox 请输入一个非负数值, 0, 警告 End If End Sub 　 (3)其它按钮的代码编写 分析：清除按钮实际上是将程序恢复到初始化（刚开始时）的状态，故只需将text1及text2的text属性改为原来的状态即可。代码如下： Private Sub Command7_Click() Text1.Text = 0 Text2.Text = End Sub 　 三、小结 对本节课所学内容进行简单小结，对学生上机时出现的问题进行归纳、点评