VB程序设计实际应用教案研究

教材VisualBasic程序设计简明教程〔第二版〕龚沛曾著高等教育出版社东华理工大学地测学院主讲教师：丁伟翠3/24/2024参考书目VisualBasic实验指导与测试〔第二版〕．龚沛曾著．高等教育出版社．2003年VisualBasic程序设计〔二级〕教程．张更路著．清华大学出版社．2003年VisualBasic系统开发实例精碎．曹衍龙著．人民邮电出版社．2001年3/24/2024本课程学习方式课堂引导，课外补充多思考，多实践勤学，勤练调课通知：11-18周：周三5-6节2-401〔多〕调为周三1-2节1-503〔多〕周五1-2节阶一〔多〕调为周四3-4节1-503〔多〕实验：周五晚上11周七点-八点半2-209四楼12-18周6点半到九点半2-209四楼3/24/2024

面向对象程序设计方法把程序和数据封装起来视为一个对象，快速、高效地编制程序。VisualBasic是一种有代表性的较流行的可视化语言，利用它使得创立具有专业外观的用户界面的编程工作简单易行。课程总共80学时:50学时讲授，30学时实验。课程说明3/24/2024教学设想及安排期末考试成绩占60%〔填空，选择，编程〕实践成绩占25%平时成绩占15%联系方式：电子邮件：联系：3/24/2024VB程序设计一VB概述二简单VB程序设计三VB语言根底四根本控制结构五数组六过程七常用控件八界面设计九文件教学体系结构十图形十一数据库技术3/24/2024国家二级VB考试大纲内容比例VB程序开发环境5%VB对象及其操作10%数据类型及运算5%数据输入、输出5%常用标准控件和常用属性、事件和方法15%3/24/2024内容比例控制结构35%数组过程菜单和对话框5%多重窗体与环境应用5%数据文件5%VB与数据库10%3/24/2024第一章VB程序设计概述第二章VB简单的程序设计第三章VB语言根底第四章根本控制结构第五章数组第六章过程目录第七章常用控件第八章界面设计第九章文件第十章图形第十一章数据库技术3/24/2024第一章VisualBasic程序设计概述1.1VB的开展〔了解〕1.2VB功能特点〔了解〕1.3VB的安装和启动〔掌握〕1.4VB集成开发环境〔重点)3/24/20241.1VB的开展Visual意为“可视化”，指开发图形用户界面〔GUI〕方法，VB采用了可视化环境下、面向对象创作的方法〔即：前端界面也就如同摆放积木〕。3/24/2024VB的开展开展过程操作系统的开展：

Dos->WindowsBasic语言的开展：

Basic->QuickBasic->VisualBasicVisualBasic版本的开展：

VisualBasic1.0->2.0->…->6.0->.net本教程使用的版本是VisualBasic6.03/24/2024

VB版本简介学习版：开发Windows9x\NT\2000\XP应用程序。包括所有的内部控件〔标准控件〕以及网格、选项卡和数据绑定控件。专业版：面向计算机专家，包含学习版所有功能，附加ActiveX控件、InternetInformationServer应用程序设计器、集成数据工具和数据环境、ActiveDataObjects、以及动态HTML页面设计器。3/24/2024

企业版：允许专业人员以小组形式创立强健的分布式应用程序。它包括专业版所有特性，还包括BackOffice工具。例如：SQLServer、MicrosoftTransactionServer、InternetInformationServer、VisualSourceSafe、SNAServer等等。3/24/20241.2VB的功能特点可视化：面向程序设计方法〔OOP〕将程序和数据封装起来视为一个对象，每个对象都是可视的。事件驱动：在事件驱动模式下，程序的执行是依靠系统能够被识别的触发事件启动的。友好的开发环境3/24/2024

面向对象、结构化：面向对象编程是建立在类根底上，通过类的封装使源程序更加便于维护。同时有丰富的数据类型和结构化程序结构。支持多数据库访问支持动态数据交换DDE、动态链接库DDL、对象链接与嵌入OLE3/24/2024开发环境改进：工作组、代码编译器、工具属性提示、编译生本钱机代码创立ActiveX控件Internet开发：支持JPEG和GIF、访问Web、Internt传输控件、数据异步下载和Hyperlink超链接等VB6.0新增功能特点3/24/20241.3VB的安装和启动运行环境操作系统：NTServer4.0、NTWorkstation4.0、Windows95，或更高版本。CPU：486DX/66MHz或更高的处理器。内存：Windows95／98下要求24MB以上的内存，WindowsNT下要求32MB以上。磁盘空间：对于学习版或专业版，典型安装48MB，完全安装〔企业版〕需要80MB。其他设备：CD-ROM驱动器，鼠标等。3/24/2024安装 VB6是Microsoft公司发布的Windows和Internet平台开发系统VisualStudio6.0中的一个工具。因此，用户可以在VisualStudio6.0的安装过程中，通过选项，选择VB6.0进行安装,也可以单独安装。启动假设VB6.0是在VisualStdio6.0的安装过程中安装，单击“开始”“程序”MicrosoftVisualStdio6.0MicrosoftVisualBasic6.0中文版。假设单独安装了VB6.0，那么单击“开始”“程序”MicrosoftVisualBasic6.0中文版3/24/20243/24/2024上图“新建工程”对话框中，有三个选项卡：新建：创立新的工程。列出VisualBasic6.0可以创立的所有工程类型。现存：列出所有已创立的工程。最新：列出最近翻开过的工程及其所在的文件夹。选中该对话框中下端的“不再显示这个对话框”，那么在下次启动VisualBasic6.0时将不再显示“新建工程”对话框。3/24/2024单击字体变色字体加下划线，及倾斜

引例1.13/24/20241.4VB集成开发环境主窗口:应用程序窗口,由标题栏、菜单栏和工具栏组成窗体(Form)窗口:设计VB程序的界面代码(Code)窗口:编辑窗体、标准模块中的代码属性(Properties)窗口:所有窗体或控件的属性设置工程资源管理器(ProjectExplorer)窗口:保存一个应用程序所有的文件工具箱(toolbox)窗口:显示各种控件的制作工具,供用户在窗体上设计3/24/20241.主窗口标题栏菜单栏工具栏3/24/2024〔1〕标题栏通过标题栏确定VB的工作模式：设计模式运行模式中断模式3/24/2024〔2〕菜单栏菜单是在集成开发环境下发布命令的最根本手段。VisualBasic顶级菜单有13个：文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口、帮助。但菜单命令是通过子菜单中子菜单项发出。3/24/2024文件菜单

