VB程序设计教案(详细)

2024年2月4日发(作者：)

1珙职高教案第1章VisualBasic6.0概述[课程引入]：先用教师机播放《VB教学实例程序演示系统》软件，将几个用VB编写的、有趣的典型应用程序实例，例如：倒计时、滚动字幕、学生学籍管理、自制IE浏览器等演示给学生，引入本课程，以提高学生的感性认识及学习兴趣。[课堂提问及讨论]：有哪些同学见过或使用过VB应用程序？试举例说明。[知识点讲解]：§1.1程序设计基础一、程序设计几个概念1、程序：是为解决某一问题而编写的语句集合，是将一个实际问题的具体操作用某种程序设计语言描述出来的指令序列。2、程序设计：是分析问题、编写程序、调试程序的过程。3、程序设计语言：是人们根据描述问题的需要而设计的，有固定的符号和语法规则、是计算机能够识别的人机交流所使用的语言。二、程序设计语言的发展概况1、机器语言2、汇编语言3、高级语言§1.2VisualBasic6.0简介一、VisualBasic6.0简介1、概念：VisualBasic6.0简称VB,是Windows环境下可视化的、面向对象的程序设计开发工具。其中：Visual英文原意是“可视的”、“视觉的”。6.0是版本号。2、VB功能：用它可以开发数学计算、数据库管理、客户/服务器软件、通讯软件、多媒体及Internet/Intranet软件等。其功能之强大绝非是早期Basic所能比拟的，其直观、通俗易懂，特别适合于初学者。3、VB发展过程：美国微软公司于1991年推出VB1.0版至今已经历了6个

2珙职高教案版本。4、VB中常用的几个基本概念：面向对象：面向对象编程是建立在类的基础上的，其通过类的封装而使源程序更加便于维护。事件驱动：在事件驱动模式下，程序的执行是依靠系统能够被识别的触发事件启动的。5、VB的版本：VB6.0是MicrosoftVisualStudio开发工具组件中的一员，它共有3个版本：标准版、专业版、企业版。教学中采用企业版。6、运行环境操作系统：NTServer4.0、Windows98，或更高版本。CPU：486DX/66MHz或更高的处理器。内存：Windows95／98下要求16MB以上的内存，WindowsNT下要求32MB以上。磁盘空间：对于标准版或专业版，典型安装48MB，完全安装80MB。对于企业版，典型安装128MB，完全安装147MB。其他设备：CD-ROM驱动器，鼠标。7、VB特点：◇具有面向对象的可视化设计工具；◇事件驱动的程序运行机制；◇提供了易学易用的应用程序集成开发环境。◇结构化的程序设计语言；◇支持多种数据库系统的访问；◇支持动态数据交换、动态链接库和对象嵌入技术；◇完备的联机帮助功能。8、VB安装（略）、帮助系统的使用（略）二、VisualBasic6.0启动、退出1、VB的启动

3珙职高教案双击桌面上的VB快捷方式图标，或单击桌面上“开始”按钮→“程序”→MicrosoftVisualBasic6.0中文版→Microsoft都可以启动VB6.0。2、VB的退出单击关闭按钮、ALT+F4快捷键、或通过菜单命令“文件退出”均可关闭并VisualBasic6.0中文版，退出VB集成环境。[课堂练习]：1、课后习题1：２。2、预习本章后面内容，思考课后习题1：3、6。[答疑]：针对学生提出的问题答疑。[小结]：本节主要讲解VisualBasic6.0可视化编程的基本概念、发展过程、特点及其启动、退出的方法。要求掌握全部知识点。[作业]：上机熟悉VisualBasic6.0的启动、退出及界面组成。预习第2章内容。

4珙职高教案§1.3VB的可视化开发环境[复习]：以提问的方式，复习上节所讲知识，检查学生掌握情况。[引入]：启动VB后，同学们见到的VB开发环境由哪几部分组成？这个问题即是本节要讲的内容。[知识点讲解]：一、VB的界面组成VB的界面由标题栏、菜单栏、工具栏、控件箱、窗体编辑窗口、工程资源管理窗口、属性窗口、窗体布局窗口等组成。（如教材图2-2所示）二、VB各部分功能简介1、菜单栏：是在集成开发环境下发布命令的最基本手段。VisualBasic顶级菜单有：文件、编辑、视图、工程、格式、运行、查询、图表、工具、外接程序、窗口、帮助，但菜单命令是通过子菜单中的子菜单项发出的。文件菜单：主要用于建立、打开、添加、移去、保存工程和文件，包括：新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存文件、文件另存为、打印、打印设置等子菜单项。编辑菜单：在对工程进行修改时，编辑菜单用于各种编辑操作。包括：撤消、重复、剪切、复制、粘贴、粘贴链接、删除、全选、查找、缩进、凸出、插入文件、属性方法列表、快速信息、参数信息书签等子菜单项。视图菜单：视图菜单用于显示各种窗口及和窗口有关的操作。包括：代码窗口、对象窗口、定义、最后位置、对象浏览器、立即窗口、本地窗口、监视窗口、调用堆栈、工程资源管理器、属性窗口、窗体布局窗口、属性页、表、缩放、显示窗格、工具箱、调色板、工具栏等子菜单项。工程菜单：用于为当前工程创建模块、作对象引用或提供各种设计器。包括：添加窗体、添加MDI窗体、添加模块、添加用户控件、添加属性页、添加用户文档、添加设计器、添加文件、移除、引用、部件、工程属性等子菜单项。格式菜单：用于界面设计，能使界面中的控件按规范排列。包括：对齐、统一尺寸、按网格调整大小、水平间距、垂直间距、锁定控件等子菜单项。

