Visual Basic程序设计示例教案.docVIP

《Visual Basic程序设计》课程教案首页 班级 06级道路1-3班 科目 Visual Basic程序设计 课的类型 理论课 学 时 数 2 教 学 内 容 第六章 过程 第一节 Sub过程的概念和调用 第二节 Function过程的概念和调用 重点 通用过程过程的概念、作用、分类及调用 难点 通用过程的定义、调用 教学 目的 理解过程的概念、作用，熟悉Visual Basic程序设计语言过程的分类；掌握过程的定义方法及调用方法，熟悉过程的具体应用。 教学 方法 概念的提出采用启发式教学方法，过程的定义、作用及调用主要通过对实际例子分析、程序的调试及比较的方法给出，突出重点；整个内容的安排采用由浅入深的方法，将教学的难点分散到整个教学过程中，前后呼应。 教具 计算机及投影仪 教学 进程 引入 第一节 通用过程的概念 一、问题提出 二、通用过程的分类： 三、Sub过程的定义 四、Sub过程的调用 第二节 Function过程 Function过程的定义 Function过程的调用 小结： 作业布置 课后 总结 作业 P184—188： 6.1（1、4、6）、6.4（5）  教学内容及进程 说 明 第六章 过程（板书） 引入：在应用程序中，若多个不同的时间过程都要执行某个相同的操作，就会使用一段相同的程序代码，为了避免代码程序代码的重复编写，VB允许把这一段相同的代码独立出来作为一个过程，供不同的事件过程调用，这样的过程就称为通用过程。 第一节 模板的概念（板书） 一、问题的提出 例如：求多边形面积问题（多媒体演示）： Private Sub Form_Click() Dim a!, b!, c!, d!, e!, f!, g! Dim p1!, p2!, p3!, s1!, s2!, s3! a = InputBox(输入a): b = InputBox(输入b): c = InputBox(输入c) d = InputBox(输入d): e = InputBox(输入e): f = InputBox(输入f) g = InputBox(输入g) p1 = (a + b + c) / 2 s1 = Sqr(p1 * (p1 - a) * (p1 - b) * (p1 - c)) p2 = (c + d + e) / 2 s2 = Sqr(p1 * (p1 - c) * (p1 - d) * (p1 - e)) p3 = (e + f + g) / 2 s1 = Sqr(p1 * (p1 - e) * (p1 - f) * (p1 - g)) Print s1 + s2 + s3 End Sub 问题：同样求三角形面积的代码重复使用了三次，能否使这一类问题只写一段代码来实现？ 解决的办法：对于重复使用的程序段，可以自定义一个过程，供多次调用。 （多媒体演示）： Public Function area(x!, y!, z!) As Single p = (a + b + c) / 2 area = Sqr(p * (p - a) * (p - b) * (p - c)) End Function Private Sub Form_Click() Dim a!, b!, c!, d!, e!, f!, g! Dim p1!, p2!, p3!, s1!, s2!, s3! a = InputBox(输入a): b = InputBox(输入b): c = InputBox(输入c) d = InputBox(输入d): e = InputBox(输入e): f = InputBox(输入f) g = InputBox(输入g) Print area(a, b, c) + area(c, d, e) + area(e, f, g) End Sub 结论： 二、通用过程的分类（板书） 在VB中，通用过程分为Sub过程及Function过程。如图所示（幻灯片）： 下面分别介绍Sub过程及Function过程。 三、Sub过程（板书） （一）、Sub过程的定义（板书） 格式（板书）： 例【6.2】编写一个判断素数的Sub过程，输出指定范围内的的所有素数。 1．分析（用活动板书形式） 2．程序（多媒体演示） 引入：采用集体提问的方式引入通用过程的概念。（3分钟） 问题提出：分析给出例子的共性，提出解决这一类问题 的办法：即通用过程 （4分钟） 打开已写好的程序，并调试、运行，并将输出结果与程序进行对比分析，重点是定义格式（12钟） 结论：通过对上面例子的的归纳，采