文件菜单主要用于建立、翻开、添加、移去、保存工程和文件，包括：新建工程、翻开工程、添加工程、移除工程、保存工程、工程另存为、保存文件、文件另存为、打印、打印设置、生成工程等子菜单项。3/24/2024编辑菜单在对工程进行修改时，编辑菜单用于各种编辑操作。包括：撤消、重复、剪切、复制、粘贴、粘贴链接、删除、全选、查找、缩进、凸出、插入文件、属性／方法列表、快速信息、参数信息书签等子菜单项。3/24/2024视图菜单视图菜单用于显示各种窗口及和窗口有关的操作。包括：代码窗口、对象窗口、定义、最后位置、对象浏览器、立即窗口、本地窗口、监视窗口、调用堆栈、工程资源管理器、属性窗口、窗体布局窗口、属性页、表、缩放、显示窗格、工具箱、调色板、工具栏等子菜单项。3/24/2024工程菜单工程菜单用于为当前工程创立模块、作对象引用或提供各种设计器。包括：添加窗体、添加MDI窗体、添加模块、添加用户控件、添加属性页、添加用户文档、添加设计器、添加文件、移除、引用、部件、工程属性等子菜单项。3/24/2024格式菜单格式菜单用于界面设计，能使界面中的控件标准排列。包括：对齐、统一尺寸、按网风格整大小、水平间距、垂直间距、在窗体中居中对开、顺序、锁定控件等子菜单项。3/24/2024调试菜单

调试菜单用于调试、监视程序。包括：逐语句、逐过程、跳出、运行到光标处、添加监视、编辑监视、快速监视、切换断点、去除所有断点、设置下一条语句、显示下一语句等子菜单项。3/24/2024运行菜单查询菜单中各条菜单命令用于数据库表的查询及相关操作。所提供的各种查询设计工具，使用户能够通过可视化工具创立SQL语句，实现对数据库的查询、修改。3/24/2024查询菜单运行菜单用于执行程序。包括：启动、全编译执行、中断、结束、重新启动等子菜单项。3/24/2024图表菜单图表菜单中各条菜单命令用于数据库中表、视图的各种相关操作。所提供的各种图表设计器，使用户能够用可视化的手段操作表及其相互关系，和创立和修改应程序所包含的数据库对象。3/24/2024工具菜单工具菜单包括：添加过程、过程属性、菜单编辑器、选项、发布等子菜单项。3/24/2024外接程序菜单外接程序菜单工程菜单用于为当前工程创立含：可视化数据管理器、外接程序管理器等子菜单项。3/24/2024窗口菜单窗口菜单用于调整已翻开窗口的排列方式。包括：拆分、水平平辅、垂直平铺、层叠、排列图标等子菜单项。3/24/2024帮助菜单帮助菜单用于给用户提供各种方式的帮助。包括：内容、索引、搜索、技术支持等子菜单项。3/24/2024〔3〕工具栏作用:通过图标按钮执行菜单命令，加快操作速度。“自定义”工具栏：可以通过“视图\工具栏”菜单项下子菜单项选取它们。

3/24/20242.窗体窗口设计窗体及其中的控件3/24/20243.属性窗口3/24/20244.工程资源管理器窗口3/24/2024工程资源管理器工程：指建立一个应用程序时所包含文件的集合，包括窗体文件、模块文件以及可以由VisualBasic6.0应用程序使用的任何类型的文件工程资源管理器的显示：显示当前所翻开的工程的信息状态和文件内容。假设翻开的是一个工程组，那么将显示整个工程组的所有工程信息。翻开：“视图”菜单中的“工程资源管理器”。3/24/2024工程资源管理器组成〔1〕标题栏：位于该窗口最顶端，显示工程名称。〔2〕工具栏：有三个按钮，功能：查看代码：查看与当前选定的对象相关的代码。查看对象：在窗体窗口显示选定的对象外观。切换文件夹：切换文件夹显示的方式。〔3〕列表窗口：列出了当前工程中包含的所有文件。工程资源管理器采用类似于资源管理器的树形文件结构图来显示工程中的资源。3/24/2024工程文件〔.vbp〕：跟踪所有对象。窗体文件〔.frm〕：存储有关窗体的信息。二进制数据文件〔.frx〕：每个窗体都有一个相应的二进制数据文件，它包含窗体上控件的属性数据。模块文件〔.bas〕：每个标准模块的一个文件。类模块文件〔.cls〕：每个类模块的一个文件。ActiveX控件文件〔.ocx〕：包含ActiveX控件的文件。资源文件〔.res〕：包含无须重新编辑代码便可以改变的位图、字符串和其他数据。工程包含的文件类型3/24/20245.代码窗口3/24/2024代码编写的具体操作：双击要编写代码的对象，翻开代码编辑器。从对象列表框中选取要编写代码的对象，从过程列表框中选取事件，系统将自动产生过程模板。在过程模板中填写处理事件的代码。3/24/2024代码的编写要遵循规那么：字母不区分大小写：VisualBasic6对代码会自动进行相应的转换(关键字转换为首字母大写，其余小写；对用户自定义字符，转换为第一次定义的形式)。语句书写自由：同一行上可写多条语句，语句间用“：”间隔；单条语句可分假设干行书写，换行处加续行符“_”〔空格加下划线〕，一行最多255个字符。注释：以Rem开头，或用’引导。3/24/20246.立即窗口、本地窗口、监视窗口主要用于程序的调试3/24/20247.窗体布局窗口设置窗体在启动时的初始位置。使用：用鼠标拖动窗体图像到目的位置。3/24/20248.对象浏览器窗口3/24/20249.工具箱窗口