5珙职高教案调试菜单：用于调试、监视程序。包括：逐语句、逐过程、跳出、运行到光标处、添加监视、编辑监视、快速监视、切换断点、清除所有断点等子菜单项。查询菜单：各条命令用于数据库表的查询及相关操作。所提供的各种查询设计工具，使用户能够通过可视化工具创建SQL语句，实现对数据库的查询、修改。运行菜单：用于执行程序。包括：启动、全编译执行、中断、结束、重新启动等子菜单项。工具菜单包括：添加过程、过程属性、菜单编辑器、选项、发布等子菜单项。外接程序菜单用于为当前工程创建含有：可视化数据管理器、外接程序管理器等子菜单项。窗口菜单：用于调整已打开窗口的排列方式。包括：拆分、水平平辅、垂直平铺、层叠、排列图标等子菜单项。帮助菜单：用于给用户提供各种方式的帮助。包括：内容、索引、搜索、技术支持等子菜单项。[课堂练习1]：提问：若将界面上的某窗口误操作关闭，如何通过菜单将其重新打开？2、VisualBasic6.0工具栏工具栏的作用是可以通过单击其上面的图标按钮执行菜单命令，由此加快操作速度。VisualBasic能提供“编辑”、“标准”、“窗体编辑器”、“调试”等几个工具栏，用户也可以按自己的需要，通过“视图工具栏”菜单来选取“自定义”工具栏。3、VisualBasic6.0控件箱（又称工具箱）控件箱是VisualBasic为程序界面开发而提供控件的面板。默认为内置控件。除了VisualBasic内置控件之外，用户还可以通过菜单“工程部件”打开“部件”对话框，从中能添加控件、设计器或可插入对象到工具箱中，也可以引用已加载的控件工程。4、工程管理器窗口工程管理器又称工程资源管理器，它以层次列表的方式管理当前工程文件或

6珙职高教案工程组文件中所包含的窗体文件、模块文件、类模块文件等3种类型的文件。5、属性窗口属性窗口用于显示和设置窗体或控件的所有属性。它由3部分组成：对象列表框、属性列表框、属性含义说明。6、窗体布局窗口窗体布局窗口用于确定程序运行时窗体在屏幕上的初始位置。除了以上基本部分外，在VB程序设计中还有一个重要的窗口，即代码编辑窗口。[课堂练习2]：试设置默认窗体的背景颜色为红色，字体的颜色为黄色，试着在它上面“画”几个控件。[答疑]：针对学生提出的问题答疑。[小结]本章节主要讲VisualBasic6.0集成开发环境界面组成。本节内容可作为“字典”备查，不需全部掌握，编程用到时，再返回本节查看。重点掌握：文件、运行菜单；控件箱、属性窗口的使用即可。[作业]上机熟悉VisualBasic6.0的启动、退出及界面组成，控件箱、属性窗口的使用。

7珙职高教案§1.4VB可视化编程概念§1.5可视化编程初识[复习]：上节所讲VisualBasic6.0集成开发环境界面组成。[实例引入]：VB的第一个实例——“欢迎进入奇妙的VB世界”。先演示此例的运行结果，用以引入本节内容。[知识点讲解]：一、VB编程中用到的几个概念1、对象：（object）是代码和数据的集合，在VB环境中，常用的对象有工具箱中的控件、窗体、菜单、应用程序的部件，以及数据库等。对象有三个特征：属性、事件和方法。对象的属性：VB中每个对象都有一组特征，这组特征称为属性。属性设置方法：先选定对象，然后在属性窗口中找到相应属性直接设置；或编程在代码中设置，格式为：对象名·属性名=属性值。2、事件：对象的事件（Event）就是对象上所发生的事情。VB中事件是预先定义好的，能够被对象是别的动作，如：单击事件（Click）、双击事件（Dblclick）、装载事件（Load）、鼠标移动事件（MouseMove）等。对象的事件是固定的，用户不能建立新的事件，程序员只需编写必须相应的事件过程即可。事件过程的一般编写格式为：Sub……程序代码……Endsub3、方法：事件的方法与事件过程类似，它可能函数或过程，用于完成某种特定功能，而不能相应某个事件。如：对象打印方法（Print）、窗体显示方法（Show）、移动方法（Move）等。可用以下格式调用对象方法：对象名·方法名。例如：Form1·Show

8珙职高教案二、VB可视化编程的步骤一般步骤为：打开VB→新建工程→添加控件、设计应用程序界面→设置属性→编写代码→运行工程→修改工程→保存工程。1、新建工程：步骤：启动VB→新建工程，标准EXE。或者文件菜单→新建工程→标准EXE。2、添加控件、设计应用程序界面：方法：单击工具箱中的某控件图标，鼠标变成“+”指针，然后在窗体工作区按住鼠标左键拖动鼠标，松开即可在窗体上画出对应控件。3、属性设置：先选定对象，然后在属性窗口中找到相应属性直接设置；或编程在代码中设置，格式为：对象名·属性名=属性值。4、编写代码：打开代码编辑器，单击“对象”下拉列表框，从中选取相应对象，单击“过程”下拉列表框，从中选取相应事件，然后编写代码。5、运行工程：单击工具栏上的“运行”按钮或按F5键，即可运行工程。单击“退出”按钮或标题栏上的“关闭”按钮，即可结束工程运行。6、保存工程：单击“文件”菜单→“保存工程”或“工程另存为”或单击工具栏上的“保存工程”，即可保存工程。三、实例：实例1：VB的第一个实例——“欢迎进入奇妙的VB世界”。运行结果如图2-8所示。程序界面由一个文本框和一个命令按钮组成，单击命令按钮时，文本框会出现“欢迎进入奇妙的VB世界”字样。详见教材P10-12。具体操作步骤如下：1、设计界面：在窗体上画一个一个文本框和一个命令按钮。2、设置属性：按表2-1设置各对象的属性：控件名窗体Form1属性名caption属性设置值欢迎进入奇妙的

9珙职高教案VB世界文本框Text1命令按钮Command13、编写代码：命令按钮Command1的click事件过程代码为：=”欢迎进入奇妙的VB世界”4、运行应用程序：选择“运行|启动”、F5键、单击工具栏上“启动”按钮都可以运行该示例程序。5、保存工程：单击工具栏上的“保存”按钮即可保存该工程和窗体文件。（详细讲解并演示以上几个步骤的制作过程）[课堂练习]：上机实现以上实例。[答疑]：针对学生提出的问题答疑。[小结]可视化编程的概念、程序调试步骤。习题1：思考：习题2、3、5、6、7；上机：熟悉VB的界面，编程并上机实现：习题7。textcaption确定

