VisualBsic程序设计教案4.docVIP

VisualBasic程序设计教案（四） 王友权 课题 对象和基本控件（二） 班级 2012高考班 时间 2012-4-13 内容分析 这一节讲述的是对象和基本控件。本节主要介绍程序设计的基本概念和编程思想，学习最基本的控件窗体、按钮和文本框等属性设置、事件和方法的使用。在这一节中，属性、事件与方法是学习的重点，理解对象和类的基本概念及通过输入代码并运行程序来观察结果是学习的难点。 学习任务 对话框的设置 2、复习本章内容，做练习。 课前 准备 教 学 流 程 图 教学过程 教 师 活 动 学 生 活 动 预设时间 一、复习上节课学习的内容 一、复习上节课学习的内容： 1、窗体的常用属性、响应的事件及方法有哪些？ 2、如何利用属性窗口和代码窗口改变属性值？ 3、如何在属性窗口和代码运行中设置标签、文本框、按钮的属性。 15分钟 二、通过评讲作业题引入新课：对话框。 10分钟 三、讲述对话框的设计 讲解对话框的设计 实例1：消息框 设置一个文本框（文本框的Text属性为“钟祥市技工学校”）和一个按钮，当单击按钮时弹出一个“编辑文本”对话框，提示信息为“你要对文本框进行编辑吗？”，按钮只有“是”和“否”两个按钮，并能显示选择的结果。 Private Sub Command1_Click() Dim s As String s = MsgBox(你要对文本框进行编辑吗？, vbInformation + vbYesNo, 编辑文本) MsgBox (你选中的结果是： + s) End Sub 实例2：输入框 设置两文本框和一个按钮（Caption属性为“清除”），当单击“清除”按钮时弹出“输入框”，提示用户输入数据：0-清除左文本内容，2-清除右文本框内容。程序根据结果自动对选择的文本框进行清除操作。 Private Sub Command1_Click() s = InputBox(请输入一个数字：0-清除左文本内容，2-清除右文本框内容, 输入框示例, 0) If s = 0 Then Text1.Text = Else Text2.Text = End Sub 二、学习对话框的设计 (一)消息框（Msgbox函数） 语法格式： 变量=Msgbox（提示信息【，对话框类型【，对话框标题信息】） 语法格式说明： 1、消息框中的按钮样式设置值（P33表2-8） 2、消息框中的图标样式设置值（P33表2-9） 3、消息框按钮返回值（P33表2-10） （二）输入框（InputBox函数） 语法格式： InputBox(【提示信息】，【输入框标题信息】，【默认值】，【输入框X坐标】，【输入框X坐标】) 95分钟 四、复习本单内容 三、学生整理笔记 15分钟 五、布置课堂练习 做本章课后习题（P34-37） 四、学生做习题 25 六、讲解习题 五、学习改正错误 10分钟 布置作业 课后反思 The rectification measures: (LED Leadership: Luo Mingjun, rectification time: before September 25th, 1, long-term adherence) to solve the problem of lack of awareness of the harm of Party cadres the four winds. To further strengthen education and guidance on the implementation of the central eight provisions, the provincial nine provisions of the county committee of the ten provisions extensive publicity, eliminate thoughtBarriers The rectification measures: (LED Leadership: Luo Mingjun, rectification time: before September 25th, 1, long-term adherence) to solve the problem of lack of awareness of the harm of Party cadres the four winds. To further strengthen education and gui