工具箱是VisualBasic为开发提供控件面板，通过它往设计中的窗体设置各种控件。添加控件、设计器或可插入对象到工具箱中方法:通过菜单“工程\部件”翻开“部件”对话框。3/24/20243/24/2024控件说明3/24/20243/24/2024第二章VB简单的程序设计2.1对象的概念〔理解〕2.2建立简单的应用程序〔掌握〕2.3根本控件和窗体〔重点〕2.4工程的管理及环境的设置〔掌握〕2.5使用帮助系统〔了解〕2.6程序调试〔掌握〕3/24/2024程序设计方法开展初期的程序设计结构程序设计面向对象的程序设计

ObjectOrientedProgramming,简称OOP3/24/2024面向对象的程序设计思想：1、不再将问题分解为过程，而是分解为对象；2、对象有自己的数据〔属性〕，也包括作用于数据的操作〔方法〕和对象的响应〔事件〕；3、对象将自己的属性和方法封装成一个整体；4、强调“做什么？”，而不是“怎么做？〔结构化程序设计〕”。好处：符合习惯、易于维护和功能递减、可重用性加强、可视化工作界面3/24/20242.1对象的概念1.类类是创立对象实例的模板,包含了创立对象的属性描述和行为特征的定义。2.对象对象是类的一个实例,继承了类的属性、方法。VB中常用的对象有:窗体、控件等。3.对象的建立和命名每个对象必须有自己的名字〔Name属性〕，名字必须以字母或汉字开头，由字母、汉字、下划线、数字串组成，长度不超过255个字符。3/24/20244.对象的三要素〔1〕属性对象的性质，用来描述和反映对象特征的参数。设置方法1：“属性窗口”设置；设置方法2：代码窗口设置格式<对象名>.<属性名>＝<属性值>〔2〕方法对象的行为，将一些通用的过程编写好并封装起来，作为方法供用户直接调用。对象方法的调用格式为：[对象.]方法[参数名表]3/24/2024〔3〕事件响应对象的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。事件过程指附在该对象上的用户编写的程序代码,是事件的处理程序。事件驱动过程对用户控制的代码作出响应。3/24/2024事件过程的语法形式如下：

PrivateSub对象名_事件()处理事件的代码EndSub例如，如下程序段是当发生单击窗体事件时，在窗体上显示表达式的值。

PrivateSubForm_Click()Print-15*4Print"sfrt"+"567"EndSub3/24/20245.VB程序执行步骤：(1)启动应用程序，装载和显示窗体(2)窗体〔或窗体上的控件〕等待事件的发生；(3)事件发生时，执行对应的事件过程；(4)重复执行步骤〔2〕和〔3〕;(5)直到遇到“END”结束语句结束程序的运行或按“结束”强行停止程序的运行。3/24/20242.2建立简单的应用程序

例2.1输入字符转换程序转换规那么：大写字母转换成小写字母小写字母转换成大写字母空格不转换其余转换成“*”要求：每输入一个字符，马上就进行判断和转换。(对输入字符串txtinput的keypress事件编程)OptionExplicitPrivateSubcmdclear_Click()txtinput.Text=""'去除文本框内容txttran.Text=""'去除文本框内容EndSubPrivateSubcmdend_Click()EndEndSubPrivateSubtxtinput_KeyPress(KeyAsciiAsInteger)DimlAsIntegerl=Len(txttran.Text)'求字符串长度DimaaAsStringaa=Chr$(KeyAscii)'将ASCII码转换成字符SelectCaseaaCase"A"To"Z"'大写转换成小写aa=Chr$(KeyAscii+32)Case"a"To"z"'小写转换成大写aa=Chr$(KeyAscii-32)Case""aa=aa'空格不转换CaseElseaa="*"'其他字符转换成*EndSelecttxttran.Text=Mid$(txttran.Text,1,l+l)&aa'将转换文本框已有的内容与转换的字符连接EndSub3/24/2024创立一个应用程序分为以下几步进行：1.建立用户界面的对象2.对象属性的设置3.对象事件过程及编程4.程序运行和调试5.保存文件3/24/20242.3根本控件和窗体

一、常用属性1.Name名称属性创立的对象名称,有默认的名。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。2.Caption标题属性 该属性决定了控件上显示的内容。3/24/20243.Height、width、top和left属性4.Enabled属性

控件是否可操作。当设置为false时,呈暗淡色,禁止用户进行操作。3/24/20245.Visible属性

控件是否可见.当设置为false时,用户看不到，但控件本身存在。6.Font属性

Fontname字体Fontsize字体大小Fontbold是否是粗体Fontitalic是否斜体Fontstrikethru是否加一删除线Fontunderline是否带下划线3/24/2024在窗体是建立两个命令按钮Command1和Command2，Command2的Font通过属性窗口设置，其余属性通过代码实现。例2.2Font等属性设置3/24/20247.Forecolor前景颜色属性设置控件的前景颜色〔即正文颜色).其值是一个16进制常数，用户可以在调色板中直接选择所需颜色。8.Backcolor背景颜色属性9.Backstyle背景风格属性0-transparent：透明显示，控件背景颜色不显示1-opaque：不透明显示，可为控件设置背景颜色3/24/202410.BorderStyle边框风格属性0-None：控件周围没有边框1-FixedSingle：控件带有单边框。

11.Alignment属性(控件上正文水平对齐方式)0:正文左对齐1:正文右对齐2:正文居中12.AutoSize属性控件是否根据正文自动调整大小,False为默认值3/24/2024*13.WordWarp属性AutoSize=True时，WordWarp才有效。True：按正文字体大小在垂直方向上改变显示区域的大小；水平方向上不发生变化。False：按正文字体大小在垂直方向上改变显示区域的大小；按正文长度在水平方向上改变显示区域的大小。14.TabIndex属性决定了按Tab键时，焦点在各个控件移动的顺序。各个控件默认TabIndex值就是以控件建立时的顺序,第一个为0。3/24/202415.控件默认属性反映该控件最重要属性，使用时可省略属性名

注意：Command的默认属性为Default,当该属性为True，当按Enter键，该控件起作用。控件名默认属性控件名默认属性CommandButtondefaultTextBoxTextpictureBoxpictureLabelCaption3/24/2024效果控件设置例2.3属性设置效果3/24/20241.属性Caption标题MaxButtonMinButtonIconControlBoxPictureWindowsState〔0-正常、1-最小化、2-最大化〕二、窗体3/24/2024BorderStyle属性