10珙职高教案§1.5可视化编程初识[复习及作业讲解]：1、复习VB应用程序调试的全过程。2、讲解作业7题，并以此引入“工程”的概念。[知识点讲解]：一、VB的开发模式VB提供了3种开发模式：设计模式、运行模式和中断模式。二、VB工程概述1、工程文件(.vbp)：VB使用了称为“工程”的特殊文件来管理应用程序中所有不同的文件。它提供了与该工程有关的全部文件和对象的清单，每当保存工程时，VB都要更新工程文件。一个完整的工程中的文件包括：◇跟踪所有部件的工程文件（.vbp）；◇窗体文件（.frm）；◇窗体所对应二进制数据文件（.frx）；◇标准模块文件（.bas）。2、工程管理（1）新建工程：“文件|新建工程”、选择类型后“确定”。（2）打开工程：“文件|打开工程”。（3）保存工程：两种方法：直接保存和工程另存为。（4）向工程中添加文件：“工程|添加文件”将现存的文件添加到当前的工程文件中。（5）从工程中删除文件：在工程资源管理器中先选定要删除的文件，然后再选择“工程|移除文件”移除。3、启动窗体的设置：可以将工程中的任一个窗体设置为启动窗体，方法是：“工程|xxx属性…”，其中xxx为当前工程的名称。[课堂练习]：查看上节实例（第1个VB实例）所生成的工程文件及其他文件，注意其扩展名。

11珙职高教案[答疑]：针对学生提出的问题答疑。[小结]：本节主要讲解工程的概念、工程文件的组成、工程的管理等。要求了解工程文件的组成，掌握工程文件的保存、打开方法。[作业]：P18，习题2。笔答：习题1、2、3、4、6、10；上机：熟悉VB的工程，编程并上机实现：习题13。[拓展与提高]：试将习题13贴上一幅自己喜欢的图片。

12珙职高教案第3章VB简单应用程序的设计[复习、提问]：以提问方式复习上节所讲VisualBasic6.0工程知识。[实例演示、引入]：前面章节实例中用到的命令按钮、文本框等统称为——控件。在窗体上任意画若干个控件，演示其常见属性的设置，大小、位置的调整。用以引入本节内容。[知识点讲解]：§3.1控件概述一、控件概述1、控件：是建立VB应用程序的基本元素。可视化程序设计就是通过控件实现的。2、VB的控件分类：分为三大类：内部固有控件、ActiveX控件、可插入的对象。用户可以通过“工具箱”获取各种内部控件。内部控件是包含在VisualBasic系统内，可以直接使用的控件；因此具有相对较好的运行性能。3、常用的内部控件有：命令按钮、文本框、标签、框架、列表框、组合框、复选框、选项按钮、图片框、定时器、数据控件等。§3.2控件的常用属性1、属性的设置方法：有两种方法：一种是通过属性窗口来直接设置，另一种是在代码中设置。即：对象名称．属性名称=设置值例如：Command1．Caption=“确定”用代码设置的方法常用于动态地修改控件的有关属性。2、控件的常用属性Caption属性：也称标题属性，用于设置在控件上显示的文本内容。Name属性：对象在创建时所取的名字。编代码引用该对象时使用，这个名字不会出现在窗体上，且每个对象都有。Enabled属性：决定了对象在运行时是否允许用户操作。

13珙职高教案Font属性：用于设置字符的格式，如字体、字号、字形等。Height、Width、Top、Left属性：决定控件的大小、位置。ForeColor、BackColor：分别设置对象的背景色、前景色。§3.3控件的格式化1、2、3、控件的添加/删除：控件的大小与位置：窗体与控件的布局调整：两种方法：单击拖动、双击再移动。控件的位置调整有两种方法：一是用鼠标拖动对象，二是使用Ctrl+方向键。两种方法：一是通过“格式”菜单，二是通过“窗体编辑器”。[课堂练习]：上机练习：在窗体上任意画若干个控件，试完成其常见属性的设置，大小、位置的调整。§3.4基本控件的使用一、标签（Label）1、Label（标签）控件是专门用来显示文本的，因此用户不能对标签内的文本进行编辑。2、一般被用作标题名。通常用标签来标注本身不具有Caption属性的控件。例如，可用Label控件为文本框、列表框、组合框等控件添加描述性的文字。3、标签常用的属性有：Caption属性：缺省属性，设置标签中显示的文本内容。AutoSize属性：设置控件是否能自动调整以显示所有的内容。WordWrap属性：该属性设置是否扩大以显示标题文字。二、命令按钮（CommandButton）1、当用户需要交互式地控制应用程序的时候，最简便的方法就是给用户提供一个“命令按钮”。2、命令按钮的作用是：在用户单击它时，将会激发它的Click事件。因此，将代码写入命令按钮的Click事件过程，通过用户单击就可以执行相关操作。3、命令按钮的常用属性有：

14珙职高教案Cancel属性：用于设置按钮为取消按钮。Caption属性：用于设置在命令按钮上显示的文本。Style属性：设置命令按钮的外观。三、文本框（TextBox）1、TextBox（文本框）控件一般是用来接收或显示输入输出信息，可用于编辑文本。2、经常使用的文本框属性有：Text属性：用于设置显示的文本内容。MaxLength属性：用于设置文本框中输入字符串的长度限制。MultiLine属性：用于设置文本框是否以多行方式显示文本。PasswordChar属性：用于设置是否显示用户键入的字符。ScrollBars属性：用于设置文本框是否有垂直或水平滚动条。[答疑]：针对学生提出的问题答疑。[小结]本节主要讲三种基本控件的编程使用。要点：三种基本控件的常用属性的设置和编程实现。[习题]预习：实例1、2、3。思考：习题3：2、4、5。

15珙职高教案§3.4基本控件的使用——例题[提问]：以提问方式复习上节所讲VB6.0控件知识。[实例演示]：演示实例3-1，用以引入本节内容。[知识点讲解]：例题讲解：1、讲解并演示教材P27例3-1。实现步骤、编程代码：如教材P27（略）[课堂练习1]：上机实现例3-1。2、讲解并演示教材P28例3-2。[课堂练习2]：上机实现例3-2。3、演示教材P31例3-3。[课堂练习3]：上机实现例3-3。[答疑]：针对学生提出的问题答疑。[小结]本节主要以实例形式讲解三种基本控件的编程思路及编程方法。要求掌握重点语句的使用。[习题]习题32、4、5。编程并上机实现：7、11、12。要求：交上机作业。每人通过网络上传一个文件夹，文件夹以班级、姓名、学号为名字，内含3个可执行文件（EXE文件）。记一次平时成绩。

