教学目标：能熟练运用CommandButton控件及TextBox控件，label控件进行Visual Basic(以下简称VB)程序的设计。
教学重点:运用开发VB程序一般过程的思路来开发“简易计算器”
教学难点:分析得出实现“简易计算器”各运算功能的算法。
教材分析：
当我刚开始进行程序设计的教学时，便感觉比较难教。这是因为程序设计本身枯燥、严谨，较难理解，而且学生大多数都是初学者，没有相应的知识基础。
教材为我们总结了设计VB程序的一般步骤：创建用户界面；设置控件属性；编写事件程序代码；运行应用程序。我总结了一下，其实VB程序设计可分为设计用户界面及编写程序代码，运行调试三个环节。 　
教学过程：

一、引入新课
任务：让学生按照书上提示完成一个非常简单的VB程序——“计算器”（仅包含开方、平方、求绝对值功能）的制作。
目的：加强对CommandButton控件及TextBox控件，label控件的掌握，复习对开方、求绝对值函数的使用。
引入本节课的学习任务：设计一个简易计算器，包含开方、平方，求绝对值等运算。程序界面可参考下图。

 

 

 

具体功能为：在Text1中输入一个数值，然后单击代表运算符的按钮则运算结果会在label2中显示出来；比如在text1中输入一个2，然后按“平方”按钮，再显示结果为4。 　
二、讲授新课 　
1．界面设计
因为VB是一种可视化的编程工具，其整个用户界面的设计都是基于“可视化操作”的，界面设计在VB程序设计中占有重要地位，一个好的界面，不但要令人感觉良好，还要使程序方便易用。让学生熟练掌握VB界面的设计是进行VB程序设计的前提。VB界面的设计主要包括控件的绘制及各控件属性的设置两种工作。
任务：让学生仿照上图设计“简易计算器”的主界面
目的：让学生熟练掌握VB界面设计的方法
上图所用到的8个命令按钮及2个文本框对应的属性如下表所示：

2.编写事件代码：
这是VB程序教学的重难点。我们应把程序代码的编写重点应放在算法（解决问题的方法和步骤）上面。为提高学生分析问题的能力，我为学生们总结出了一条VB编程的思路：根据题目要求，先分析需要几个控件（界面设计）；接着分析要创建什么事件、在每个事件中涉及到哪些控件的属性的变化、还要考虑发生该事件前可能出现的情况(编写代码)，那么通过分析，VB代码的编写问题就能迎刃而解了。
提高中学生分析问题的能力是在中学开展程序设计课程的重要原因之一。因此，让学生们按照某种可行的思路来分析、解决问题，无疑对提高他们分析问题的能力是大有帮助的
　
（1）四个按钮的代码编写
“平方”（command1）按钮中代码的编写：
　
A．编写代码前的分析（以提问题的方式让学生思考）：
提问：根据题目的要求，很显然是要编写command1的单击（click）事件，那么这一事件涉及到什么控件的什么属性变化？
回答：涉及到label2控件的caption属性变化；
提问：程序运行时，当我们在激发单击事件（即进行加法计算）之前，可能有什么情况发生？
回答：两种情况。正常情况：在text1中输入了正确的值；出错情况：text1中没输入值或输入了错误的值（比如输入了a）。
总结：我们要创建command1的事件代码，里面涉及到了text1的text属性的变化，并应从label2的caption属性中取得所输入的值.　
B.编写代码：让学生根据前面分析的结果编写代码
目的：培养学生自主完成任务的能力。

附：“平方”按钮的参考代码：
Private Sub Command1_Click()
’当没有输入数值的时候发出警告，注：当输入字母时并不影响计算结果故不作考虑
If Text1.Text = "" Then
  MsgBox  "请输入一个数值", 0, "警告"
Else
’用label2.caption来存放并显示结果

Label2.caption=”该数的平方数为：“&val(text1.text)^2
  End If
End Sub 

附：“开方”按钮的参考代码：

Private Sub Command2_Click()
’当没有输入数值的时候发出警告，注：当输入字母时并不影响计算结果故不作考虑
If Text1.Text = "" Then
  MsgBox  "请输入一个数值", 0, "警告"
Else
’用label2.caption来存放并显示结果

Label2.caption=”该数的开方数为：“&sqrval(text1.text)
  End If
End Sub 

附：“绝对值”按钮的参考代码：

Private Sub Command3_Click()
’当没有输入数值的时候发出警告，注：当输入字母时并不影响计算结果故不作考虑
If Text1.Text = "" Then
  MsgBox  "请输入一个数值", 0, "警告"
Else
’用label2.caption来存放并显示结果

Label2.caption=”该数的开方数为：“&absval(text1.text)
  End If

(3)其它按钮的代码编写

附：“退出”按钮的参考代码：

   Private Sub Command4_Click()

End

End sub

三、小结
对本节课所学内容进行简单小结，对学生上机时出现的问题进行归纳、点评。