0–窗体无边框，无法移动及改变大小1–窗体为单线边框，可移动、改变大小2–窗体为双线边框，可移动并改变大小，这是默认值3–窗体为固定对话框，不可改变大小4–窗体外观与工具条类似，有关闭按钮，不能改变大小5–窗体外观与工具条类似，有关闭按钮，能改变大小3/24/20242.事件Click、DblClick事件。Load事件:当装入窗体时激发，通常用于对属性和变量初始化3.方法Print、Cls和Move等。例2.4利用上述属性和Click、DblClick和Load事件演示窗体的变化过程。〔简单，略〕3/24/2024用于显示文本(输出)信息，不能作为输入信息界面。例2.5显示浮雕效果的文字。〔利用黑白错位叠加来实现浮雕效果〕实现方法：字颜色：Forecolor标签位置:Left、Top三、标签Label3/24/2024是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。1.主要属性Text:正文内容Maxlength:设置正文的最多字符个数,0任意长度值MultiLine:是否为多行,默认一行〔FALSE〕ScrollBars:当MultiLine为True时,该属性才有效,表示滚动条的形式：0-None、1-Horizontal、2-Vertical、3-Both。四、文本框TextBox3/24/2024Locked:

是否可被编辑属性，False，表示可编辑。PassWord:

口令字符，Text属性返回输入的数据,屏幕显示该字符。3/24/20242.常用事件Change:当改变文本框的Text属性时会引发该事件。KeyPress(KeyAsciiAsInteger):返回一个KeyAscii参数〔KeyAscii=13,按回车键;=10换行;=0去除刚输入的字符〕。LostFocus:当控件失去焦点时发生。GotFocus:当控件获得焦点时发生。3.常用方法[对象.]SetFocus:把光标移到指定的文本框对象中。3/24/2024要求：当输入结束时〔按Tab键〕，假设文本框输入的是正确的数据，那么显示正确信息；对输入的非数字数据，那么显示错误信息、去除文本框中的内容，并使焦点重新回到文本框。分析：Text2_LostFocus:当输入结束按Tab键时,该事件激发IsNumeric(Text2):判断是否输入非数字数据.Text2.SetFocus:使焦点重新回到文本框例2.6复制选中文本〔text2.text=text1.text〕

例2.7输入合法数据3/24/20241.主要属性Caption:命令按钮显示的内容,可设置快捷键。例:&Ok,显示OkValue:检查该按钮是否按下〔在设计时无效〕。Picture:按钮可显示图片文件(.bmp和.Ico)，只有当Style为1时此属性才有效。Style:显示形式.0只显示文字,1图文均可。ToolTipText：设置工具提示，结合Picture使用。2.事件ClickDblClick五、命令按钮CommandButton3/24/2024建立一个允许剪切、复制和粘贴的简单便笺板程序。增加内容：利用MouseMove事件决定命令按钮有效性，即中选中内容，“剪切”、“复制”按钮有效，否那么无效。例2.8简单便笺板3/24/2024形式为：[对象.]方法[参数列表]

1.Print方法[对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，]作用:

在对象上输出信息对象：窗体、图形框或打印机(Printer),省略对象在窗体上输出。Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n个空格，允许重复使用。六、常用方法3/24/2024；(分号)：光标定位上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。无；，表示输出