16珙职高教案“基本控件的使用”——习题课[学生演示]：指定学生演示实例3-1、3-3，检查学生例题掌握情况，并给其记一次平时成绩。[学生作业讲评]：针对所交作业中出现的共同问题讲评。[知识点讲解]：例1：课后习题P33-7。设计步骤（同以前例题，略），程序代码如下：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=e=LoadPicture("c:")e=LoadPicture("")EndIfEndSub[课堂练习1]：学生上机实现例1。例2：程序结果为分别在窗体上显示“今天是：”后分别显示当前年月日、时分秒。制作步骤（略），程序代码如下：PrivateSubCommand1_Click()n="欢迎使用："&Chr(13)&Chr(13)&"VBEndSubPrivateSubCommand2_Click()n="今天是："&Chr(13)&Chr(13)&Year(Date)&"年"_&Month(Date)&"月"&Day(Date)&"日"&Chr(13)&Chr(13)&Hour(Time)6"

17珙职高教案&"时"&Minute(Time)&"分"&Second(Time)&"秒"EndSubPrivateSubCommand3_Click()UnloadMeEndSub[课堂练习2]：学生上机实现例2。例3：P33习题12，程序结果如图3-10，程序代码如下PrivateSubCommand1_Click()‘红灯e=LoadPicture("c:programfilesMicrosoftstudiocommon……")e=e=falseEndSub另两段代码类似（略）。[课堂练习3]：学生上机实现例3。[答疑]：针对学生提出的问题答疑。[小结]本节主要通过课后习题讲解，使用学生训练掌握三种基本控件的编程知识及技巧。[习题]课后实验1，P243实验二、2（1）-（2）。要求：交上机作业P243实验二、2（1）-（2）。每人通过网络上传一个文件夹，文件夹以班级姓名学号为名，内含2个可执行文件（EXE文件）。visual

18珙职高教案[学生演示]：指定学生演示课后实验1，P243二、2（1）-（2）。，检查学生作业情况，并给其记一次平时成绩。[学生作业讲评]：针对以上演示中出现的问题讲评。[知识点讲解]：第4章一、常量与变量1、常量：是用标识符表示永远不变的数值或字符串。值得注意的是：常量不能象对变量那样在程序运行过程中给常量标识符赋以新值。常量有两种来源：内部的或系统定义的，其由VisualBasic系统或引用的对象提供；用户自定义的，其需要用Const语句来声明。用户自定义常量：用户自定义常量在使用前需要声明，由此使该标识符能够被程序识别。其语法是：[Public/Private]Const常量名[As类型]=常量表达式例如：ConstconPi=3.979ConstconMaxPlanetsAsInteger=9一旦已定义常量，就可将其放置在代码中使用。2、变量：在VisualBasic中执行应用程序期间，用变量临时存储数据。变量有名字（变量标识符）和数据类型（确定变量能够存储的数据的种类）。可以把变量看作内存中存放未知值的所在处。声明变量：声明变量就是事先将变量通知程序，由此使变量的使用合法。语法：Dim/Private/Public/Static变量名[As类型]例如：DimIAsInteger代码基础及程序结构§4.1数据类型

19珙职高教案PrivateYourNameAsString,BillsPaidAsCurrencyPublicTest,Amount,JAsInteger变量范围：变量的范围确定了能够知晓该变量存在的那部分代码。一个变量在划定范围时被看作是过程级变量、模块级变量，或是公用变量。这取决于声明该变量时采用的方式。过程级变量：过程级变量只有在声明它们的过程中才能被识别，也称它们为局部变量。局部变量只能用Dim或Static关键字来声明它们。例如：DimintTempAsIntegerStaticintPermanentAsInteger用Dim声明的变量只在过程执行期间才存在。而用Static声明的局部变量，则在整个应用程序运行期一直存在，称做：静态变量。模块级变量：模块级变量对该模块（包括：标准模块、窗体模块、类模块）的所有过程都可用，但对其他模块的代码不可用。可在模块顶部的声明段用Private或Dim关键字声明模块级变量。例如：PrivateintTempAsInteger公用变量：为了使模块级的变量在其他模块中也有效，需要用Public关键字声明。经过Public关键字声明的变量是公用变量，其值可用于应用程序的所有过程。只能在模块的声明段中用Public关键字声明公用变量，例如：PublicintTempAsInteger二、数据类型：所有变量都具有数据类型，以决定能够存储哪种数据。变量的数据类型决定了如何将代表这些值的位存储到计算机的内存中。除变量外，数据类型也用于其他场合。如在给对象属性赋值时，这个值就有数据类型；函数的参数也有数据类型。事实上，在VisualBasic中，凡是涉及数据就与数据类型有关，包括：变量、常量、数组，以及函数、过程中的参数。1、数值型数据

20珙职高教案VisualBasic支持几种数值数据类型—Integer（整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度浮点型）、Currency（货币型），另外，Byte（字节型）也可用于数值计算。所有数值变量都可相互赋值。在将浮点数赋予整数之前，VisualBasic将浮点数的小数部分四舍五入到整数。2、String数据类型String型变量用于存储字符串，如下列语句：DimSAsStringS="Database"在缺省情况下，String型变量是一个可变长度的字符串变量，随着对其赋予新数据，它的长度可增可减。但也可以声明具有固定长度String型变量，语法是：Dim/Private/Public/StaticvariablenameString*size3、Boolean数据类型若变量的值只是“true/false”、“yes/no”、“on/off”信息，则可将它声明为Boolean类型。Boolean的缺省值为False。4、Date数据类型用于存储Date和Time值，VisualBasic接受许多种文字的Date和Time格式。例如：DimSomeDateAsDateSomeDate=#1980-03-16#SomeDate=#3-6-9313:20#SomeDate=#March27，19931:20am#5、Object数据类型Object变量采用32位（4个字节）地址来存储对象，该地址可引用应用程序中或某些其他应用程序中的对象。可以随后（用Set语句）指定一个被声明为Object的变量去引用应用程序所识别的任何实际对象，如：DimobjDbAsObject