换行。注意：开始打印的位置是由对象的CurrentX和CurrentY属性决定，缺省为打印对象的左上角0，0。Print方法在Form_Load事件过程中起作用，必须设置窗体的AutoRedraw为True。3/24/2024PrivateSubForm_Click()Fori=1To5PrintTab(i);String(6-I,"▼");Spc(6);String(I,"▲")NextiEndSub思考：假设把Spc(6)换成Tab(6)，效果如何？〔tab()函数从对象的左端开始计数；space()函数表示两个输出项之间的间隔〕例2.9显示图形〔现场操作〕3/24/20242.Cls方法形式:[对象.]Cls作用:去除运行时在窗体或图形框中显示的文本或图形。注意:不去除在设计时的文本和图形。3.Move方法形式:[对象.]Move左边距离[，上边距离[，宽度[，高度]]]作用:移动窗体或控件，并可改变其大小。对象:可以是窗体及除时钟、菜单外所有控件。3/24/2024图形起始点(左上角)移到窗体的中心Image1.left=(Form1.ScaleWidth-Image1.Width)\2,Image1.top=(Form1.ScaleHeight-Image1.Height)\2使图像框的中心对准窗体的中心例2.10图形移动和变化3/24/2024七、应用举例例2.11编计算月支付贷款的程序。(综合使用前面属性及控件并介绍工程管理内容。)根据房产商提供的信息，买房者选择房型、面积、单价、按揭期等信息，计算每月支付代款的程序。〔有些数据不能改变〕Prmt函数计算月支付贷款。第一个窗体：列表框选择数据、标签显示数据、文本框输入数据；第二个窗体：图形框显示房屋的平面图。3/24/20242.4工程管理及环境设置一.工程的组成工程文件包含了一个应用程序的所有文件:工程文件〔.vbp〕：与该工程有关的所有文件和对象的清单。窗体文件〔.frm〕：控件及属性、事件过程和自定义过程。窗体的二进制数据文件〔.frx〕：自动产生同名.frx文件。3/24/2024标准模块文件〔.bas〕：包含模块级的变量和外部过程；用户自定义的、可供本工程内各窗体调用的过程。类模块的文件〔.cls〕：用于创立含有方法和属性的用户自己的对象。资源文件〔.res〕：包含位图、字符串和其他数据。 ActiveX控件的文件〔.ocx〕：可以添加到工具箱并在窗体中使用。二.创立、翻开和保存工程3/24/2024三.添加、删除和保存文件1.窗体名和窗体文件名概念不同：窗体名：窗体的Name属性，在代码中用来引用该窗体,同一工程不能有相同的窗体名；窗体文件名：窗体存放在磁盘上的文件名,该文件包含了该窗体的所有控件属性和代码,同一文件夹不能有相同的文件名。窗体文件名窗体名3/24/20242.工程添加：在工程中添加现存的窗体时，只是对该窗体文件的引用纳入工程。因此，如果更改窗体并保存它，会影响包含此窗体文件的任何工程。3.工程的删除：在工程中删除窗体时，仅将此窗体从工程里删除掉，但是窗体文件仍存在于磁盘上。但是，如果在VB之外删除一个窗体文件，VB不能更新此工程文件,当翻开此工程时，将显示一个文件丧失的错误信息。3/24/20244.对窗体文件改名:方法一：翻开工程：另存为…Form”实现文件的复制和保存工程文件方法二：利用编辑程序翻开工程文件,修改FORM=XXX的文件名四.环境设置使用“工具”菜单下的“选项”命令，实现对编程环境的设置。3/24/20242.5使用帮助功能1、“帮助主题”命令使用”目录“选项卡——选择分类主题名”索引”选项卡——键入“主题词”功能键F1——获取当前操作对象帮助内容2、使用“联机手册”MSDN启动两种方法(“帮助”菜单、“开始”菜单〕查找信息方法(目录表、关键词索引、全文查找〕3、使用上下文相关的帮助4、从Internet上获得帮助主页地址：vbasic/3/24/20242.6程序调试在程序的编写过程中查找和修改错误的过程称为“程序调试”。一、错误类型二、调试和排错3/24/2024一、错误类型编辑错误在编辑代码时，VB会对键入的代码直接进行语法检查。当发现代码存在打字错误，遗漏关键字或标点符等语法错误，VB在Form窗口中弹出一个子窗口，提示出错信息，出错的那一行变成红色。这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。3/24/2024编译错误编译错误指按了“启动”按钮，VB开始运行程序前，先编译执行的程序段时，产生的错误。此类错误由于用户未定义变量、遗漏关键字等原因产生。这时，VisualBasic也弹出一个子窗口，提示出错信息，出错的那一行被高亮度显示。3/24/2024运行错误运行时错误指VB在编译通过后，运行代码时发生的错误。这类错误往往是指令代码执行了一非法操作引起的。例如类型不匹配、试图翻开一个不存在的文件等。3/24/2024逻辑错误程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。例如，运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要程序员仔细地阅读分析程序以及调试。3/24/2024二、调试错误1.VB的三种模式设计模式[设计]

进行程序的界面设计、属性设置、代码编写等。运行模式[运行]

执行“运行/启动”命令，可以查看程序代码，但不能修改。中断模式[中断]

当在运行模式，按了“中断”命令或当程序出现运行时错误时进入中断模式。可以查看代码、修改代码、检查数据。3/24/20242.设置断点和逐语句跟踪断点：挂起程序执行的一个标记，当程序执行到断点处即暂停程序的运行，进入中断模式。设置或删除断点的步骤：中断模式下，直接查看某个变量的值，只要把鼠标指向所关心的变量处，稍停一下，就在鼠标下方显示该变量的值。3/24/2024断点标记当前行3/24/20243.调试窗口有三个调试窗口，它们是：“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令翻开这些窗口。“立即”窗口“本地”窗口“监视”窗口3/24/2024“立即”窗口：在调试窗口中使用最方便、最常用的窗口。可以在程序代码中利用Debug.print方法，或直接在该窗口中使用Print语句或“？”显示变量的值。3/24/2024“本地”窗口：显示当前过程中所有变量的值，当程序的执行从一个过程切换到另一个过程时，“本地”窗口中的内容会发生变化，它只反映当前过程中可用的变量。3/24/2024“监视”窗口：显示当前的监视表达式。在此之前必须在设计阶段利用“调试”菜单的“添加监视命令”或“快速监视”命令添加监视表达式以及设置的类型。3/24/2024思想：通过提前编写程序对所预料的错误进行响应，按程序设计的方法来处理错误。VB中提供了运行错误处理的方法和函数。*出错处理选讲3/24/2024〔1〕设置错误陷阱在程序适当地方参加一些语句来捕捉错误，一旦错误发生，程序将运行转移到错误处理的程序，根据所捕捉到的错误代码来判断怎么做。3/24/2024〔2〕编写错误处理程序程序出错时，错误处理程序根据可预见的错误类型决定采取那种措施。VB中提供了OnError语句来设置错误陷阱，捕捉错误号。3/24/2024

a.设置错误陷阱OnErrorResumeNext当发生错误时，忽略错误行，继续执行下一行语句。OnErrorGoTo当发生错误时，使程序转跳到语句标号所指示的程序块。OnErrorGoTo0当发生错误时，不使用错误处理程序。3/24/2024

b.编写出错处理程序当OnError语句捕捉到错误后，Err对象的Number属性指示对应的错误号。这时，在错误处理程序段中可是用以下语句来编写出错处理。语法：SelectCaseErr.NumberCase情况1……或IfErr.Number=……3/24/2024

c.退出错误处理可使用具有重新执行能力的指令Resume来退出错误处理程序，方法：Resume重新执行引起错误的语句ResumeNext当发生错误时，忽略错误行继续执行下一个语句。Resume<标号>当发生错误时，忽略错误行，并跳转到<标号>指示的语句继续执行。假设<标号>=0,程序终止。3/24/2024*补充:制作成安装盘1、生成可执行文件2、制作安装盘：打包和展开3、安装盘的检测选讲3/24/20241.生成可执行文件系统设置：将“工程”菜单--“工程属性”命令--“编译”选项卡--“编译为本机代码”〔而不是P-代码〕步骤：“文件”—“生成EXE”—选择生成可执行文件的文件名以及路径3/24/20242.制作安装盘安装盘主要文件决定要发行的文件、创立主安装程序、压缩适当的文件、磁盘发行布局、文件安装目录、修改setup.lst文件、创立发行媒体、检测安装程序。安装向导的操作过程：打包、展开。安装程序的检测注意：不要在原创立安装程序环境下检测。3/24/2024第2章小结对象的概念〔理解〕建立简单的应用程序〔掌握〕根本控件和窗体〔重点〕工程的管理及环境的设置〔掌握〕使用帮助系统〔了解〕程序调试〔掌握〕3/24/2024第三章VB语言根底3.1数据类型〔重点〕3.2变量与常量〔掌握〕3.3运算符和表达式〔掌握〕3.4编码规那么〔掌握〕3/24/20243.1数据类型1.标准数据类型2.用户自定义数据类型3/24/20241.标准数据类型3/24/2024数值型数据一般分为整型数和浮点数两类。整型数分为整数〔Integer〕和长整数〔Long〕，浮点数分为单精度浮点数〔Single〕和双精度浮点数〔Double〕。有时也把货币型数据〔Currency〕和字节型数据〔Byte〕划归数值型数据。整数〔Integer〕整数是不带小数点和指数符号的数，在机器内部以2字节二进制码形式表示。VB中用±n[%]来表示整数，其中%为整数的类型符，可以省略。如-123%、123%都表示整数。〔1〕数值型3/24/2024长整数〔Long〕整数的最大值为32767，大于此数，程序运行时就会因为溢出产生中断。此时可使用长整数。长整数用4字节二进制数存储，可以表示更大的整数，其取值范围为-2147483648--2147483647。VB中用±n&来表示长整数，其中&为长整数的类型符。如-1234&、987654&都表示长整数。

浮点数〔Double〕浮点数也称为实型数或实数，由符号、指数和尾数组成，分单精度浮点数〔Single〕和双精度浮点数〔Double〕，其指数局部分别用“E”〔或“e”〕和“D”〔或“d”〕表示。3/24/2024货币型〔Currency〕货币型属于定点实数或整数，用8位字节存储小数点前有15位，小数点后有4位，其余的数字被舍去，其表示形式为在数字后加上“@”。字节型〔Byte〕字节型数据用1个字节的无符号二进制数存储，取值范围为0-255。3/24/2024日期型数据按IEEE64位浮点数值存储，表示的日期从公元100年1月1日-9999年12月31日，时间范围为0:00:00-23:59:59。任何在字面上可以被认作日期的文本都可以赋值给日期变量，且日期文字必须用符号“#”括起来，如#January15,2002#，#1985-10-19:45:00PM#都是合法的日期型数据。

〔2〕日期型〔Date〕3/24/2024逻辑型数据只有两个值：真〔True〕和假〔False〕，用2字节二进制数存储，经常用来表示逻辑判断的结果。当把数值型数据转换为逻辑型数据时，0会转换为Flase，其它非0值转换为True。反之，当把逻辑型数据转换为数值型时，Flase转换为0，True转换为-1。〔3〕逻辑型〔Boolean〕3/24/2024〔4〕字符型〔string〕字符型数据是指一切可打印的字符和字符串，它是用双引号括起来的一串字符。两种类型字符串：变长字符串和定长字符串〔0到231范围内的字符〕dimaasstring*2(定长)dimbasstring〔变长〕注意：空字符串用“”表示，而“”那么表示有一个空格的字符串；另外在字符串中必须用两个连续的双引号来表示字符串有一个双引号。如字符串：abc“计算机”abc，表示为:"abc""计算机""abc"。3/24/2024〔5〕对象〔Object〕类型对象类型的数据主要是以变量形式存在的，Object变量通过32位〔4字节〕来存储，该地址可以引用应用程序中的对象。利用Set语句，声明为Object的变量可以被赋值并被任何对象所引用。3/24/2024又称为万用数据类型，它是一种特殊的、可以表示所有系统定义类型的数据类型。Variant数据类型是VB对所有未定义的变量的缺省数据类型的定义。变体数据类型对数据的处理可以根据上下文的变化而变化，除了定长string数据及用户自定义的数据类型之外，可以处理任何类型的数据而不必进行数据类型的转换。通过VarType函数可以检测Variant型变量中保存的具体的数据类型。〔6〕变体〔Variant〕类型3/24/2024*2.自定义数据类型定义格式：Type自定义类型名元素名[〔下标〕As类型名]…[元素名[(下标)]As类型名]EndType变量的声明时使用自定义数据类型：Dim变量名As自定义类型名引用形式：变量名.元素名选讲3/24/2024自定义数据类型举例关于高考考生的自定义类型：

TypeStuType

iNoAsInteger

strNameAsString*20Smark(1To4)AsSingle

fTagAsBooleanEndType变量的声明使用自定义数据类型：

DimStudentAsStuType引用形式：考生的姓名Student.strName

第4门成绩Student.Smark(4)3/24/2024应用自定义类型注意点元素名为自定义类型中成员；类型名为标准类型；自定义数据类型必须先〔通过Type语句〕定义，然后在变量的声明〔Dim…As…〕时使用自定义类型，最后用变量的引用〔变量名.元素名〕来表示变量中的某个自定义类型中的元素；自定义类型必须在标准模块〔.BAS〕中定义，默认是Public；定义的字符串必须是定长字符串；自定义数据类型名如同根本标准类型名，而通过变量的引用来决定变量的类型。3/24/20243.2变量与常量一.变量和常量的命名规那么变量：在程序运行中其存储的值可以改变。常量：在程序运行中其值不可以改变。命名规那么：1.以字母或汉字开头，后可跟汉字、字母、数字或下划线组成，长度小于等于255个字符；2.不要使用VB中的关键字；3.VB中不区分变量名的大小写；4.为了增加程序的可读性，可在变量名前加一个缩写的前缀来说明该变量的数据类型。3/24/2024二.变量声明1.用Dim语句显式声明变量形式:

Dim变量名[AS类型]Dim变量名类型符例:DimCountAsinteger,sumAssingle等价于:DimCount%,sum!2.隐式声明未进行上述的声明而直接使用,其类型为Variant类型建议不使用。注意:在通用声明处加OptionExplicit语句来强制显式声明变量。3/24/2024三.常量1.用户声明常量形式：Const常量名[AS类型]=表达式省略[AS类型],常量的类型由表达式值的类型决定为使与变量名区分，一般常量名使用大写字母例:ConstMAX=1002.系统提供的常量系统定义常量位于对象库中,可通过“对象浏览器”查看。例:vbNormalvbMinimized、vbbCrLf。3/24/20243.3运算符和表达式1.算术运算符

例：5+10mod10\9/3+2^2结果：？一.运算符3/24/20242.字符串运算符

＆、+

字符串连接

“123”

+

“456”结果“123456”“123”&“456”结果“123456”区别:+两边必须是字符串,&不一定例如:“abcdef”+

12345'出错 “abcdef”&

12345'结果为“abcdef12345”“123”+

456'结果为579“123”&

456'结果为“123456”3/24/20243．关系运算符将两个操作数进行大小比较,结果为逻辑量。字符串比较,那么按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止。3/24/2024实验过程中出现的问题:1.label.caption与text1.text2.label1,labell3.单击某按纽变灰.enabled=false4.标签加边框line.visible或者label1.borderstyle=1(比较效果)5.Text1_change,lostfocus,keypress过程(例正方形)6.移动到具体的位置,或者.top=.top+10,.left=.left+103/24/2024以后的实验课程全部是周五晚上上课,六点下课的可以稍微晚点去但要保证效率.算平时成绩.实验报告:单数实验的报告偶数学号交,双数实验的单数交.周五的实验下周一交,过期不收,本学期结课前每人次至少交三次.统一用实验报告纸书写.算实践成绩.作业:单数章的作业偶数学号交,双数章的作业单数学号交.统一用学校的作业本.算平时成绩.期末考试成绩占60%〔填空，选择，编程〕(闭卷,两小时,初步方案在最后一节课进行)实践成绩占25%(上机+实验报告)平时成绩占15%(出勤率+上课表现+上机表现+作业)3/24/20244.逻辑运算符将逻辑操作数进行逻辑运算，结果是逻辑值。逻辑运算符含义优先级说

明实例结果Not取反1当操作数为假时，结果为真NotTNotFTFAnd与2两个操作数都为真，结果为真TAndTFAndFTAndFFAndTTFFFOr或3两个操作数之一为真时，结果为真TOrTFOrFTOrFFOrTTFTTXor异或3两个操作数为一真一假时，结果为真，否则为假TXorTFXorFFFEqv等价4两个操作数相同时，结果为真TEqvTFEqvTTFImp蕴含5第一个操作数为真，第二个操作数为假时，结果为假，其余结果为真TImpFFImpFFT3/24/20241.组成：变量、常量、函数、运算符和圆括号。2.书写规那么〔1〕运算符不能相邻。例：a+-b是错误的〔2〕乘号不能省略。例：x乘以y应写成x*y〔3〕括号必须成对出现，使用圆括号〔4〕表达式从左到右书写3.不同数据类型的转换运算结果的数据类型向精度高的数据类型靠.Integer<Long<Single<Double<Currency4.优先级算术运算符>字符运算符>关系运算符>逻辑运算二、表达式3/24/2024逻辑表达式的书写：比a小，比b大用Orx>=3orx<-2a小数b大数b大数a小数比a大，比b小用Andx>-2andx<=3判断算术表达式正误：正确的VB表达式：3<=xAndx<=7错误的VB表达式：3<=x<=7错误的VB表达式：3<=xOrx<=73/24/2024例：用人单位招聘秘书条件：年龄小于40岁，女性，学历专科或本科年龄<40性别=“女”(学历=“专科”学历=“本科”)AndAndOr考虑：假设分别写成以下表达式是否正确年龄<40And性别=“女”And(学历=“专科”And学历=“本科”)年龄<40Or性别=“女”Or(学历=“专科”Or学历=“本科”)(p50)3/24/20241.数学函数〔p50〕Rnd函数返回0和1〔包括0但不包括1〕之间的双精度随机数。每次运行时，要产生不同序列的随机数，执行Randomize语句。例:产生1-100之间随机数:Int(Rnd*100)+12.转换函数Chr$(66)=“B” Asc(“B”)=66Asc(Chr$(99))=99Chr$(Asc(“K”))=“K”Ucase$(“abcde”)=“ABCDE”三、常用内部函数3/24/20243.日期函数Time：返回系统时间Date：返回系统日期DateAdd〔要增减日期形式，增减量，要增减的日期变量〕DateDiff〔要间隔日期形式，日期1，日期2〕例如：求两个时间相差的秒数DateDiff〔“s”,#19:3:23#,#19:4:24#〕=613/24/20244.字符串编码和函数字符串编码

Windows系统对字符采用DBCS编码,中文2字节,西文1字节,VB中对字符采用Unicode编码,任何字符2字节。

StrConv()函数进行DBCS编码与Unicode编码之间转换。例：

Len(“中国good”)=6LenB(“中国good”)=12

3/24/2024字符串函数Mid$(“ABCDEFG”,2,3)=“BCD”InStr(“ABCDEFG”,“EF”)=5S=Split(“123,56,ab”,“,”)

结果为：S(0)=“123”,S(1)=“56”,S(2)=“ab”Join(S,“”)

结果为：“12356ab" Replace(“ABCDABCD”,“CD”,“123”)

结果为：“AB123AB123”3/24/20245.格式输出函数：Format〔表达式[，格式字符串]〕例3.1利用Format函数显示有关的日期和时间。 Form_CLICK()效果〔现场演示〕 FontSize=12 MyTime=#9:21:30PM# MyDate=#7/21/97# PrintFormat(MyDate,"m/d/yy") PrintFormat(MyDate,"mmmm-yy") PrintFormat(MyTime,"h-m-sAM/PM") PrintFormat(MyTime,"hh:mm:ssA/P")'显示系统当前日期和时间 PrintFormat(Now,"yyyy年m月dd日hh：mm") '以系统预定义的格式显示系统当前时间 PrintFormat(Date,“dddd,mmmm,dd,yyyy”)‘dddd显示星期全名mmmm显示月份缩写3/24/20246.Shell函数能在DOS下或Windows下运行的应用程序，也可以在VB中调用。形式:Shell(命令字符串,窗口类型)只能调用的文件类型：.exe,.bat,窗口类型值为1表示正常窗口，缺省为窗口最小化。3/24/2024例：i=Shell("c:\windows\calc.exe")j=Shell("c:\windows\system32\command",1)3/24/20243.4编码规那么VB代码不区分字母的大小写。系统保存字自动转换每个单词的首字母大写用户自定义行以第一次为准语句书写自由。一行可书写几句语句,之间用冒号分隔;一句语句可分假设干行书写,用续行符连接_一行<=255个字符注释有利于程序的维护和调试。Rem开始或单撇‘保存行号与标号。〔3.1综合应用例子〕3/24/2024常见错误逻辑表达式书写错形成逻辑错。

例：数学表达式3≤x＜10表示为3<=x<10

问题在于VB中的逻辑量与数值量可互转同时给多个变量赋值，没有语法错而形成逻辑错。例:Dimx%,y%,z%x=y=z=1(类似p43)标准函数名写错。变量名写错。检查方法：在通用声明段加OptionExplicit语句书写位置错。通用声明段只能有Dim语句，不能有赋值等语句3/24/2024第四章根本控制结构4.1顺序结构〔掌握〕4.2选择结构〔重点〕4.3循环结构〔重点〕4.4其他辅助控制语句〔理解〕4.5常用算法〔一〕〔掌握〕3/24/2024程序设计的五个过程：分析问题、功能设计、系统实现、系统集成、系统测试。程序设计的三大根本结构：顺序结构、选择结构和循环结构。3/24/2024顺序结构AB条件AB分支结构条件A循环结构4.1顺序结构流程图：运用特定的图形和文字描述解题步骤的图示。3/24/2024形式:[LET]变量名＝表达式作用:将表达式的值赋值给变量名。(p61)例:Rate!=0.1Text1.Text＝“欢送使用VisualBasic6”注意：当表达式的类型与变量的类型不一致时,强制转换成等号左边的精度。s%=10/3s中的结果为31.赋值语句3/24/2024InputBox函数形式：变量[$]=InputBox(提示[，标题][，缺省][，x坐标位置][，y坐标位置])2.人机交互函数和过程作用：显示具有“确定”、“取消”两个命令按钮和一个文本框的对话框，返回文本框的字符。3/24/2024MsgBox函数和MsgBox过程函数形式:变量[%]=MsgBox(提示[,按钮][，标题])功能：显示对话框，并返回对话框中所选择的命令按钮对应的整数值。过程形式:MsgBox

提示[,按钮][,标题]功能：只显示对话框。3/24/2024MsgBox函数：变量[%]=MsgBox(提示[,按钮][，标题])i=msgbox(“密码错误”),5+vbexclamation,”警告”3/24/20241.If…Then语句(单分支结构)

If<表达式>Then语句块EndIf或If<表达式>Then<语句>注意：书写锯齿型If与EndIf配对4.2选择结构

一、if条件语句3/24/2024例:两个数x和y，比较它们的大小，使得x大于y。Ifx<yThent=xx=yy=tEndIf或Ifx<yThent=x:x=y:y=t思考：〔1〕假设条件变为x>y，结果如何？〔2〕假设数值交换语句次序变一下，结果如何？3/24/20242.If…Then…Else语句(双分支结构)If<表达式>Then<语句块1>Else<语句块2>EndIf或：If<表达式>Then<语句1>Else<语句2>3/24/2024计算分段函数：单分支结构实现:

y=cos(x)－x^3+3*xIfx<>0Theny=sin(x)+sqrt(x*x+1)双分支结构实现:

Ifx<>0Theny=sin(x)+sqrt(x*x+1)Elsey=cos(x)－x^3+3*xEndIf3/24/20243.If…Then…ElseIf语句(多分支结构)If<表达式1>Then<语句块1>ElseIf<表达式2>Then<语句块2>… [Else语句块n]EndIf3/24/2024例4.1帐号和密码检测要求:帐号不超过6位数字,有错,去除原内容再输入，密码输入时在屏幕上以“*”代替;假设密码错，显示有关信息，选择“重试”按钮，去除原内容再输入，选择“取消”按钮，停止运行。3/24/2024例4.2判断字符变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。用多分支结构实现:DimstrcAsString*1strc=InputBox("input")IfUCase(strc)>="A"AndUCase(strc)<="Z"ThenPrintstrc+"是字母字符"ElseIfstrc>="0"Andstrc<="9"ThenPrintstrc+"是数字字符"ElsePrintstrc+"其他字符"EndIf3/24/2024百分制成绩mark，显示对应的五级制成绩。思考：哪些正确，哪些错误？例4.3判定成绩等级方法一DimmarkAsIntegermark=InputBox("")Ifmark>=90ThenPrint"优"ElseIfmark>=80ThenPrint"良"ElseIfmark>=70ThenPrint"中"ElseIfmark>=60ThenPrint"及格"ElsePrint"不及格"EndIf正确3/24/2024方法三Ifmark>=60ThenPrint"及格"ElseIfmark>=70ThenPrint"中"ElseIfmark>=80ThenPrint"良"ElseIfmark>=90ThenPrint"优"ElsePrint"不及格"EndIf错误方法二DimmarkAsIntegermark=InputBox("")Ifmark<60ThenPrint"不及格"ElseIfmark<70ThenPrint"及格"ElseIfmark<80ThenPrint"中"ElseIfmark<90ThenPrint"良"ElsePrint"优"EndIf正确3/24/20244.If语句的嵌套If语句嵌套是指在then或Else后面的语句块中又包含If语句。形式一：

If<表达式1>ThenIf<表达式2>Then…EndIfElse…EndIf形式二：If<表达式1>Then…ElseIf<表达式2>Then…EndIfEndIf3/24/2024例4.4三个数比较大小x,y,z三个数，使得x>y>z。Ifx<yThent=x:x=y:y=tendifIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIfEndIf

思考：假设要是的x<y<z,程序如何更改？3/24/2024二、SelectCase语句(情况语句)SelectCase变量或表达式 Case表达式列表1 语句块1 Case表达式列表2 语句块2 … [CaseElse 语句块n]EndSelect注意：SelectCase后不能出现多个变量Case后不能出现变量及运算符3/24/2024<表达式列表>是与<变量或表达式>同一数据类型的下面四种形式之一：表达式例:“A”一组枚举表达式(用逗号分隔)2,4,6,8

表达式1To表达式260To100Is关系运算符表达式Is<603/24/2024例4.5用SelectCase语句判断字符SelectCasestrCCase"a"To"z"，"A"To"Z" PrintstrC+"是字母字符"Case"0"To"9" PrintstrC+"是数