21珙职高教案SetobjDb=OpenDatabase("c:")6、Variant数据类型如果把数据赋予Variant变量，则不必在这些数据的类型间进行转换；VisualBasic会自动完成任何必要的转换。例如：DimSomeValueSomeValue="17"SomeValue=SomeValue-15SomeValue="U"&SomeValue7、自定义数据类型在模块的声明部分可以使用Type语句建立自定义数据类型。语法格式：[Private|Public]Type自定义类型名元素As类型…EndType[小结]：本节主要讲解常量、变量，几种数据类型的概念。要求学生理解。[作业]：思考：理解几种数据类型。

22珙职高教案[复习]：几种数据类型。[知识点讲解]：§4.2运算符和表达式一、运算符程序中对数据的基本加工，是依靠运算符实现的。在VisualBasic中运算符的类型有算术运算符、字符串运算符、关系运算符、逻辑运算符。1、算术运算符用来进行算术运算，有：+（加）、-（减）、*（乘）、/（除）、（整除）、Mod（求模）、^（乘方）等运算符。2、字符串运算符&、+运算符都能用于进行两个字符串的连接，但&运算符强制两个表达式按字符串连接，尽管被连接的表达式不是字符串也是如此。而+运算符则较复杂，当两个表达式都是字符串时按字符串连接，否则视具体情况会有不同结果。因此，在进行字符串连接时一般使用&运算符。3、运算符关系运算符包括：<（小于）、<=（小于或等于）、>（大于）、>=（大于或等于）、<>（不等于）和=（等于），用来反映两个数值或字符串表达式之间的关系。关系成立，返回True（真）；关系不成立，返回False（假）；两个表达式中若有Null，则返回Null。4、逻辑运算符逻辑运算符包括：Not（非）、And（与）、Or（或）、Xor（异或）、Equ（逻辑等于）和Imp（逻辑蕴涵），用于表达两个逻辑表达式之间的关系。在进行逻辑运算时，只要参入运算的表达式中有一个为Null，则将返回Null。5、运算符优先顺序在表达式中，当运算符不止一种时，要先处理算术运算符，接着处理比较运算符，然后再处理逻辑运算符。算术运算符优先级由高至低是：指数运算(^)、负数(–)、乘法和除法(*、/)、整数除法()、求模运算(Mod)、加法和减法(+、–)、字符串连接(&)。

23珙职高教案逻辑运算符优先级由高至低是：Not、And、Or、Xor、Eqv、Imp。所有比较运算符的优先顺序都相同。二、表达式通过常量、变量、运算符、函数等的组合，由此构成表达式。VisualBasic中的赋值运算符“=”用来给变量、数组或对象的属性赋值，即把运算符右边的内容（包括常量、变量、函数返回值或对象的属性）赋给运算符左边的变量或属性。语法格式：Variable=表达式其中variable可以是变量、数组的元素等。表达式可以是常数、常量、变量或函数调用，但必须有确定的值。[例题]计算下列表达式的值。解：2+3>5and5<3not5<3and6-2=10+2值为false值为true[答疑]：针对学生提出的问题答疑。[小结]：本节主要讲解几种运算符的作用及优先级。要求掌握并能够正确计算各类表达式的值。[作业]：P62习题5、6、7、8、9、10、11、12。

24珙职高教案§4.3程序流程[复习]：几种运运算符的作用及优先级。[讲解习题]：讲解上节课后习题。[实例引入]：演示例题：P66-3，以引入程序流程概念。[知识点讲解]：一、顺序流程控制程序的基本运行方式是自顶向下地顺序执行各条语句，被称做顺序结构。对于简单的问题，依靠顺序结构就可以完成任务；但对于稍微复杂一点的问题，单纯依靠顺序结构也许就不够了，而必须在程序中加入更多的控制。程序流程的控制是通过有效的控制结构来实现的，包括：分支结构、循环结构。二、分支结构分支结构的作用是使程序依照条件而走不同的支路。VisualBasic支持的分支结构有：If...ElseSelectCase程序中，往往根据需要选择合适的分支结构。If...Then语句用If...Then结构可以有条件地执行其结构内的一条或多条语句。语法格式：If条件表达式Then多条语句Else语句可以使用If...Else语句建立多个分支流程，并根据条件选择其中一个分支。语法结构：If条件1Then[语句块1]

25珙职高教案[ElseIf条件2Then[语句块2]]...Else[语句块n]]EndIfSelectCase语句类似。语法结构是：SelectCase测试条件[Case表达式1[语句块1]][Case表达式2[语句块2]][CaseElse[语句块n]]EndSelect三、循环结构循环的作用是允许某个程序段被重复执行。VisualBasic支持的循环结构有：Do...Next程序中，往往根据需要选择合适的循环结构。Do...Loop循环Do...Loop语句是通过计算条件值以决定是否继续执行，而产生循环效果。Do...Loop语句有几种演变形式。形式一：DoWhile条件表达式语句块

26珙职高教案Loop形式二：DoUntil条件表达式语句块Loop形式二Do语句块LoopWhile条件表达式形式四：Do语句块LoopUntil条件表达式Next循环在知道要执行多少次时，则可以使用Next循环。与Do循环不同，For循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For循环的语法如下：For计数器=初始值To终止值[Step增量]语句块Next[计数器]其中，参数：计数器、初始值、终止值和增量都必须是数值型的变量。Next循环Next循环与Next循环类似，但它是以对象集合中的每一个元素作为重复依据的，而不是按次数重复。如果不知道一个集合有多少元素，Next循环非常有用。语法格式：ForEach元素In集合

27珙职高教案语句块Next元素例题：P46例4-3详细讲解。[答疑]：针对学生提出的问题答疑。[小结]本节主要讲分支、循环结构程序设计。[作业及上机安排]上机调试例题：P46例4-3习题：P51：1-11。

28§4.3程序流程——例题[复习]：几种程序流程语句。[实例演示、讲解]：演示、讲解例题：以掌握程序流程编程思路。例4-4P47。代码略。[课堂练习1]：学生上机实现例4-4。例4-5P48。代码略。[课堂练习2]：学生上机实现例4-5。例4-6P49。代码略。[课堂练习3]：学生上机实现例4-6。例4-7P50。代码略。[课堂练习4]：学生上机实现例4-7。[答疑]：针对学生提出的问题答疑。[小结]本节主要掌握几种程序流程的编程方法、思路。[作业及上机安排]习题：P51：13、15题，要求全部编程，并上机实现。珙职高教案

29珙职高教案程序流程——习题课1[答疑]：针对编程作业中出现的问题答疑。[实例演示、讲解]：演示、讲解习题：以掌握程序流程编程思路。1、演示、讲解习题4-13P51。代码略。[课堂练习1]：学生上机实现上例。2、演示、讲解习题4-15P51。代码如下：PrivateSubCommand1_Click()Dima(1To10)AsIntegerDimb(1To10)AsIntegerFori=1To10a(i)=Int(100*Rnd):b(i)=a(i)Printa(i);"-";NextiPrintPrintFori=1To9Forj=i+1To10Ifb(j)

30珙职高教案[课堂练习2]：学生上机实现上例。[答疑]：针对学生提出的问题答疑。[小结]本节主要掌握几种程序流程的编程方法、思路,特别是排序的编程思路。[作业及上机安排]实验11-2，实验21-4。要求全部编程，并上机实现。

31珙职高教案程序流程——习题课2[复习]：循环编程技巧。[实例演示、讲解]：演示、讲解实验2、3：以掌握程序流程编程思路。1、演示、讲解实验2-1P245。代码略。[课堂练习1]：学生上机实现上例。2、演示、讲解实验3-1P245。代码如下：PrivateSubCommand2_Click()s=0Fori=1To99Step2s=s+iNextiPrintsEndSub[课堂练习2]：学生上机实现上例。3、演示、讲解实验3-2P245。代码如下：PrivateSubCommand3_Click()DimiAsIntegerDimjAsIntegerFori=6To1Step-1PrintTab(20-2*i);"★";Forj=1To2*i-1Print"☆";NextjPrint"★"NextiPrintTab(20-2*i);"☆"'PrintTab(20-2*i);"★"'★☆

32珙职高教案Fori=1To6PrintTab(20-2*i);"☆";Forj=1To2*i-1Print"★";NextjPrint"☆"NextiEndSub[课堂练习3]：学生上机实现上例。[答疑]：针对学生提出的问题答疑。[小结]：本节重点掌握图形的编程思路——数图形、找规律，结合双层循环进行程序设计。[作业及上机安排]要求全部编程，并上机实现P245实验3-3、4题。[演示实例、引入课程]：输出“圣诞树”编程实例，其中有重复输出，以引出过程概念。[知识点讲解]：第5章过程和函数过程是构成程序逻辑部件的基本单位，将程序分割成较小的逻辑部件可以简化程序设计任务，结构化设计就是建立在这个思路之上。在VisualBasic中使用的过程有：Sub过程——不返回值；又被叫做子过程。Function过程——返回值；又被叫做函数。一、子过程在VisualBasic中子过程包括通用过程和事件过程，它们的定义语法类似，差别是调用方式一般不同。通用过程往往是由程序中的语句调用。事件过程往往是由用户事件触发。二、通用过程

33珙职高教案通用过程是由程序中的语句调用的过程。它一般由用户根据需要自主建立，其作用是可以把一些公共的功能代码放在一个过程中，由此提高代码利用率，并使其更便于维护。可以将子过程放入标准模块、类模块和窗体模块中。定义通用过程的语法是：[Private|Public][Static]Sub过程名(形式参数列表)语句块过程参数过程的参数类似于变量声明，它声明了从调用过程传递进来的值的个数和数据类型。例如：PrivateSubAbut(XAsString,YAsInteger，Z)语句块EndSub设置参数类型是为了限定传递信息，在没有设置过程参数类型时，其具有Variant数据类型。调用过程调用过程的语法：all过程名（实际参数列表）或：过程名实际参数列表注意：实际参数列表，是往被定义过程的形式参数传递的数据；因此，其数据类型需要和形式参数保持一致。实际参数可以是常量、变量、数组，或复杂表达式，但无论是什么都必须有确定的值。三、事件过程VB中的某个控件对象的一个事件的发生时，便自动调用该控件的该事件过程。例如，一个名为cmdPlay的命令按钮被单击时所调用的事件过程是：cmdPlay_Click。窗体也属于控件，但其事件过程命名规则却和一般控件有所不同。窗体事件名是：词汇“Form”、下划线和事件名的组合。例如，窗体单击时所调用的事件过程是：Form_Click。EndSub

34珙职高教案通用过程和事件过程的关系四、函数过程在VisualBasic中，通过Function语句创建的函数过程和通过Sub语句创建的子过程类似。与子过程不同的是：Function过程可返回一个值到调用的过程。函数过程的语法是：Function函数名(形式参数列表)[As类型]语句块EndFunction函数过程需要返回的值由As子句设置。五、调用函数过程调用函数时可以有两种方式。方法一：把函数看作一个数，可以放在赋值号右端。例如：Tx1=MyFunc(5)方法二：作为参数出现在调用过程中或函数中。例如：Tx2=MyFunc(MyFunc(5)六、函数过程中返回值在函数过程内的语句块内，可以通过以下语句将值返回。函数名=表达式例如：FunctionHypotenuse(AAsInteger,BAsInteger)AsStringHypotenuse=Sqr(A^2+B^2)EndFunction[综合实例]：编程实现在窗体中输出如下所示“圣诞树”。

35珙职高教案代码如下：PrivateSubprstr(mAsInteger,nAsInteger)Fori=mTonPrintTab(20-2*i);"☆";Forj=1To2*i-1Print"★";NextjPrint"☆"NextiEndSubPrivateSubCommand4_Click()PrintTab(20-2*i);"★"prstr1,3prstr2,4prstr3,5Fori=1To6prstr2,2

36珙职高教案NextiEndSub[小结]：本节主要掌握自定义过程及其调用。[作业]：上机实现本节中实例。

37珙职高教案[实例演示、引入本节]演示包含多种控件的实例、引入本节。[知识点讲解]：第5章窗体与常用控件§6.1控件应用基础在VisualBasic中，事件是一种程序可以响应的动作。例如：用户单击某按钮、过了一段指定的时间等，这些都可称之为事件。事件驱动：每个控件都能识别特定类型的事件。例如：有的控件能识别鼠标的单击动作，有的可以响应自身值的变化等。而如果希望程序中的控件响应某一事件，则必须在事件过程中放置与该控件对应的代码，这就是事件驱动。一、基于事件编程VisualBasic中可能发生的事件有两种类型。1、用户触发事件：其由用户控制。如：Click事件，KeyPress事件都属于这种类型。2、系统环境事件：系统环境事件是由VB系统或程序控制的事件。例如：窗体的Load、Activate、Unload事件，时钟控件的Timer事件等。二、编写事件过程每个控件所能识别的事件可以从代码窗口中的下拉列表中看出来。当在控件列表框和事件列表框中选择确定的对象和事件后，VB将自动产生该对象事件的过程框架。三、常见用户触发事件1、Click、DblClick事件：当在一个对象上用鼠标单击按钮或按Enter键时，会发生单击Click事件；如果双击鼠标按钮则会发生双击DblClick事件。2、MouseDown、MouseUP和MouseMove事件:都是对鼠标操作的响应。分别在按下鼠标键时、松开鼠标键时、鼠标指针移到新的位置时发生的。3、GotFocus、LostFocus事件：当对象获得焦点时产生GotFocus事件；当对象失去焦点时产生LostFocus事件。4、KeyPress、KeyDown和KeyUp事件:是对用户键盘操作的响应。当用户按下和松开一个ANSI键时会发生KeyPress事件。KeyDown和KeyUp事件提

38珙职高教案供了最低级的键盘响应，当焦点在某个对象上时，则按下键盘将触发该对象的KeyDown事件，松开按键则会触发KeyUp事件。5、Change事件：当控件的内容发生改变时会被引发。[课堂讨论]：列举目前所见过的事件。四、事件的顺序大部分的控件都能响应诸如鼠标事件、键盘事件等。而这些事件往往不是单独发生的，他们之间有许多关联性。例如，单击鼠标时，可能会触发Click、DblClick、MouseDown、MouseUp等事件；按下键盘上的键时，又可能会触发KeyPress、KeyDown、KeyUp等事件。当焦点从某个控件移到另外一个控件时，会触发该控件的LostFocus和另一个控件的GotFocus事件。当一个动作会激发多个事件，而在其多个事件中都定义了代码时，就可能造成程序的冲突。因此我们必须弄清多个事件的激活顺序，从而保证程序的正确执行。当Click事件和DblClick事件过程中都有代码时，只会响应Click事件。当单击鼠标时，除了产生Click事件以外还可产生MouseDown和MouseUp事件。这三种事件发生的顺序根据控件的不同而不同。按下键盘上的键时，一般来说，键盘事件按照以下顺序发生：KeyDown、KeyPress、和KeyUp。五、控件数组1、控件数组：由类型相同、名称相同、事件过程都相同的一组控件构成。可有1—32767个元素。系统由index属性为其赋予了惟一的索引号，从0开始起。2、控件数组的应用：共用一段代码，一般和多分支语句selectcase语句结合使用。3、控件数组的创立：有两种方法：一是设计时创建，先画第一个元素控件，再复制粘贴；二是运行时创建，略。[答疑]：针对学生提出的问题答疑。

39珙职高教案[小结]本节理论内容讲解较多，只需重点了解几种常用事件及系统响应顺序即可。[作业及上机安排]上机实现例5-1，例5-2。

40珙职高教案[学生演示]先让两个学生分别演示例5-1，例5-2，针对出现的问题讲解编程重点。[实例演示、引入本节]演示例5-3所示“留言薄”实例，其中包含单选、复选按钮控件，以引入本节内容。[知识点讲解]：§5.2单选按钮与复选框一、单选按钮与复选框的创建单选按钮（OptionButton）被用于做从多个可选项中仅选择一项的操作。复选框（CheckBox）控件通常用于提供Yes/No或True/False的逻辑选择。复选框可以用于多项选择。创建单选按钮与复选框的方法与创建一般的控件相同。通常都将它们放置在相应的控件数组中以便管理。二、单选按钮与复选框的常用属性单选按钮与复选框也具有诸如Name、Caption、Width、Height、ForeColor、Enabled、Visible等常规属性，这些的设置与含义与前几章所讲的相同。特殊属性如下：1、Value属性指示单选按钮与复选框是否被选中，用来表示其所处的状态。单选按钮值为true表示选中，为false表示未选中。复选框值为0表示未选中，为1表示选中，为2表示禁止选择。2、style(风格)决定了单选按钮与复选框的检查风格。值为0是标准方式，为1是图形方式。三、单选按钮与复选框的使用单选按钮与复选框最常用的事件是Click事件。在其编程时主要解决两个问题：第一是当用户对单选按钮与复选框作出响应后，能准确判定出响应的位置及其取值；第二是在程序中如何主动地设置它们的各种状态。[例5-3]设计一个简单的留言簿，要求能改变输入文字的字体及字型。设计步骤如下：（1）在VB中创建一个窗体，在它上面放置1个标签、2个命令按钮（数组）、

41珙职高教案3个单选按钮（数组）、3个复选框（数组）。（2）设置各控件的属性如下表5-1所示：控件数组属性名称取值truetrue单选钮(optfont)value命令按钮default(cmdgrp)文本框Multilanescrollbars(3)编写代码如下：PrivateSubchkbiu_Click(IndexAsInteger)'复选框数组的单击事件过程ld=ld'改变粗体状态alic=alic'改变斜体状态derline=derline'改变下划线状态EndSelectEndSubPrivateSubcmdgrp_Click(IndexAsInteger)IfIndex=1ThenUnloadMeTrue2

42珙职高教案'命令按钮数组的单击事件过程IfIndex==""'清除文本框,并重置焦点usEndIfEndSubPrivateSubOptfont_Click(IndexAsInteger)'单选钮数组的单击事件过程,设置字体IfIndex=me="宋体"IfIndex=me="黑体"IfIndex=me="楷体_gb2312"EndSub（4）进行调试，运行结果如图5-3。[课堂练习]：1、上机实现例5-3。2、程序调试正确后，将其代码抄写在笔记本上。[答疑]：针对学生提出的问题答疑。[小结]：本节主要讲单选按钮与复选框的编程使用。要求掌握其特殊属性及编程方法——常以控件数组形式出现、结合select语句编程使用。[作业及上机安排]上机实现：将例5-3中增加一组单选按钮，功能为设置字号大小。

43珙职高教案[学生演示]先让学生演示5-3及上节作业，针对出现的问题讲解编程重点。[实例演示、引入本节]演示实例5-5，其中包含列表框控件，以引入本节内容。[知识点讲解]：§5.3组合框与列表框一、组合框与列表框列表框（ListBox）控件用于显示项目列表。用户可以从列表框中的一系列选项中选择一个或多个选项。ComboBox（组合框）控件将文本框和列表框的功能结合在一起。有了这个控件，用户可通过在组合框中输入文本来选定项目，也可从列表中选定项目。在使用方式上，组合框具有和列表框相似的特征。二、组合框与列表框的属性设置特殊属性有：List属性设置列表框中包含的项。设置是水平滚动还是垂直滚动。设置是否能够做多个选择。当前所选择元素的下标。列表中全部元素的个数。Columns属性ListIndex属性ListCount属性MultiSelect属性Sorted属性设置按字母顺序排列项目。组合框的特点是可由Style属性设置三种组合样式。三、组合框与列表框的使用列表框经常用到的操作有：1.添加项目：列表框.AddItemitem[,index]例如：m“王平”2.删除项目：列表框.RemoveItemindex例如：Item03.获得列表项目内容：列表框.List(index)例如：=(2)

44珙职高教案4.用ListIndex属性判断项目位置。5.用ListCount属性返回项目数。[例5-5]设计一个课程选择的窗体，运行后如教材P84图6-5。实现步骤如下：（1）在VB中创建一个窗体，在它上面放置3个标签、5个命令按钮、2个列有框。（2）设置各控件的属性如下表6-1所示：控件名列表框(lstkc)属性名称MultiselectSortedList列表框(lstbjkc)multiselect（3）代码如下：PrivateSubCommand1_Click()EndSubPrivateSubCommand2_Click()Fori=(i)NextiEndSubPrivateSubCommand3_Click()dexEndSubPrivateSubCommand4_Click()'删除全部项'删除选定的项‘全部添加‘添加(dex)取值TrueTrue如图6-9true

45珙职高教案EndSub[课堂练习]：1、上机实现例5-5。2、程序调试正确后，将其代码抄写在笔记本上。[答疑]：针对学生提出的问题答疑。[小结]：本节主要讲组合框与列表框的编程使用。要求掌握其特殊属性及编程方法。[作业及上机安排]上机实现：P103，习题6-10、6-15。

46珙职高教案[学生演示]先让学生演示6-5及上节作业，针对出现的问题讲解编程重点。[实例演示、引入本节]演示实例6-6，其中包含滚动条控件，以引入本节内容。[知识点讲解]：§5.4其他常用控件§5.4.1滚动条控件一、滚动条控件滚动条是一种模糊输入与定位的控件.当不需要精确设置数值,只要一个大概的范围时,如音箱的音量,使用滚动条来进行输入是非常方便的.注：由滚动条控件创建的滚动条与一般附加在文本控件上的滚动条是不一样的。因为附加在文本控件上的滚动条是自动出现的。二、滚动条的属性设置min、max属性：滚动条代表的最小值、最大值，在-32768--+32767之间。largechange属性：在滚动条上空白处单击时，滚动条数值的增减量。smallchange属性：单击滚动条两端的滚动箭头时，滚动条数值的增减量。value属性：滚动条的当前值。三、滚动条的使用滚动条的值发生变化时会引发Change事件。[例5-6]使用滚动条模拟实现调色板。结果如图5-10。实现步骤较简单，详见教材。主要编程方法是：在滚动条的Change事件过程代码中，要随时取其value属性的值。[课堂练习1]：1、上机实现例5-6。2、程序调试正确后，将其代码抄写在笔记本上。§6.4.2定时器控件定时器控件即可用于处理一些与时间有关的操作。定时器的功能是通过Timer事件实现的。Timer是周期性事件，即该事件是按一定的时间间隔定期地产生的。Timer事件之间的时间间隔由Interval属性来设置（毫秒数）。

47珙职高教案定时器的工作状况由Enable属性确定。设置Enable属性为True，定时器工作；而Enable属性为False，定时器则暂停工作。[例5-7]利用定时器控件使例5-6中的调色板自动调色。[课堂练习2]：1、上机实现例5-7。2、程序调试正确后，将其代码抄写在笔记本上。[答疑]：针对学生提出的问题答疑。[小结]本节主要要求掌握滚动条、定时器控件的几个特殊属性及编程应用的方法。[作业及上机安排]习题5-16。要求上机实现。

48珙职高教案[学生演示、引入本节]先让学生演示上节作业，针对出现的问题讲解编程重点，以引入本次习题课内容。[知识点讲解]：常用内部控件——习题课1一、分析课后习题5-15、5-16。二、给出解决问题的思路。三、在黑板上讲解编程过程及相应语句。四、演示具体实现步骤。[课堂练习]：1、上机实现习题5-15、5-16。2、程序调试正确后，将其代码抄写在笔记本上。[答疑]：给5分钟时间答疑。[小结]本节主要练习滚动条、定时器控件的几个特殊属性及编程应用的方法。[作业及上机安排]要求编程并上机实现，网上交作业。

49珙职高教案[学生演示、引入本节]先让学生演示，实验五第1-3题，针对出现的问题讲解编程重点，以引入本节习题课内容。[知识点讲解]：常用内部控件——习题课2一、分析课后实验五第1到3题。二、给出解决问题的思路。三、在黑板上讲解编程过程及相应语句。四、演示具体实现步骤。[课堂练习]：1、上机实现实验五第1到3题。2、程序调试正确后，将其代码抄写在笔记本上。3、注意比较各不同控件的编程语句的异同。[答疑]：给5分钟时间答疑。[小结]本节主要要求掌握几种常用控件的特殊属性及编程应用的方法及思路。[作业及上机安排]将本节中没完成的例、习题，上机实现。