《VB6.0教程ppt课件》由会员分享,可在线阅读,更多相关《VB6.0教程ppt课件(292页珍藏版)》请在金锄头文库上搜索。
1、Visual Basic 程序设计简明教程程序设计简明教程第一章 Visual Basic程序设计概述(1)第二章 VB简单的程序设计(3)第三章 VB语言基础(2)第四章 基本的控制结构(8)第五章 数组(4)第六章 过程(5)第七章 常用控件(4)第八章 界面设计(3)第九章 文件(2)第十章 图形(3)第十一章 数据库技术(1)1第一章第一章 Visual Basic程序设计概述程序设计概述(1学时)学时)1.1 引例1.2 VB主要功能和特点1.3 VB集成开发环境21.1 引例引例1.1 一行内容在窗体上、下移动(也可左、右移动)。 移动两种方法:手动和自动。 当内容超出窗体,进行反
2、弹。 31.1 引例引例 2.1 对输入的字符进行转换的程序。 转换规则: 大写字母转换成小写字母, 小写字母转换成大写字母 空格不转换 其余转换成“*”。要求:每输入一个字符,马上就进行判断和转换。通过上述两例说明VB面向对象、可视化、事件驱动的特点。41.2 VB主要功能和主要功能和特点特点1.具有面向对象的可视化设计工具2.事件驱动的编程机制3.提供了易学易用的应用程序集成开发环境4.结构化的程序设计语言5.支持多种数据库系统的访问6.Active技术7.VB6在开发环境上、网络功能等的增强8.完备的help联机帮助功能51.3 VB集成开发环境集成开发环境61.1.主窗口主窗口应用程序
3、窗口,由标题栏、菜单栏和工具栏组成2.2.窗体窗体(Form)(Form)窗口窗口设计VB程序的界面3.3.代码代码(Code)(Code)窗口窗口编辑窗体、标准模块中的代码4.4.属性属性(Properties)(Properties)窗口窗口所有窗体或控件的属性设置5.5.工程资源管理器工程资源管理器(Project Expror)(Project Expror)窗口窗口保存一个应用程序所有的文件6. 6. 工具箱工具箱(toolbox)(toolbox)窗口窗口显示各种控件的制作工具,供用户在窗体上设计7第二章第二章 VB简单的程序设计(简单的程序设计(3学时)学时)2.1 2.1 程序
4、设计方法的发展程序设计方法的发展2.2 VB2.2 VB中的有关概念中的有关概念2.3 2.3 建立简单的应用程序建立简单的应用程序2.4 2.4 基本控件和属性基本控件和属性2.5 2.5 工程的管理及环境的设置工程的管理及环境的设置2.6 2.6 生成可执行文件和制作安装盘生成可执行文件和制作安装盘 2.7 2.7 程序调试程序调试 2.8 2.8 常见错误常见错误82.1 2.1 程序设计方法的发展程序设计方法的发展1.1.初期的程序设计初期的程序设计高运行效率、少占用内存为目标2.2.结构化程序设计结构化程序设计程序的可读性、可维护性为目标程序=算法+数据结构的面向过程的程序设计3.3
5、.面向对象的程序设计面向对象的程序设计降低程序的复杂性、提高软件的开法效率和改善工作界面为目标程序=对象+消息的面向对象的程序设计92.22.2对象的有关概念对象的有关概念1.1.类类类是创建对象实例的模板,包含了创建对象的属性描述和行为特征的定义.2.2.对象对象是类的一个实例,继承了类的属性、方法。VB中常用的对象有:窗体、控件等。3.3.对象的建立和命名对象的建立和命名4.4.对象的三要素对象的三要素 (1 1)属性)属性对象的性质,即用来描述和反映对象特征的参数。 (2 2)方法)方法对象的行为,即将一些通用的过程编写好并封装起来,作为方法供用户直接调用。10(3 3)事件)事件 响应
6、对象的动作称为事件,它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。事件过程指附在该对象上的用户编写的程序代码,是事件的处理程序。事件驱动过程是图形用户界面的本质,由用户控制而代码作出响应。5. VB5. VB程序的执行步骤如下:程序的执行步骤如下:(1)启动应用程序,装载和显示窗体(2)窗体(或窗体上的控件)等待事件的发生;(3)事件发生时,执行对应的事件过程;(4)重复执行步骤(2)和(3);(5)直到遇到“END”结束语句结束程序的运行或按“结束”强行停止程序的运行。112.32.3建立简单的应用程序建立简单的应用程序以例2.1为例1.建立用户界面的对象2.对象属性的设置
7、3.对象事件过程及编程4.程序运行和调试5.保存文件122.42.4基本控件和窗体基本控件和窗体一.常用属性常用属性 1.Name1.Name名称属性名称属性创建的对象名称,有默认的名.在程序中,控件名是作为对象的标识而引用,不会显示在窗体上。 2.Caption2.Caption标题属性标题属性该属性决定了控件上显示的内容。 3.Height3.Height、widthwidth、toptop和和leftleft属性属性134.Enabled4.Enabled属性属性控件是否可操作.当设置为false时,呈暗淡色,禁止用户进行操作.5. Visible5. Visible属性属性控件是否可见
8、.当设置为false时,用户看不到,但控件本身存在。6. Font6. Font属性属性 Fontname字体Fontsize字体大小Fontbold是否是粗体Fontitalic是否斜体Fontstrikethru是否加一删除线Fontunderline是否带下划线例2.2在窗体是建立两个命令按钮Command1和Command2,Command2的Font通过属性窗口设置,其余属性通过代码实现。147. Forecolor7. Forecolor前景颜色属性前景颜色属性设置控件的前景颜色(即正文颜色).其值是一个16进制常数,用户可以在调色板中直接选择所需颜色。8. Backcolor8.
9、 Backcolor背景颜色属性背景颜色属性9. Backstyle9. Backstyle背景风格属性背景风格属性0-transparent:透明显示,即控件背景颜色显示不出来10. BorderStyle10. BorderStyle边框风格属性边框风格属性0-None:控件周围没有边框1-FixedSingle:控件带有单边框。11. Alignment11. Alignment属性属性控件上正文水平对齐方式 0:正文左对齐1:右对齐2:居中12. AutoSize12. AutoSize属性属性控件是否根据正文自动调整大小,False.13. WordWarp13. WordWarp属
10、性属性 AutoSizeTrue时,WordWarp才有效按正文字体大小在垂直方向上改变显示区域的大小。1514.TabIndex14.TabIndex属性属性决定了按Tab键时,焦点在各个控件移动的顺序。各个控件默认TabIndex值就是以控件建立时的顺序,第一个为0.15.15.控件默认属性控件默认属性反映该控件最重要的属性,使用时可省略属性名。.注意:Command的默认属性为Default,当该属性为True,当按Enter键,该控件起作用。例2.3控件设置效果16二二.窗体窗体1.1.属性属性 Caption标题MaxButton、MinButtonIcon、ControlBoxPi
11、cture、AutoRedrawBorderStyle(012345)WindowsState(0-正常、1-最小化、2-最大化)2.2.事件事件 Click、DblClick和Load Load 当装入窗体时激发,通常用于对属性和变量初始化3.3.方法方法Print、Cls和Move等例2.4上述属性、Click、DblClick和Load 事件演示。17三三. 标签标签 Label用于显示文本(输出)信息,不能作为输入信息的界面。例2.5.显示浮雕效果的文字,实现方法:字颜色、标签位置四四.文本框文本框 TextBox是一个文本编辑区域,可在该区域输入,编辑和显示正文内容。 1.1.其他属
12、性其他属性Text:正文内容Maxlength:设置正文的最多字符个数,0任意长度值.,MultiLine:是否为多行,默认一行.FALSEScrollBars:当MultiLine为True时,该属性才有效,表示滚动条的形式0-None、1-Horizontal、2-Vertical、3-Both。Locked:是否可被编辑属性,False,表示为可编辑。PassWord:口令字符.Text属性返回输入的数据,屏幕显示该字符,SelStart,SelLength,SelText:选中文本的起始、长度、内容。例2.6复制选中的文本182.2.常用事件常用事件Change:当改变文本框的Text
13、属性时会引发该事件.KeyPress(KeyAsciiAsInteger):同上,并可返回一个KeyAscii参数KeyAscii为13,按回车键;为0去除刚输入的字符.LostFocus:当控件失去焦点时发生.GotFocus:当控件获得焦点时发生.3.3.常用方法常用方法 对象.SetFocus:是把光标移到指定的文本框对象中。4.4.文本框的应用文本框的应用 数据过滤数据过滤例例2.7 要求输入合法的数字数据。当输入结束时(按Tab键),对于输入正确的数据,显示正确信息;对输入的非数字数据,则响铃(Beep)、显示错误信息、清除文本框中的内容,并使焦点重新回到文本框。 Text2_Los
14、tFocus当输入结束按Tab键时,该事件激发IsNumeric(Text2):判断是否输入非数字数据.Text2.SetFocus:使焦点重新回到文本框19五五.命令按钮命令按钮CommandButton 接受用户输入的命令.输入命令可以有三种方式:鼠标单击Tab键焦点到该按钮快捷键1. 1. 其他属性其他属性Caption:命令按钮显示的内容,可设置快捷键,例&Ok,显示OkValue:检查该按钮是否按下.该属性在设计时无效.Picture:按钮可显示图片文件(.bmp和.Ico),当Style为1时有效Style:确定显示的形式.0只能显示文字,1文字、图形均可。ToolTipText:
15、设置工具提示,和Picture结合使用。2.2.事件事件 Click203.例例 2.8建立一个允许剪切、复制和粘贴的简单便笺板程序。增加内容:利用MouseMove事件决定命令按钮的有效性,即当选中内容,“剪切”、“复制”按钮有效,否则无效。21六六 常常用方法用方法方法是面向对象的,故使用的形式为:对象.方法 1.Print1.Print方法方法形式:对象.PrintSpc(n)|Tab(n)表达式列表;|,作用:在对象上输出信息对象:窗体、图形框或打印机(Printer),省略对象在窗体上输出。Spc(n)函数:插入n个空格,允许重复使用。Tab(n)函数:左端开始右移动n列,允许重复使
16、用。;(分号):光标定位上一个显示的字符后。,(逗号):光标定位在下一个打印区的开始位置处。无;,换行。开始打印的位置是由对象的CurrentX和CurrentX属性决定,缺省为打印对象的左上角0,0。注意:Print方法在Form_Load事件过程中起作用,必须设置窗体的AutoRedraw为True。22例例2.9 显示图形显示图形PrivateSubForm_Click()Fori=1To5PrintTab(i);String(6-I,);Spc(6);String(I,)NextiEndSub考虑:若把Spc(6)换成Tab(6),效果如何?232. Cls2. Cls方法方法 形式:
17、对象.Cls作用:清除运行时在窗体或图形框中显示的文本或图形。注意:不清除在设计时的文本和图形。3. Move3. Move方法方法形式:对象.Move左边距离,上边距离,宽度,高度作用:移动窗体或控件,并可改变其大小。对象:可以是窗体及除时钟、菜单外的所有控件例例2.10 图形起始点(左上角)移到窗体的中心,同时图形缩小50%。24五五. 应用举例应用举例例2-11编一计算月支付贷款的程序。现要求根据房产商提供的信息,买房者选择房型、面积、单价、按揭期等信息,计算每月支付代款的程序。第一个窗体:列表框选择数据、标签显示数据、文本框输入数据;第二个窗体:图形框显示房屋的平面图。Pmt函数计算月
18、支付贷款252.5工程的管理及环境的设置工程的管理及环境的设置一一. .工程的组成工程的组成工程文件包含了一个应用程序的所有文件:窗体文件(.frm):控件及属性、事件过程和自定义过程窗体的二进制数据文件(.frx),自动产生同名.frx文件。标准模块文件(.bas)类模块的文件(.cls)资源文件(.res)ActiveX控件的文件(.ocx)二二. .创建、打开和保存工程创建、打开和保存工程26三三. .添加、删除和保存文件添加、删除和保存文件 注意注意:1.窗体名和窗体文件名概念, 窗体名窗体名:窗体的Name属性,在代码中用来引用该窗体,同一工程不能有相同的窗体名; 窗体文件名窗体文件
19、名:窗体存放在磁盘上的文件名,该文件包含了该窗体的所有控件属性和代码,同一文件夹不能有相同的文件名。2. 在工程中添加现存的窗体时,只是对该窗体文件的引用纳入工程。因此,如果更改窗体并保存它,会影响包含此窗体文件的任何工程。3. 在工程中删除窗体时,仅将此窗体从工程里删除掉,但是窗体文件仍存在于磁盘上。但是,如果在VB之外删除一个窗体文件,VB不能更新此工程文件,当打开此工程时,将显示一个文件丢失的错误信息。4.对窗体文件改名方法二:1).打开工程 “另存为Form”实现文件的复制 保存工程文件 2).利用编辑程序打开工程文件 , 修改FORM=XXX的文件名窗体文件名窗体名272.6生成可执
20、行文件和制作安装盘生成可执行文件和制作安装盘以工程文件例2.11为例1.1.生成可执行文件生成可执行文件文件/生成V6B2-11.exe文件,然后关闭VisualBasic6.0。2.2.制作安装盘制作安装盘运行VB6.0中文版工具“Package&Deployment”,在向导的指导下:“打包”:把工程中用到的各种类型的文件进行打包压缩后,存放到特定的目录下。“展开”:再把这些打包的文件展开到用户可以携带的安装介质软盘、光盘等。3.3.检测安装程序检测安装程序 在没有VB6.0系统的环境下,执行安装盘中的Setup.exe文件,将发行盘进行安装。282.7程序调试. .错误类型错误类型 (1
21、 1)编辑错误)编辑错误在编辑代码时,VB会对键入的代码直接进行语法检查。当发现代码存在打字错误,遗漏关键字或标点符等语法错误,VB在Form窗口中弹出一个子窗口,提示出错信息,出错的那一行变成红色。这时,用户必须单击“确定”按钮,关闭出错提示窗,然后对出错行进行修改。29(2 2)编译错误)编译错误编译错误指按了“启动”按钮,VB开始运行程序前,先编译执行的程序段时,产生的错误。此类错误由于用户未定义变量、遗漏关键字等原因产生。这时,VisualBasic也弹出一个子窗口,提示出错信息,出错的那一行被高亮度显示。30(3 3) 运行错误运行错误运行时错误指VB在编译通过后,运行代码时发生的错
22、误。这类错误往往是指令代码执行了一非法操作引起的。例如类型不匹配、试图打开一个不存在的文件等。31(4 4) 逻辑错误逻辑错误程序运行后,得不到所期望的结果,这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。例如,运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常,逻辑错误不会产生错误提示信息,故错误较难排除,需要程序员仔细地阅读分析程序以及调试。322 调试错误调试错误 (1) VB的三种模式的三种模式设计模式设计进行程序的界面设计、属性设置、代码编写等。运行模式运行执行“运行/启动”命令,可以查看程序代码,但不能修改。中断模式中断当在运行模式,按了“中断”
23、命令或当程序出现运行时错误时进入中断模式。可以查看代码、修改代码、检查数据。 (2)调试窗口)调试窗口有三个调试窗口,它们是:“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令打开这些窗口。33(3)设置断点和逐语句跟踪)设置断点和逐语句跟踪断点是告诉VB挂起程序执行的一个标记,当程序执行到断点处即暂停程序的运行,进入中断模式。设置或删除断点的步骤:中断模式下,直接查看某个变量的值,只要把鼠标指向所关心的变量处,稍停一下,就在鼠标下方显示该变量的值。断点标记当前行342.8常见错误常见错误1. 1. 使用中文标点符号使用中文标点符号系统产生“无效字符”,以红色显示2. 2.
24、 字母和数字形状相似字母和数字形状相似小写字母“l”和数字“1”形式相同、小写字母“o”与数字“0”。3. 对象名称对象名称(Name)(Name)属性写错属性写错 Text1、Text2、Command1 txtInput、txtOutput、cmdOk4.4.对象的属性名、方法名、标准函数名写错对象的属性名、方法名、标准函数名写错 尽量使用自动列出成员功能。正确的系统按规定的大小写表示。5. 5. 无意形成控件数组无意形成控件数组 建立控件时小心使用“复制”、“粘贴”按钮6. 6. 打开工程时找不到对应的文件打开工程时找不到对应的文件 保存文件时先保存窗体.frm文件、再保存.vbp文件,
25、注意路径。35第三章第三章 VB语言基础语言基础(2学时)学时)3.1 编码规则3.2 数据类型3.3 变量与常量3.4 运算符和表达式3.5 常用函数3.6 常见错误363.1 编码基础1.VB代码不区分字母的大小写代码不区分字母的大小写系统保留字自动转换每个单词的首字母大写用户自定义行以第一次为准2.语句书写自由语句书写自由一行可书写几句语句,之间用冒号分隔;一句语句可分若干行书写,用续行符连接_一行ABRA 结果为False 男字男字 女字女字 按汉字的拼音字母比较按汉字的拼音字母比较 444. 逻辑运算符逻辑运算符将操作数进行逻辑运算,结果是逻辑值条件表达式1And条件表达式2条件表达
26、式均为T结果为T条件表达式1Or条件表达式2条件表达式有一个T结果为T45二二. . 表达式表达式 1.组成组成 变量、常量、函数、运算符和圆括号2.书写规则书写规则(1)运算符不能相邻。例a+-b是错误的。(2)乘号不能省略。例x乘以y应写成:x*y(3)括号必须成对出现,均使用圆括号。(4)表达式从左到右在同一基准上书写,无高低、大小。 3. 不同数据类型的转换不同数据类型的转换运算结果的数据类型向精度高的数据类型靠.IntegerLongSingleDouble=字符运算符关系运算符逻辑运算46例:用人单位招聘秘书:年龄小于40岁,女性,学历专科或本科年龄40性别=“女”(学历=“专科”
27、学历=“本科”)AndAndOr考虑:若分别写成:年龄40And性别=“女”And(学历=“专科”And学历=“本科”)年龄40Or性别=“女”Or(学历=“专科”Or学历=“本科”)例:表示算术表达式:正确的VB表达式:3=xAndx=7错误的VB表达式:3=x=7或3=xOrx=7比a小,比b大用Ora小数b大数a小数b大数比a大,比b小用And473.5 3.5 常用内部函数常用内部函数1. 数学函数数学函数Rnd函数返回0和1(包括0但不包括1)之间的双精度随机数.每次运行时,要产生不同序列的随机数,执行Randomize语句.例产生1-100的随机数:Int(Rnd*100)+12.
28、 转换函数转换函数 Chr(66)“B“Asc(“B)66Asc(Chr(99)99Chr(Asc(“K”)“K”Ucase$(abcdefg)“ABCDEFG3.日期函数日期函数Time返回系统时间Date返回系统日期DateAdd(要增减日期形式,增减量,要增减的日期变量)DateDiff(要间隔日期形式,日期1,日期2)例如求两个时间相差的秒数:DateDiff(”s”,#19:3:23#,#19:5:1#)结果为98484. 字符串编码和函数字符串编码和函数 (1)字符串编码字符串编码Windows系统对字符采用了DBCS编码,中文2字节,西文1字节VB中字符Unicode编码,任何字
29、符2字节.Len(“中国good”)为6LenB(“中国good”)为12StrConv()进行DBCS与Unicode之间转换. (2)字符串函数字符串函数Mid$(ABCDEFG,2,3)BCDInStr(2,ABCDEFG,EF)5 S=Split(123,56,ab,)Join(S,)12356abReplace(ABCDABCD,CD,123)“AB123AB123”S(0)=123”,S(1)=56”,S(2)=ab495.格式输出函数格式输出函数例3.1利用Format函数显示有关的日期和时间。Form_CLICK() 效果效果 FontSize=12 MyTime = #9:2
30、1:30 PM# MyDate = #7/21/97# Print Format(MyDate, m/d/yy) Print Format(MyDate, mmmm-yy) Print Format(MyTime, h-m-s AM/PM) Print Format(MyTime, hh:mm:ss A/P) 显示系统当前日期和时间显示系统当前日期和时间 Print Format(Now, yyyy年年m月月dd日日 hh:mm) 以系统预定义的格式以系统预定义的格式 显示系统当前时间显示系统当前时间 Print Format(Date, dddd,mmmm,dd,yyyy)End Sub50
31、6. Shell函数函数能在DOS下或Windows下运行的应用程序,也可以在VB中调用.形式:Shell(命令字符串,窗口类型)窗口类型值为1表示正常窗口,缺省窗口最小化为图标。i = Shell(c:windowscalc.exe)j = Shell(c:, 1)513.6 3.6 常见错误常见错误1.1.逻辑表达式书写错,在逻辑表达式书写错,在VBVB没有造成语法错而形成逻辑错没有造成语法错而形成逻辑错 例数学表达式 3x10 VB表达式为 3=x10 问题在于VB中的逻辑量与数值量可互转2.2.同时给多个变量赋值,在同时给多个变量赋值,在VBVB没有造成语法错而形成逻辑错没有造成语法错
32、而形成逻辑错 例 Dim x%,y%,z% x=y=z=13. 3. 标准函数名写错标准函数名写错 4 4变量名写错变量名写错 检查方法:在通用声明段加OptionExplicit5 5语句书写位置错语句书写位置错 在通用声明段只能有Dim语句,不能有赋值等其他语句52第四章第四章 基本的控制结构基本的控制结构(8学时)学时) 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 常用算法(一) 4.6 常见错误 (顺序、条件、循环)53一一. . 赋值语句赋值语句 形式: LET变量名表达式作用:将表达式的值赋值给变量名.一般用于给变量赋值或对控件设定属性值
33、.例:sRate!=0.1Text1.Text欢迎使用VisualBasic6.0”当表达式的类型与变量的类型不一致时,强制转换成左边的精度iA%=10/3iA中的结果为3注意:虽然赋值号与关系运算符等于号都用“=”表示,VB系统会根据所处的位置自动判断是何种意义的符号。54二二. . 与用户交互函数和过程与用户交互函数和过程1. InputBox1. InputBox函数函数InputBox(InputBox(提示提示 ,标题,标题,缺省,缺省,x x 坐标位置坐标位置,y y坐标位置坐标位置)其中:提示提示信息,标题对话框标题,缺省输入区缺省值函数返回字符类型.例要在屏幕上显示如下的对话框
34、:DimstrNameAsString*40,strS1AsString*40相应的语句如下:strName=InputBox(“请输入你的姓名”+vbCrLf+“然后单击确定”,“输入框”)也可以:strS1=“请输入你的姓名”+Chr(13)+Chr(10)+“然后单击确定”strName=InputBox(strS1,“输入框”,100,100)当键盘输入“王晓明”后,变量strName获得键盘输入的值.552. MsgBoxMsgBox函数和函数和MsgBoxMsgBox过程过程 函数形式:变量%=MsgBox(提示,按钮,标题)过程形式:MsgBox提示,按钮,标题按钮值如下:函数返
35、回所选按钮整数值:56例3.2编一帐号和密码检验程序。要求:帐号不超过6位数字,有错,清除原内容再输入.密码输入时在屏幕上以“*”代替;若密码错,显示有关信息,选择“重试”按钮,清除原内容再输入,选择“取消”按钮,停止运行。分析:帐号6位,MaxLength为6,LostFocus判断数字IsNumeric函数密码PassWordChar为“*”,MsgBox函数设置密码错对话框.57常见错误常见错误数据合法性检查中引起程序的死循环PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenText1=Text1.SetFocusEndIfEndSu
36、bPrivateSubText2_LostFocus()IfNotIsNumeric(Text2)ThenText2=Text1.SetFocusEndIfEndSubIfText2AndNotIsNumeric(Text2)Text1Text2Text1确定58三.选择结构1. If1. IfThenThen语句语句( (单分支结构单分支结构) )If Then 语句块语句块 End If 或或 If Then 例:已知两个数x和y,比较它们的大小,使得x大于y.If xy Then t=x x=y y=t End If 或或 If xy Then t=x: x=y: y=t重要的是学会两个
37、数的交换,若上述语句次序变一下,结果如何?重要的是学会两个数的交换,若上述语句次序变一下,结果如何?592. If2. IfThenThenElseElse语句语句( (双分支结构双分支结构) ) If Then Else End IfIf Then Else 计算分段函数单分支结构实现:y=cos(x)x3+3*x If x0 Then y=sin(x)+sqrt(x*x+1)双分支结构实现:If x0 Then y=sin(x)+sqrt(x*x+1) Else y=cos(x)x3+3*x End If603. If3. IfThenThenElseIfElseIf语句语句( (多分支结
38、构多分支结构) )形式:If Then ElseIf Then Else 语句块语句块 n+1 End If不管有几个分支,依次判断,当某条件满足,执行相应的语句块,其余分支不再执行;若条件都不满足,且有Else子句,则执行该语句块,否则什么也不执行。. ElseIf不能写成 Else If。61例已知百分制成绩mark,显示对应的五级制成绩哪些正确,哪些错误?624 4IfIf语句的嵌套语句的嵌套If语句的嵌套是指If或Else后面的语句块中又包含If语句。形式如下:If Then If Then End If End If例:已知已知x,y,z三个数,使得三个数,使得xyz。 用一个用一个
39、IF语句和一个嵌套的语句和一个嵌套的IF语句实现:语句实现:IfxyThent=x:x=y:y=tIfyzThent=y:y=z:z=tIfxyThent=x:x=y:y=tEndIfEndIfIf语句的嵌套注意事项:书写锯齿型;If与EndIf配对。635. Select Case5. Select Case语句语句( (情况语句情况语句) )形式:Select Case 变量或表达式变量或表达式Case 表达式列表表达式列表1语句块语句块1Case 表达式列表表达式列表2语句块语句块2Case Else语句块语句块n+1End Select:与同类型的下面四种形式之一:表达式例:“A”一组
40、枚举表达式(用逗号分隔)2,4,6,8表达式1To表达式260 To 100Is关系运算符表达式Is = A And Ucase (strC) = 0 And strC = 95Print一等奖Casemark1 = 100 And mark2 = 100 And mark2 = 80EndSelect错误注意:Select Case 后不能出现多个变量;后不能出现多个变量;Case后不能出现变量及有关运算符后不能出现变量及有关运算符。67例例3.3由计算机来当一年级的算术老师,要求给出一系列的110的操作数和运算符,学生输入该题的答案,计算机根据学生的答案判断正确与否,当结束时给出成绩。分析
41、:产生110操作数,可通过Int(10*Rnd+1)实现设置的控件名Label1Text1Picture1Command1686.条件函数条件函数(1)IIf函数形式是:IIf(表达式,当表达式为(表达式,当表达式为True时的值,当表达式为时的值,当表达式为False时的值)时的值)例如,求x,y中大的数,放入Tmax变量中,语句如下:Tmax=IIf(xy,x,y)(2)Choose函数形式是:Choose(数字类型变量,值为(数字类型变量,值为1的返回值,值为的返回值,值为2的返回值的返回值)例如,Nop是1-4的值,转换成+ 、-、运算符的语句如下: Op=Choose(Nop,+,-
42、,)当值为1,返回字符串“+”,然后放入Op变量中,值为2,返回字符串“-”,依次类推;当Nop是1-4的非整数,系统自动取Nop的整数办法在判断;若Nop不在1-4之间,函数返回Null值。(3)Switch函数形式是:Switch(条件表达式(条件表达式1,条件表达式,条件表达式1为为True时的值时的值,条件表达式,条件表达式2,条件表达式,条件表达式2为为True时的值时的值)69常见错误常见错误1在选择结构中缺少配对的结束语句对多行式的If块语句中,应有配对的 End If语句结束。2. 多边选择ElseIf关键字的书写和条件表达式的表示 ElseIf 不要写成Else If; 多个
43、条件表达式次序问题,见例3. Select Case语句的使用 Select Case 后不能出现多个变量;Case子句后不能出现变量见例70四.循环结构1. For循环语句循环语句 (一般用于循环次数已知)形式For 循环变量初值循环变量初值 to 终值终值 Step 步长步长 语句块语句块Exit For 语句块语句块 Next 循环变量循环变量步长循环体0初值终值=1时,可省略终值=0死循环循环次数例:ForI=2To13Step3循环执行次数PrintI,输出I的值分别为:NextI25811Print:Print“I=“,I出了循环输出为:I=14712. DoLoop循环语句循环语
44、句(用于控制循环次数未知)形式1:Do While|Until 语句块语句块 Exit Do 语句块语句块 Loop形式2:Do 语句块语句块 Exit Do 语句块语句块Loop While|Until 72例4.12用辗转相除法求两自然数m,n的最大公约数和最小公倍数。分析:求最大公约数的算法思想:(1)对于已知两数m,n,使得mn;(2)m除以n得余数r;(3)若r=0,则n为最大公约数结束;否则执行(4);(4)mn,nr,再重复执行(2)。例求m=14 ,n=6的最大公约数.IfmnThent=m:m=n:n=tr=mmodnDoWhile(r0)m=nn=rr=mmodnLoopP
45、rint最大公约数=,nmnr14626 2 0m=m-n mnn=n-m nmm、n为公约数m=n辗转相减法辗转相减法Do While m n If m n Then m = m - n Else n = n - m End If Loopmn1468 6 2 62 4 2 2733.循环的嵌套循环的嵌套一个循环体内又包含了一个完整的循环结构称为循环的嵌套.例例4.13打印九九乘法表.For i = 1 To 9 For j = 1 To 9 For j = 1 To i se = i & & j & = & i * j Picture1.Print Tab(j - 1) * 9 + 1);
46、 se; Next j Picture1.Print Next i思考:打印上三角或下三角程序如何改动?要打印下三角思考:打印上三角或下三角程序如何改动?要打印下三角?74对于循环的嵌套,要注意以下事项:(1)内循环变量与外循环变量不能同名;(2)外循环必须完全包含内循环,不能交叉;(3)不能从循环体外转向循环体内,也不能从外循环转向内循环,反之则可以。正确错误For ii =1 To 10 For jj=1 To 20 Next ii Next jjFor ii =1 To 10 For ii=1 To 20 Next ii Next iiFor ii =1 To 10 For jj=1 T
47、o 20 Next jj Next iiFor ii =1 To 10 Next ii For ii =1 To 10 Next ii 75四.其他辅助控制语句 1. Go To 语句语句 形式形式: Go To 标号标号|行号行号作用:无条件地转移到标号或行号指定的那行语句.标号是一个字符序列,行号是一个数字序列. 2.Exit语句语句多种形式:Exit For、Exit Do、Exit Sub、Exit Function等。作用:退出某种控制结构的执行。 3. End语句语句多种形式:End、EndIf、EndSelect、EndWith、EndType、EndSub、EndFunctio
48、n、作用:End结束一个程序的运行;其余表示某个结构的结束,与对应的结构语句配对出现。764.With 语句语句形式如下:With对象语句块EndWith作用:对某个对象执行一系列的操作,而不用重复指出对象的名称。WithLabel1.Height=2000.Width=2000.FontSize=22.Caption=ThisisMyLabelEndWithLabel1.Height=2000Label1.Width=2000Label1.FontSize=22Label1.Caption=ThisisMyLabel等价77五、常用算法(一)五、常用算法(一)算法是对某个问题求解过程的描述1
49、.1.累加、连乘累加、连乘1100的5或7的倍数的和Sum = 0Fori=1To100IfiMod5=0OriMod7=0ThenSum = Sum + iEndIfNextiPrintSum310的乘积t = 1Fori=3To10t = t * iNextiPrintt思考:若把循环体前面置各变量初值的语句放在循环体内,程序运行时会产生什么情况?78例例4.14求自然对数e的近似值,要求其误差小于0.00001,近似公式为: 该例题涉及两个问题: (1)用循环结构求级数和的问题。本例根据某项值的精度来控制循环的结束与否。 (2)累加:e=e+t 循环体外对累加和的变量清零 e=0 连乘:
50、n=n*i 循环体外对连乘积变量置1 n=1 Private Sub Form_Click()Private Sub Form_Click() Dim i%,n&, t!, e! Dim i%,n&, t!, e! e = 0 : n = 1 e = 0 : n = 1 e存放累加和、n存放阶乘 i = 0 : t = 1 i = 0 : t = 1 i计数器、t第i项的值 Do While t 0.00001Do While t 0.00001 e = e + t : i = i + 1 e = e + t : i = i + 1 累加、连乘 n = n * i : t = 1 / nn =
51、 n * i : t = 1 / n Loop Loop Print Print 计算了计算了 ; i; ; i; 项的和是项的和是 ; e; eEnd SubEnd Sub792.求素数求素数判别某数m是否为素数最简单的方法是:对于m从i=2,3,m-1判别m能否被i整除,只要有一个能整除,m不是素数,否则m是素数。求100以内的素数For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m NotNextM: Next mm是否为素数求100以内的素数思考:此例用GoTo语句对
52、非素数不在判断,若不用GoTo语句,如何修改程序?见例4.15803.3.穷举法穷举法“穷举法”也称为“枚举法”或“试凑法”,即将可能出现的各种情况一一测试,判断是否满足条件,一般采用循环来实现。例例4.16百元买百鸡问题。假定小鸡每只5角,公鸡每只2元,母鸡每只3元。现在有100元钱要求买100只鸡,编程列出所有可能的购鸡方案。设母鸡、公鸡、小鸡各为x、y、z只,根据题目要求,列出方程为:x+y+y=1003x+2y+0.5z=100三个未知数,两个方程,此题有若干个解。解决此类问题采用“试凑法”,把每一种情况都考虑到。方法一:最简单三个未知数利用三重循环来实现。方法二:从三个未知数的关系,
53、利用两重循环来实现。814.4.递推法递推法 “递推法”又称为“迭代法”,其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值,并由新值代替旧值。 例4.17猴子吃桃子。小猴在一天摘了若干个桃子,当天吃掉一半多一个;第二天接着吃了剩下的桃子的一半多一个;以后每天都吃尚存桃子的一半零一个,到第7天早上要吃时只剩下一个了,问小猴那天共摘下了多少个桃子?分析:这是一个“递推”问题,先从最后一天推出倒数第二天的桃子,再从倒数第二天的桃子推出倒数第三天的桃子。设第n天的桃子为xn,那么它是前一天的桃子数。825.5.最小、最大值最小、最大值在若干个数中求最大值,一
54、般先假设一个较小的数为最大值的初值,若无法估计较小的值,则取第一个数为最大值的初值;然后将每一个数与最大值比较,若该数大于最大值,将该数替换为最大值;依次逐一比较。例随机产生例随机产生1010个个100100200200之间的数,求最大值。之间的数,求最大值。 PrivateSubCommand1_Click()Max = 100Fori=1To10x=Int(Rnd*101+100)Printx;If x Max Then Max = xNextiPrintPrint最大值=;MaxEndSub83例4.18 实际应用,求最短残料。有一根长度为321米的钢材料,要将它截取成两种规格a、b的长
55、度分别为17米和27米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?分析,该题利用“试凑法”通过二重循环求残料r的最小值正数,残料不可能是负数。程序如下:PrivateSubCommand1_Click()Dima%,b%,r!,ia%,ib%r=321最小值初值取钢材料的长度Forb=1To32127 b最多的段数Fora=1To32117-b a最多的段数t=321-b*27-a*17 当前的残料Ift0AndtMax ThenMax=iA(i)iMax=i End If Next I5. 5. 将数组中各元素交换将数组中各元素交换For i =1 To 102 t=i
56、A(i) iA(i)=iA(10-i+1) iA(10-i+1)=t Next I93五五. 控件数组控件数组一组相同类型的控件组成。它们共用一个控件名,具有相同的属性,建立时系统给每个元素赋一个唯一的索引号(Index)。控件数组共享同样的事件过程,通过返回的下标值区分控件数组中的各个元素。例:Private Sub cmdName _Click(Index As Integer) If Index=3 then 处理第四个命令按钮的操作处理第四个命令按钮的操作 End If End Sub1.1.在设计时建立控件数组在设计时建立控件数组l在窗体上画出控件,进行属性设置,这是建立的第一个元素
57、l选中该控件,进行“Copy”进行若干次和“Paste”操作建立了所需个数的控件数组元素。l进行事件过程的编程。94例5.3建立含有四个命令按钮的控件数组,当单击某个命令按钮,分别显示不同的图形或结束操作。Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 画直线画直线 Case 1 画矩形画矩形 Case 2 “画圆画圆” Case Else End End Select End Sub952 2运行时添加控件数组运行时添加控件数组建立的步骤如下:l在窗体上画出某控件,设置该控件的Index值为0,表示该
58、控件为数组,这是建立的第一个元素l在编程时通过Load方法添加其余的若干个元素,也可以通过Unload方法删除某个添加的元素。l每个新添加的控件数组通过Left和Top属性确定其在窗体的位置,并将Visible属性设置为True。例5.4利用在运行时产生控件数组,构成一个国际象棋棋盘。当单击棋格,显示对应的序号,并且将所有棋格颜色变反。96六、自定义数据类型六、自定义数据类型 一组不同类型变量的集合。相当于C语言中的结构类型;Pascal中的记录类型。1.1.自定义类型的定义自定义类型的定义 形式如下: Type 自定义类型名元素名(下标) As 类型名 元素名(下标) As 类型名 End
59、Type例如以下定义了一个有关学生信息的自定义类型: Type StudType No As Integer 学号 Name As String * 20 姓名 Sex As String * 1 性别 Mark(1 To 4) As Single 4门课程成绩 Total As Single 总分 End Type元素名:表示自定义类型中的一个成员。下标:表示是数组。类型名:为标准类型。97注意:(1)自定义类型一般在标准模块(.BAS)中定义,默认是Public;在窗体必须是Private。(2)自定义类型中的元素类型可以是字符串,但应是定长字符串。(3)不要将自定义类型名和该类型的变量名
60、混淆,前者表示了如同Integer、Single等的类型名,后者VB根据变量的类型分配所需的内存空间,存贮数据。(4)自定义类型一般和数组结合使用,简化程序的编写。2 2自定义类型变量的声明和使用自定义类型变量的声明和使用(1)声明形式:Dim变量名As自定义类型名例DimStudentAsStudType(2)引用形式:变量名.元素名例表示Student变量中的姓名,第4门课程的成绩,则表示如下:Student.Name,Student.Mark(4)3 3自定义类型数组的应用自定义类型数组的应用例5.5利用自定义类型数组,编一类似数据管理(输入、显示、查询)的程序。98七、常用算法(二)七
61、、常用算法(二) 1. 1. 统计统计 例5.6输入一串字符,统计各字母出现的次数,大小写字母不区分。分析:1.统计26个字母出现的个数,先声明一个具有26个元素的数组,每个元素的下标表示对应的字母,元素的值表示对应字母出现的次数。2.从输入的字符串中逐一取出字符,转换成大写字符(使得大小写不区分),进行判断。3.运行界面:For I = 1 To le c = UCase(Mid(Text1, I, 1) If c = A And c = Z Then j = Asc(c) - 65 + 1 a(j) = a(j) + 1 End IfNext I992.2.大量数据的输入大量数据的输入例例
62、5.7输入一系列的数据,并将它们分离后存放在数组中。对输入的数据允许修改和自动识别非数字数据。分析:(1)利用文本框输入和编辑数据,输入时去除非法数字。(2)输入结束利用Rplace函数去除重复输入的分隔符;(3)对利用Split函数按分隔符分离,放到数组中;(4)还可利用Join函数将数组中各元素合并成一个字符串。1003.3.数组排序数组排序例5.8对已知存放在数组中的n个数,用选择法按递增顺序排序。(1)从n个数的序列中选出最小的数(递增),与第1个数交换位置;(2)除第1个数外,其余n-1个数再按(1)的方法选出次小的数,与第2个数交换位置;(3)重复(1)n-1遍,最后构成递增序列。
63、For i = 1 To n - 1 iMin= i For j = i+1 To n If iA(j) iA(iMin) Then iMin = j Next j t= iA(i): iA(i) = iA(iMin) : iA(iMin) = tNext I 1014.4.数组元素的插入与删除数组元素的插入与删除 (1) 插入插入例5.10在有序数组a(1ton)(原有n-1个元素)插入一个值Key元素,算法:查找要插入的位置k(1=k0找到用NewS字符子串替换OldS字符子串s=Left(s,i-1)+NewS+Mid(s,i+lenOldS)i=InStr(s,OldS)找下一个Old
64、S字符子串LoopMyReplace=s替换后的字符串赋值给函数过程名EndFunction假定S为“abcdefgabcdecd”,Oolds为“cd”,News为3(“abcdefgabcdecd”,“cd”,“3”)第1次I=3结果“ab3efgabcdecd”(“ab3efgabcdecd”,“cd”,“3”)第2次I=9结果“ab3efgab3ecd”(“ab3efgab3ecd”,“cd”,“3”)第3次I=11结果ab3efgab3e31073.3.函数过程的调用函数过程的调用函数过程的调用同标准函数调用,参与表达式运算,形式如下:函数过程名函数过程名(参数列表参数列表)参数列表
65、:称为实参或实元,它必须与形参个数相同,位置与类型一一对应可以是同类型的常量、变量、表达式执行流程:PrivateSubCommand1_Click()Text1=MyReplace(Text1,cd,3)ST=(“VisualBasic程序设计教程5.0版”PrintMyReplace(ST,5.0,6.0)EndSubFunctionMyReplace$(s$,OldS$,NewS$)Dimi%,lenOldS%lenOldS=Len(OldS)i=InStr(s,OldS)DoWhilei0s=Left(s,i-1)+NewS+Mid(s,i+lenOldS)i=InStr(s,OldS
66、)LoopMyReplace=sEndFunction108二、子过程二、子过程函数过程的不足:(1)不是为了获得某个函数值,而是为了某种功能的处理,如例1.1。(2)要获得多个结果。 1.1.引例引例编写一个两个数交换的过程供多次调用。Swap(x,y)子过程的定义主调程序调用Swap子过程PublicSubSwap(x,y)PrivateSubForm_Click()DimtDima,bt=xa=10x=yb=20y=tCallSwap(a,b)EndSubPrinta=;a,,b=;bEndSub1092 2 子过程定义子过程定义Sub子过程名(参数列表)局部变量或常数定义语句ExitS
67、ub语句EndSub3 3 子过程的调用子过程的调用 子过程名参数列表或Call子过程名(参数列表4.4.子过程与函数过程区别子过程与函数过程区别:(1)函数过程名有值,有类型,在函数体内至少赋值一次;子过程名无值,无类型,在子过程体内不能对子过程名赋值;(2)调用时,子过程调用是一句独立的语句。函数过程不能作为单独的语句加以调用,必须参与表达式运算。(3)一般当过程有一个函数值,使用函数过程较直观;反之若过程无返回值,或有多个返回值,使用子过程较直观。110例6.4分别编一计算某级数部分和的子过程和函数过程,并调用。级数为:精度为:111 程序运行流程:程序运行流程:Private Sub
68、Command1_Click() Dim f1#, f2# f1 = jishu1(2#, 0.000001) Call jishu2(f2, 2#, 0.000001) Print f1=; f1, f2 = ; f2 End SubFunction jishu1(x!, eps#) As Doubl jishu=表达式表达式End Function找函数名调用找函数名调用jishu1jishu1函数名带了值返回函数名带了值返回Sub jishu2(s#, x!, eps#) s=表达式表达式End Sub找子过程名调用找子过程名调用jishu2112三、三、 参参数传递数传递指主调过程的实
69、参传递给被调过程的形参。1. 1. 传址与传值传址与传值传址:传址: 形参得到的是实参的地址地址,当形参值的改变同时也改变实参的值也改变实参的值。传值:传值: 形参得到的是实参的值值,形参值的改变不会影响实参的值不会影响实参的值。例6.5两个变量的交换Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = tEnd SubPrivate Sub Command1_Click() a% = 10: b% = 20: Swap1 a, b 传值传值 Print A1=; a, B1=; b a = 10: b = 20: Swap2 a, b 传地址传地址
70、 Print A2=; a, B2=; b End SubSub Swap2(x%, y%) t% = x: x = y: y = tEnd Sub1132. 2. 数组参数的传递数组参数的传递当参数是数组通过传址方式进行传递。注意:在实参和形参中写数组名,忽略维数的定义,但圆括号不能省。被调过程可通过Lbound和Ubound函数确定实参数组的下、上界。Lbound和Ubound函数的形式如下:L|Ubound(数组名,维数)其中:维数指明要测试的是第几维的下标值,缺省是一维数组。例6.7编一函数tim,求任意一维数组中各元素之积。调用tim,求和Function tim(a() As In
71、teger) Dim t#, i% t = 1 For i = Lbound(a) To Ubound(a)t = t * a(i) Next i tim = tEnd Function调用:Sub Command1_Click() Dim a%(1 To 5),b%(3 To 8)t1# = tim(a()t2 #= tim(b()Print t1, t2 End Sub114使用过程注意事项:使用过程注意事项:1. 1. 确定自定义的过程是子过程还是函数过程确定自定义的过程是子过程还是函数过程函数过程名有值,子过程名无值。2 2过程中形参的个数和传递方式的确定过程中形参的个数和传递方式的确
72、定过程中参数的作用是实现过程与调用者的数据通信。(1)从主调程序获得初值,值传递。(2)将结果返回给主调程序,地址传递。3. 3. 实参与形参结合时对应问题实参与形参结合时对应问题 个数、类型、位置、次序一一对应。形参是值传递,对应实参可以是表达式、常量、数组元素。形参是地址传递,对应实参只能是简单变量。数组、记录类型、对象只能是地址传递。115实验实验6.4回文数的判断中形参的确定回文数的判断中形参的确定1.函数过程,形参一个,值传递对所判断的数字;函数名是否为回文数。FunctionIsH(ByValssAsString)AsBoolean2.子过程,形参两个,值传递对所判断的数字,地址传
73、递是否位回文数。Subhui(ByValssAsString,TagAsBoolean)实验实验6.2子过程DeleStr(s1,s2)形参的确定形参的确定 s1,要处理的字符串,从主调程序得初值,删除子串后结果在S1中,所以地址传递。s2删除的子串,值传递。实验实验6.3函数过程函数过程MaxLength(s)形参的确定形参的确定S要处理的字符串,值传递。MaxLength函数名,最长的单词长度。116四、变量、过程的作用域作用域:变量、过程随所处的位置不同,可被访问的范围。1.1.过程的作用域过程的作用域窗体/模块级:加Private关键字的过程,只能被定义的窗体或模块中的过程调用。全局级
74、:加Public关键字(缺省)的过程,可供该应用程序的所有窗体和所有标准模块中的过程调用。1172. 2. 变量的作用域变量的作用域局部变量:在过程内用声明的变量,只能在本过程中使用。窗体/模块级变量:在“通用声明”段中用Dim语句或用Private语句声明的变量,可被本窗体/模块的任何过程访问。全局变量:在“通用声明”段中用Public语句声明的变量,可被本应用程序的任何过程或函数访问。118例如在下面一个标准模块文件中不同级的变量声明:PublicPaAsinteger全局变量PrivateMbAsstring*10窗体/模块级变量SubF1()DimFaAsinteger局部变量EndS
75、ubSubF2()DimFbAsSingle局部变量EndSub119若在不同级声明相同的变量名,系统按局部、窗体/模块、全局次序访问如:PublicTempAsinteger全局变量 Sub Form_Load() Dim Temp As Integer局部变量Temp=10访问局部变量Form1.Temp=20 访问全局变量必须加窗体名PrintForm1.Temp,Temp显示2010EndSub1203. 3. 静态变量静态变量局部变量声明:Dim声明声明,随过程的调用而分配存贮单元,变量的初始化;过程体结束,变量的内容自动消失,存贮单元释放。Static声明声明,每次调用过程,变量保
76、持原来的值。声明形式:Static变量名AS类型StaticFunction函数过程名(参数列表)As类型StaticSub子过程名(参数列表)过程名前加Static,表示该过程内的局部变量都是静态变量。例例6.9 Private Sub Form_Click() Dim i% ,isum% For i = 1 To 5isum = sum(i)Print isum, Next i End SubPrivate Function sum(n As Integer)Dim j As Integerj = j + n sum = jEnd FunctionStatic j As Integer,结
77、果?1,2,3,4,5121Subf1(x)x=f2(xx)*3EndSubSubCommand1_Click()Callf1(y)EndSubFunctionf2(x)f2=f3(x)+3EndSubFunctionf3(x)f3=x*xEndSubSubf1(x)Callf1(y)EndSub过程的直接调用过程的直接调用SubCommand1_Click()Callf1(y)EndSub过程的递归调用过程的递归调用五、递归1221.1.递归的概念递归的概念用自身的结构来描述自身就称为“递归”。例对阶乘的定义:2. 递归过程递归过程过程在自身定义的内部调用自己。例6.10编fac(n)=n!
78、 的递归函数Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Elsefac = n * fac(n - 1) End If End FunctionSub Command1_Click() Print “fac(4)=”;fac(4)End Sub结果:fac(4)=24123递推回归在递归处理中,用栈来实现。栈中存放形参、局部变量、返回地址。递推过程:每调用自身,当前参数压栈,直到达到递归结束条件。回归过程:不断从栈中弹出当前的参数,直到栈空。递归算法设计简单,但消耗的机时和占据的内存空间比非递归大。思考:若上述fac函
79、数中:Ifn=1Thenfac=1即仅有语句:fac=n*fac(n-1)或nr Then Callf(n r, r) Print n Mod r;End Sub Private Sub Command1_Click() Call f(100, 8) End Sub显示结果显示结果 1 4 4126例6.12打印分形图127递归常见错误:递归常见错误: 1.递归调用出现“栈溢出” 在递归调用时,其中的参数要向终止方向收敛。如下求阶乘的递归函数过程:Public Function fac(n As Integer) As IntegerIf n = 1 Then fac = 1Else fac
80、= n * fac(n - 1)End IfEnd FunctionPrivate Sub Command1_Click() Print “fac(5)=”;fac(5) Print “fac(5)=”;fac(-5) 栈溢出栈溢出End Sub128 1.1.数制转换数制转换例6.13将一个十进制整数m转换成r (216)进制字符串。方法:将m不断除r 取余数,直到商为零,以反序得到结果。6.66.6常用算法常用算法( (三)三)1292.2.例例6.146.14加密和解密加密和解密简单加密的思想是:将每个字母C加一序数K,式子c=chr(Asc(c)+k),例如序数k为5,这时“A”“F”
81、,“a”“f”,“B”“G”当加序数后的字母超过“Z”或“z”则c=hr(Asc(c)+k-26)。解密为加密的逆过程。1303.3.查找查找(1)顺序查找例6.15。顺序查找根据查找的关键值与数组中的元素逐一比较.数组可无序。Public Sub Search(a() As Variant, ByVal key As Variant, index%) Dim i% For i = LBound(a) To UBound(a) If key = a(i) Then 找到,元素的下标在找到,元素的下标在index中,结束查找中,结束查找 index = i Exit Sub End If Nex
82、t i index = -1 找不到,找不到, index形参的值为形参的值为-1End Sub平均查找次数n/2131Keya(mid)low=mid+1查找区域缩小一半,继续直到找到或查找区域中无元素.本例用递归实现6.16Subbirsearch(a(),low%, high%, key, index%)(2)二分法查找二分法查找要查找的数组必须有序。思想:要查找的关键值Key同数组的中间mid项元素比较:12345678111222333444555666777888Lowhighmid444Key1324.4.排序排序 选择、冒泡、插入法排序等。 前两种排序欲排序的数据全部输入后,再
83、进行排序; 插入法排序每输入一项,马上插入到数组应在的位置,数组始终有序。 例6.17 实现的步骤: (1)输入欲排序的数据项x;在数组a中找x应所处的位置j; (2)从数组的最后一个元素开始到下标j依次往后移,使j位置空出; (3)将x放入位置j处,一个数据插入完成; (4)有若干个数重复(1)(3)。1335. 5. 例例6.186.18 高次方程求根高次方程求根 有牛顿迭代法、二分法、弦截法等(1)牛顿迭代法迭代公式:思想:对方程给定一个初值x0作为方程的近似根,利用迭代公式,求得x1,当 x1为求得的近似根,否则x1作为x0再迭代。134(2) (2) 二分法求根二分法求根思想:已知求
84、根区间a,b有一根,每次把求根区间缩小一半,直到找到解或求根区间足够小。方法:求a,b的中点c,判断f(c)=0,c为求得的根,结束;f(a)与f(c)同号,则a,c无根,代替a;否则c,b无根,c代替b;使求根区间缩小一半,重复上述步骤,直到区间小于精度。Public Function halfRoot(ByVal a!, ByVal b!) Dim c! Do While Abs(b - a) 0.00001 c = (a + b) / 2 If f(c) = 0 Then Exit Do ElseIf f(a) * f(c) 0 Then a = c Else b = c End If
85、Loop halfRoot = cEnd Function1356.6.例例6.196.19数值积分数值积分有矩形法、梯形法、抛物线法(又称辛卜生法)等。梯形法积分的思想是:将积分区间a,bn等分,小区间的长度为,第i块小矩形的近似面积为:整个积分的结果为这n块小面积的累加,即:Public Function trapez(ByVal a!, ByVal b!, ByVal n%) As Single Dim sum!, h!, x! h = (b - a) / n sum = (f(a) + f(b) / 2 For i = 1 To n - 1 x = a + i * h sum = su
86、m + f(x) Next itrapez = sum * hEnd Function1367.7.字符串处理字符串处理例6.20编写一个英文打字训练的程序.要求如下:(1)在标签框内随机产生30个字母的范文;(2)当焦点进入文本框时开始计时,并显示当时时间;(3)在键入文本框按产生的范文输入相应的字母;(4)当键入满了30个字母结束计时,禁止向文本框输入内容,键入的字符逐一范文比较,显示打字的速度和正确率。1376.7重点和难点1. 1. 确定自定义的过程是子过程还是函数过程确定自定义的过程是子过程还是函数过程函数过程名有值,子过程名无值。过程有一个返回值,则使用函数过程;若返回多个值或无返
87、回值,一般使用子过程。2 2过程中形参的个数和传递方式的确定过程中形参的个数和传递方式的确定过程中参数的作用是实现过程与调用者的数据通信。(1)从主调程序获得初值,值传递。(2)将结果返回给主调程序,地址传递。3. 3. 实参与形参结合时对应问题实参与形参结合时对应问题 个数、类型、位置、次序一一对应。形参是值传递,对应实参可以是表达式、常量、数组元素。形参是地址传递,对应实参只能是简单变量。数组、记录类型、对象只能是地址传递。1384. 4. 变量的作用域问题变量的作用域问题局部变量、静态变量、全局变量特点、作用5. 5. 递归调用出现递归调用出现“栈溢出栈溢出”递归过程中有终止的条件和终止
88、时的值或某种操作;每递归调用一次,其中的参数要向终止方向收敛。 139第七章第七章 常用控件常用控件4.1 4.1 单选按钮和复选框单选按钮和复选框4.2 4.2 框架框架4.3 4.3 列表框和组合框列表框和组合框4.4 4.4 滚动条和滚动条和SlideSlide控件控件4.5 4.5 时钟时钟4.6 ProgressBar4.6 ProgressBar控件控件4.7 UpDown4.7 UpDown控件控件4.8 Animation4.8 Animation控件控件4.9 SSTab4.9 SSTab控件控件4.10 4.10 鼠标器和键盘鼠标器和键盘140;.1.标准控件标准控件内部控
89、件出现在工具箱上的控件,20个2. ActiveX控件控件 ActiveX部件:是可以重复使用的编程代码和数据是由用ActiveX技术创建的一个或多个对象所组成ActiveX部件文件:扩展名OCX,在Windows的SYSTEM目录中ActiveX部件ActiveX控件ActiveX文档ActiveXDLLActiveXEXEActiveX控件添加到工具箱:工程/部件选定控件141常用ActiveX控件所在的文件:ActiveX控件ActiveX部件文件名通用对话框(CommonDialog)MicrosoftCommonDialogControl6.0COMDLG32.OCXToolBarM
90、icrosoftWindowsCommonControl6.0MSCOMCTL.OCXStatusBarProgressBarSliderAnimationMicrosoftWindowsCommonControl-26.0MSCOMCT2.OCXUpDown142ActiveX控件与ActiveXDLL/EXE的区别:ActiveX控件:有界面用“工程/部件”命令加载工具箱上有图标ActiveXDLL/EXE:没有界面用“工程/引用”设置引用工具箱上没有图标3. 可插入对象可插入对象Windows应用程序的对象可插入对象可添加到工具箱上同标准控件一样使用例如:MicrosoftExcel工作
91、表1437.1 单选钮和复选框单选钮和复选框Caption属性:属性:文本标题。Alignment属性属性0:控件钮在左边,标题显示在右边。1:控件钮在右边,标题显示在左边。Value属性属性单选钮( (逻辑型逻辑型) ) 检查框(数值型)(数值型)True:选定0-Unchecked:未被选定False:未选定 1-Checked:选定2-Grayed:灰色,禁止选择Style属性属性0-Standard:标准方式1-Graphical:图形方式144 事件:事件:Click因为单击时自动改变状态,故不需要编写过程例例7.17.1 用单选钮和检查框设置文本框的字体。1457.2 框架框架(F
92、rame)框架内控件的创建方法:框架内控件的创建方法:方法1:单击工具箱上的工具,然后用出现的“+”指针,在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上图标的自动方式。方法2:将控件“剪切”到剪贴板,然后粘贴(Ctrl+V)到框架。框架设Caption为字体146Caption属性属性:框架标题Enabled属性属性False:标题呈灰色,不允许对框架内的对象进行操作。Visible属性属性True:框架及其控件可见。False:框架及其控件被隐含起来。Click、DblClick事件一般不需要编写框架的事件过程。例例7.27.2 框架用法示例1477.3 列表框和组合框列表框和组
93、合框列表框各主要属性的值:List1.ListIndex=3(下标从0开始的)List1.ListCount=5List1.Selected(3)=True,其余为False。List1.Sorted=False,没有排序。List1.Text为“cox”,与List1.List(List1.ListIndex)相等List1列表框各主要属性的值:List1.ListIndex=0List1.ListCount=8List1.Selected(3)=True其余为False。List1.Sorted=FalseList1.Text为“李宁”Combo11481. 共有的重要属性共有的重要属性(
94、P:可在程序中设置或引用,D:可在设计状态设置)List:PD字符型数组,存放列表框的项目,下标是从0开始。ListIndex:P选中的项目的序号,没有项目被选定时为-1ListCount:P项目的数量,ListCount-1是最后一项的下标。Sorted:DTrue:按字母顺序排列。False:按加入先后顺序排列。Text:P列表项中被选定的内容,List1.List(List1.ListIndex)=List1.Text。1492. 列表框的特有属性列表框的特有属性Selected:P逻辑数组。Selected(i)的值为True表示第i+1项被选中。MultiSelect0-None:禁
95、止多项选择。1-Simple:简单多项选择。2-Extended:扩展多项选择。3. 列表框的特有属性列表框的特有属性Style类型类型Style输入输入下拉式组合框0能简单组合框1能下拉式列表框2不能1504. 方法方法AddItem对象.AddItemitem,indexRemoveItem对象.RemoveItemindexClear对象.Clear5. 事件事件列表框:Click、DblClick组合框:Click,只有简单组合框才有DblClick事件一般不需要编写Click事件过程通常在单击命令按钮或发生DblClick事件时才读取Text属性151例例7.3对列表框进行项目添加、
96、修改和删除操作。例例7.4对列表框进行项目添加、修改和删除操作。1527.4 滚动条和滚动条和Slider控件控件共同具有的重要属性共同具有的重要属性Max:最大值-32,76832,767Min:最小值-32,76832,767SmallChange最小变动值,单击箭头时移动的增量值。LargeChange最大变动值,单击空白处时移动的增量值。Value滑块所处位置所代表的值。水平滚动条垂直滚动条SmallChangeMinValueMaxSmallChangeLargeChangeLargeChangeSlider控件153事件:事件:Scroll:拖动滑块时会触发Scroll事件。Cha
97、nge:Value属性改变时触发Change事件。例例7.5 用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。例例7.6 调色板程序。SubhsbSpeed_Change()txtSpeed.Text=hsbSpeed.ValueEndSub例例7.7用Slider控件设置文本框中的字体大小。154时钟控件以Interval为时间间隔产生Timer事件。属性属性Interval单位:ms(0.001s),0.5秒是500。Interval0:屏蔽计时器。Enabled属性True:有效计时False:停止时钟工作事件事件Timer例例7.87.8 定时的闹
98、钟例例7.97.9 蝴蝶飞舞7.5 时钟时钟(Timer)155例例7.10用进度条指示一个大数组的计算进度。7.6 ProgressBar控件控件位于MicrosoftWindowsCommonControl6.0部件重要属性:重要属性: Max、Min:该控件的界限 Value:决定控件被填充多少 156位于MicrosoftWindowsCommonControl-26.0通常与伙伴控件“捆绑”在一起使用。UpDown应用示例7.7 UpDown控件控件157位于MicrosoftWindowsCommonControl-26.0属性:属性:Center:决定动画是否在控件的中央播放Au
99、toPlay属性:决定在用Open方法打开文件时是否自动播放。方法:方法:Open:打开文件Play:播放动画Stop:停止播放Close:关闭文件例例7.11 为例7.10配上动画。7.8 Animation控件控件158位于MicrosoftTabbedDialogControl6.0重要属性重要属性Style:选项卡样式Tabs:选项卡总数TabsPerRow:每一行选项卡的数目Rows:选项卡总行数TabOrientation:选项卡的位置。ShowFocusRect:决定选项卡上的焦点矩形是否可视。Tab:当前选项卡的序号。序号从0开始,如果Tab为1,则第二个选项卡为当前活动的选项
100、卡。例7.12选项卡制作示例7.9 SSTab控件控件1597.10 鼠标器和键盘鼠标器和键盘1. 1. 鼠标器事件鼠标器事件注意:鼠标事件发生在什么对象上,是窗体上还是控件上。MouseDownMouseDown事件事件Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single)(发生在窗体上的事件过程)MouseUpMouseUp事件事件Sub Form_MouseUp(Button As Integer, Shift As Integer,X As Single, Y As Single)
101、 (发生在窗体上的事件过程)MouseMoveMouseMove事件事件Sub Form_MouseMove(Button As Integer, Shift As Integer,X As Single, Y As Single) (发生在窗体上的事件过程)160(1) Button(1) Button参数参数b2b1b0B0为1:按下了左键B1为1:按下了右键B2为1:按下了中键例如:Button为2(010B),即B1为1,表示按下了右键;如果按了左键,则B0为1,B1和B2为0,Button为1(001B)If Shift = 1 Then 或者或者 If Shift = vbLeft
102、Button Then 这是按了左健后执行的代码这是按了左健后执行的代码 Endif 使用符号常数:使用符号常数:1vbLeftButton:用户按下左键触发了鼠标事件;2vbRightButton:用户按下右键触发了鼠标事件;4vbMiddleButton:用户按下中键触发了鼠标事件。161(2) Shift(2) Shift参数参数b2b1b0B0为1:按下了Shift键B1为1:按下了Ctrl键B2为1:按下了Alt键例如:Button为2(010B),即B1为1,表示仅仅按下了Shift键;如果同时按了Ctrl和Shift键,则B0和B1为1,B2为0,Button为3(011B)注意
103、:注意: 可能同时按下两个或三个键。如果Button1成立,并不表示没有按下Shift,因为可能其他键也被按下了。如果要测试按下了某个键,则应用and进行位运算。例如Buttonand1成立,表示肯定按下了Shift(可能其它键也被按下了)。If Shift = 1 and Button = 2 Then 这是仅按住这是仅按住Ctrl了健单击鼠标后执行的代码了健单击鼠标后执行的代码 End If 思考:Shift=1andButtonand2表示什么意义?162符号常数:符号常数:1vbShiftMask2vbCtrlMask4vbAltMask ShfitAndvbCtrlMask为真:按下
104、了Ctrl键CBool(ShiftAndvbCtrlMask)OrCBool(ShiftAndvbShiftMask)为真:按下了Ctrl键和Shift键(3) x,y:鼠标的当前位置:鼠标的当前位置例例7.137.13 显示鼠标器指针所指的位置例例7.147.14 画圆程序按下鼠标右键画园,按下鼠标左键移动时画线。在画线时用note14.ico作为鼠标的指针。1632. 键盘事件键盘事件 KeyPress事件过程事件过程SubForm_KeyPress(KeyAsciiAsInteger)Subobject_KeyPress(indexAsInteger,KeyAsciiAsInteger)
105、 KeyDown事件过程事件过程SubForm_KeyDown(keycodeAsInteger,shiftAsInteger)Subobject_KeyDown(indexAsInteger,keycodeAsInteger,shiftAsInteger)KeyUp和和KeyDown事件过程事件过程SubForm_KeyUp(keycodeAsInteger,shiftAsInteger)Subobject_KeyUp(indexAsInteger,keycodeAsInteger,shiftAsInteger) 参数说明参数说明Shift与鼠标事件过程Shift相同KeyCode:键盘扫描
106、码KeyAscii:字符ASCII码164KeyPressKeyDown和和KeyUp事件发生的时间事件发生的时间输入一个ASCII字符按任意一个键参数值参数值KeyAscii接收到字符的ASCII值KeyCode接收到键的扫描码按按Shift+A时时事件发生的次数事件发生的次数事件发生一次事件发生两次按按Shift+A时参数值时参数值(键盘处于大写状态键盘处于大写状态)97第一次是17第二次是65按按Shift+A时参数值时参数值(键盘处于小写状态键盘处于小写状态)65第一次是17第二次是65区别区别165窗体的:KeyPressKeyDownKeyUp 控件的:KeyPressKeyDow
107、nKeyUp 窗体的KeyPreview为True焦点在控件上输入Sub Form_KeyPress(KeyAscii AsInteger)KeyAscii = KeyAscii + 1End SubSub Text1_KeyPress(KeyAscii As Integer)KeyAscii = KeyAscii + 1End Sub假定窗体KeyPreview为True,并有下面事件过程,则当文本框中输入“1”时,实际上是得到的是“3”?窗体KeyPreview为False时在文本框中输入“1”时,实际上是得到的是什么。在这里作一点修改在这里作一点修改影响所有控件影响所有控件在这里作一点修
108、改在这里作一点修改影响一个控件影响一个控件166对输入的数据进行验证、限制和修改对输入的数据进行验证、限制和修改1.修改输入数据。接收大写字符将KeyPreview设置为True时Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(a) And KeyAscii = Asc(z) ThenKeyAscii = KeyAscii + Asc(A) - Asc(a) End IfEnd Sub如果把它改为某个控件的事件过程,效果一样吗?2.限制数据输入文本框只能接收“0”“9”的数字字符。Sub txtExample_KeyPress(
109、KeyAscii As Integer) If KeyAscii 57 ThenKeyAscii = 0 End IfEnd Sub167 例7.15编写一个程序,当按下Alt+F5时终止程序的运行。先把窗体的KeyPreview设置为True,再编写如下的程序:SubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)按下Alt键时,Shift的值为4If(KeyCode=vbKeyF5)And(Shift=4)ThenEndEndIfEndSub168例例7.167.16 “锤打红心”游戏(1)我们利用上、下、左、右四个箭头键控制“铁锤”“”:37(&
110、H25)“”:38(&H26)“”:39(&H27)“”:40(&H28)(2)如果Abs(Image1.Left-Image2.left300)AndAbs(Image1.Top-Image2.Top320)成立,则认为是重叠,“铁锤”锤打到“红心”。(3)在窗体上的时钟控件(Timer1)过程中控制“红心”移动。Timer1的Interval属性为200,即每1秒产生5个Timer事件。Image2Image11693.3.拖放拖放自动拖放手工拖放1701. DragMode属性属性0:(缺省),手工拖动模式1:自动拖动模式2. DragIcon属性属性拖动过程中显示的图标(Ico或Cur
111、文件)。lblExample1.DragIcon=LoadPicture(C:IconsMail.ico)lblExample2.DragIcon=picIcon.Picture3. Drag方法方法当DragMode为0时,需用Drag方法启动拖放控件名称.Drag参数0:开始拖放操作1(省略):结束拖放操作2:取消拖放操作171例例7.177.17拖放应用示例例例7.187.18拖放应用示例172例例7.197.19 九宫游戏制作99的九宫界面设计先定制一个控件数组元素lblGrid(0),在运行时通过控件数组的特性生成其他元素拖放时实现源标签与目标标签的交换173 4. OLE 4. O
112、LE 拖放拖放 OLEDragMode属性(源控件设置)0-Manual:缺省,手工1-Automatic:自动OLEDropMode属性(目标控件设置)0-None:缺省,目标控件不接受“放”1-Manual:手工实现“放”操作。2-Automatic:自动实现“放”完全支持自动OLE拖放:PictureBoxImageTextBox。示例支持自动“拖”操作,不支持自动“放”:ComboBoxDirListBox和ListBox。示例只支持OLE拖放事件的控件有:CheckBox FrameOptionButton、LabelDriveListBoxCommandButton174例7.20
113、从Windows资源管理器把文件的文件名拖到标签上SubLabel1_OLEDragDrop(DataAsDataObject,EffectAsLong,_ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.Caption=Data.Files(1)在资源管理器中选定文件且拖出时,系统就把所选定的文件名保存在Data对象的Files属性中,Files属性实质上是一个数组。Label1.Caption=Data.Files(1)语句将保存的第一个文件名显示在标签中EndSubOLEDropMode为1(Manual)1758.1 8
114、.1 通用对话框通用对话框8.2 8.2 菜单设计菜单设计8.3 8.3 多重窗体和多文档界面多重窗体和多文档界面 8.4 8.4 工具栏和状态栏工具栏和状态栏8.5 RichTextBox8.5 RichTextBox控件控件8.6 8.6 应用程序向导应用程序向导第八章第八章 界面设计界面设计(3学时)学时)1768.1 通用对话框通用对话框(CommonDialog)属性Action:打开通用对话框。DialogTiltle:对通用话框标题。CancelErrorTrue:选择“取消”按钮,出现错误警告;Err.Number置为32755(cdCancel)。False(缺省):选择“取
115、消”按钮,没有错误警告。工程/部件选定部件标签选定MicrosoftCommDialogControl6.0通用对话框添加到工具箱确定打开通用对话框:177属性属性:包含路径:不包含路径Filter:例如,Documents(*.DOC)|*.DOC|TextFiles(*.TXT)|*.txt|AllFiles|*.*FilterIndex:决定在文件类型列表框中显示第几组类型的文件。InitDir:初始化路径 1. 1. “打开打开”文件对话框文件对话框DialogTiltleInitDirFilterFilterIndexDefaultExt178例例8.1 8.1 简单的文本编辑程序,
116、当按“打开”按钮,在“打开”对话框按“取消”按钮,显示有关信息。OpenCommonDialog1.ForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdatatxtNoteEdit.Text=txtNoteEdit.Text+inputdata+_Chr(13)+Chr(10)LoopClose#11792. 2. “另存为另存为”对话框对话框没有提供真正的存储文件操作,仍需要编程完成储存操作。属性属性DefaultExt:缺省扩展名例8.1中“另存为.”按钮的事件过程3. 3. “颜色颜色”对话框对话框属性属性Color:返回或设置选定的颜色。例8.1
117、中“颜色.”按钮的事件过程1804. 4. “字体字体”对话框对话框Flags属性:指示所显示的字体类型,必须设置必须设置。cdlCFScreenFonts&H1屏幕字体cdlCFPrinterFonts&H2打印机字体cdlCFBoth &H3打印机字体和屏幕字体。cdlCFEffects&H100显示删除线和下划线检查框以及颜色组合框FontNameFontBold、FontItalic FontSizeFontStrikethruFontUnderlineColorMin、Max 例8.1中“字体.”按钮的事件过程1815.“打印”对话框属性属性FromPage:起始页号ToPage:终
118、止页号Copies:打印份数如果打印驱动程序不支持多份打印,该属性有可能始终返回1。 例8.1中“打印.”按钮的事件过程6.“帮助”对话框帮助文件需要用其他的工具制作,如MicrosoftWindowsHelpCompiler。属性属性例例8.5 HelpCommand:在线Help帮助类型HelpFile:Help文件的路径及其名称HelpKey:在帮助窗口显示由该帮助关键字指定的帮助信息。1828.2 菜单的设计菜单的设计菜单形式:主菜单名快捷键热键子菜单标记主菜单条分隔线菜单项子菜单名183菜单列表框一、菜单编辑器的使用一、菜单编辑器的使用工具菜单编辑器(CTRL+E)窗体上快显菜单菜单
119、编辑器菜单项属性常用属性:1.标题(Caption)热键:前面加&2.名称(Name)文本框分隔符也应有名称。3.快捷键(Shortcut)菜单名没有快捷键4.复选(Checked)检查框TRUE有5.有效(Enabled)检查框6.可见(Visible)检查框操作按钮示例示例 8.6 建立一个有菜单功能的文本编辑器。184二、二、 菜单项增减菜单项增减在程序运行时,菜单随时增减,如“文件”菜单能保留最近打开的文件数。这同控件数组一样,使用菜单数组。步骤:1.在菜单设计时,加入一个菜单项,其Index为0(菜单数组),Visual为False。2.在程序运行时,通过Load方法向菜单数组增加新
120、的菜单项。例8.7在8.6中的文件菜单中保留最近打开的文件清单。同样,要删除所建立的菜单项,使用UnLoad方法向菜单数组减少菜单项。185三、三、 弹出菜单弹出菜单( (快捷菜单快捷菜单) )显示在窗体的浮动菜单,操作时使用右键,菜单与鼠标位置有关。设计与普通菜单,仅该菜单名不可显示;要显示时使用PopupMenu方法弹出菜单。形式:对象.PopupMenu菜单名,标志,x,y标志,表示弹出的位置和触发的键位置性能0:X位置确定弹出菜单的左边界0只能用鼠标左键触发弹出菜单;4:弹出菜单以X为中心2:能用鼠标左、右键键触发弹出菜单;8:X位置确定弹出菜单的右边界位置与性能是加的关系。弹出菜单示
121、例弹出菜单示例SubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuEditMenu,vbPopupMenuCenterAlignEndSub1868.3 多重窗体和多文档窗体多重窗体和多文档窗体一、多重窗体一、多重窗体1.添加窗体添加窗体 “工程|添加窗体”新建现存添加添加“现存现存”窗体时要注意:窗体时要注意:防止多个窗体的name相同而不能添加;添加的窗体实际是将其他工程中已有的窗体加入,多个工程共享窗体;通过“另存为”命令以不同的窗体文件名保存,断开共享。
122、 2. 保存窗体保存窗体一个工程中有多个窗体,应分别取不同的文件名保存在磁盘上,VBP工程文件中记录了该工程的所有窗体文件名。187 3. 设置启动窗体设置启动窗体 设置启动对象4. 窗体语句窗体语句 (1)Load语句:装入窗体到内存但没有显示窗体形式:Load窗体名称(2)Unload语句:从内存删除窗体形式:Unload窗体名称“工程工程/属性属性” “启动对象启动对象”1885. 窗体方法窗体方法(1)Show方法:显示一个窗体(当窗体没有Load,自动Load)窗体名称.Show模式0Modal:关闭才能对其他窗体进行操作。1Modeless,可以对其他窗体进行操作。(2)Hide方
123、法:隐藏窗体,没有Unload删除窗体名称.Hide6.不同不同 窗体间数据的存取窗体间数据的存取 (1)存取控件的属性存取控件的属性 另一窗体名.控件名.属性(2)存取变量的值存取变量的值另一窗体名.全局变量名189例例输入和计算学习成绩。模块:模块:PublicMATHAsSinglePublicPHYSICSAsSinglePublicCHEMISTRYAsSinglePublicCHINESEAsSinglePublicENGLISHAsSingle190二、二、 多文档界面多文档界面(MDI) 引例引例8.81. 1. 创建和设计创建和设计MDIMDI窗体及其子窗体窗体及其子窗体 (
124、1) 创建和设计MDI窗体 创建:创建: “工程/添加MDI窗体”命令设计:设计:一般有菜单栏、工具栏、状态栏191(2) (2) 创建和设计创建和设计MDIMDI子窗体子窗体 创建:创建: MDI子窗体是一个MDIChild属性为True的普通窗体。要创建多个子窗体,通过窗体类来实现:Public Sub () Dim NewDoc As New frmMDIChild No = No + 1 NewDoc.Caption = no & No NewDoc.Show End Sub设计:设计:可有菜单栏,但必须有文本框。MDI子窗体的Name1922. MDI2. MDI窗体与子窗体的交互窗
125、体与子窗体的交互 (1)活动子窗体和活动控件活动子窗体和活动控件 MDI窗体的两个属性:ActiveForm和ActiveControl例将子窗体的文本框中所选文本复制到剪贴板上:ClipBoard.SetTextfrmMDI.ActiveForm.ActiveControl.SelText (2)显示显示MDI窗体及其子窗体窗体及其子窗体 显示任何窗体的方法为show,还有有关规则:(1)加载子窗体时,其父窗体会自动加载并显示;反之则无。(2)MDI窗体有AutoShowChildren属性,决定是否自动显示子窗体(3)维护子窗体的状态信息维护子窗体的状态信息(4)用用QueryUnload
126、卸载卸载MDI窗体窗体1933. 3. 多文档界面应用程序中的多文档界面应用程序中的“窗口窗口”菜单菜单 (1)显示打开的多个文档窗口显示打开的多个文档窗口要在某个菜单上显示所有打开的子窗体标题,只需利用菜单编辑器将该菜单的WindowList属性设置为True。(2)排列窗口排列窗口利用Arrange方法进行层叠、平铺和排列图标。形式:MDI窗体对象.Arrange排列方式排列方式194 8.4工具栏和状态栏工具栏和状态栏“MicrosoftWindowsCommonControls6.0”将控件添加到工具箱,通过ToolBar、ImageList组合使用建立工具栏,步骤:1.在ImageL
127、ist控件中添加所需的图像2.在ToolBar控件中创建Button对象。3.在ButtonClick事件中用SelectCase语句对各按钮进行相应的编程。一、在一、在ImageList控件中添加图像控件中添加图像ImageList控件不单独使用,专门为其他控件提供图像库.索引(Index)、关键字(Key)在ToolBar中引用图像文件的扩展名为:.ico、.bmp、.gif、.jpg等195二、在二、在ToolBar控件中添加按钮控件中添加按钮 1.为工具栏连接图像为工具栏连接图像 ToolBar与ImageList的连接工具栏样式196 2.为工具栏增加按钮为工具栏增加按钮索引(Ind
128、ex)、关键字(Key)每个按钮的编号、标识,ButtonClick事件中引用;图像(Image)ImageList对象中的图像,值可以是Key或Index样式(Style),共6种除菜单按钮(5)外的5种样式197三、三、 响应响应ToolBar控件事件控件事件 ToolBar控件常用的事件有两个:ButtonClick和ButtonMenuClick。前者对按钮样式为0-2,后者对样式为5的菜单按钮。(1)用索引Index确定按钮(2)用关键字Key确定按钮Private Sub Toolbar1_ButtonClick(Byval Button As ComctlLib.Button)
129、Select Case Button.Index Case 1 Case 2 End SelectEnd Sub注意:第1个按钮的Index值为1。用Index还是用Key比较,Key 可读性好,可维护性好。Select Case Button.Key Case TNew Case TOpen .198四、状态栏四、状态栏状态栏显示系统信息和对用户的提示,如:系统日期、软件版本、光标的当前位置、键盘的状态等。一般在窗口的底部。1建立状态栏建立状态栏可插入图像显示的文本样式199 8.5 RichTextBox控件控件RichTextBox控件可以输入和编辑文本,还可以实现多种文字格式、段落等的
130、设置,还可以插入图形的功能,可真正构成一个像Word一样的字处理软件。选择“MicrosoftRichTextBoxControls6.0”将控件添加到工具箱。1.文件操作方法(1)LoadFile方法LoadFile方法能够将RTF文件或文本文件装入控件,其形式如下:对象.LoadFile文件标识符,文件类型文件类型:0或rtfRTF为RTF文件(缺省);1或rtfTEXT为文本文件(2)SaveFile方法SaveFile方法将控件中的文档保存为RTF文件或文本文件,其形式:对象.SaveFile(文件标识符,文件类型)2002常用格式化属性常用格式化属性格式化属性,可对该控件中选中的任何
131、部分的文本使用不同的格式。2013.应用例应用例8.84.插入图像插入图像在RichTextBox控件中可插入(*.bmp)的图像文件,形式如下:对象.OLEObjects.Add索引,关键字,文件标识符其中:OLEObjects是集合,包含一组添加到RichTextBox控件的对象;索引和关键字表示添加的元素编号和标识,可省,但逗号不能省。例如:RichTextBox1.OLEObjects.Add,c:windowscircles.bmp202 8.5应用程序向导应用程序向导 是方便的程序生成器,用来生成一个应用程序的界面。 选择“文件/新建工程”命令,在其对话框选中“VB应用程序向导”。
132、 1.选择操作界面,有三种:2032.2.选取菜单和菜单项选取菜单和菜单项向导提供了文件、编辑、视图、工具、窗口、帮助六个菜单名,每个菜单名下有若干个菜单项。用户可自由地选取、取消菜单名或菜单项。2043.3.选取工具栏按钮选取工具栏按钮提供的工具栏有13个按钮。用户也可根据需要增加(右移所选按钮)或删除(左移所选按钮)按钮。205第九章第九章 文件文件9.1 文件系统控件9.2 文件的读写9.3 常用的文件操作语句和函数206;.9.1 驱动器、目录和文件列表框驱动器、目录和文件列表框SubdrvDrive_Change()dirDirectory.Path=drvDrive.DriveEn
133、dSubSubdirDirectory_Change()fil=dirDirectory.PathEndSubSubForm_Load()Item=“所有文件(*.*)”cboType.AddItemItem+Space(20-Len(Item)+*.*Item=窗体文件(*.FRM)cboType.AddItemItem+Space(20-Len(Item)+*.FRMItem=位图文件(*.BMP)cboType.AddItemItem+Space(20-Len(Item)+*.BMPcboType.ListIndex=2EndSubSubcboType_Click()fil=Mid(cb
134、oType.Text,21)EndSubSubfil() EndSubSubfil() EndSub例9.1示例程序2071. 驱动器列表框驱动器列表框Drive属性:属性:对象.Drive=driveChange事件:事件:重新设置Drive属性引发Change事件 2. 目录列表框目录列表框Path属性属性 :对象.Path=pathnameChange事件:事件:重新设置Path属性引发Change事件2083. 文件列表框文件列表框Path属性:属性:显示该路径下的文件。重新设置Path属性引发PathChange事件。Pattern属性:属性:显示的文件类型。对象.Pattern=v
135、alue 重新设置Pattern属性引发PatternChange事件。例如:例如:fil=“*.frm”,显示*.frm文件。属性:属性:对象.=pathname 引用时只返回文件名,相当于fil(fil),需用Path属性得到其路径;设置时可带路径。209Click、DblClick事件:事件:例如,单击输出文件名。Subfil()MsgBoxfilEndSub例如,双击执行可执行程序Subfil()ChDir(dirDirectory.Path)改变当前目录RetVal=Shell(fil,1)执行程序EndSub2109.2 文件的读写文件的读写文件:存储在外部介质上数据的集合。按名存
136、取1.记录由若干个相互关联的数据项组成。例如,由学生的学习成绩信息组成的记录:数据项2.文件及其种类文件是记录的集合顺序访问模式:顺序文件,记录可长可短随机访问模式:随机文件,记录的长度相同二进制访问模式:二进制文件(可认为记录长度为1)211(1)顺序文件按顺序依次把记录写入文件;按顺序依次把记录读出来。文本文件:一行一条记录,记录可长可短,以“换行”字符为分隔符号。(2)随机文件随机文件可以直接访问文件中的任意一个记录。记录长度相同根据记录号访问(3)二进制文件直接把二进制码存放在文件中。2121.打开文件Open“文件名”For模式As#文件号Len=记录长度(1)模式OUTPUT:写操
137、作INPUT:读操作APPEND:追加到文件未尾(2)文件号1511,可以用FreeFile函数获得下一个可利用的文件号。(3)记录长度小于或等于32767的整数,它指定数据缓冲区的大小。例如,打开C:VBSCORE,供写入数据,指定文件号为#1。OPENC:VBSCOREFOROUTPUTAS#1一、顺序访问模式顺序访问模式打开文件读出或写入关闭文件2132.写入命令Print#文件号,输出列表保存文本框保存文本框假定文本框的名称为txtTest,文件名为TEST.DAT。方法1:把整个文本框的内容一次性地写入文件。OpenTEST.DATForOutputAs#1Print#1,txtTe
138、st.TextClose#1方法2:把整个文本框的内容一个字符一个字符地写入文件。OpenTEST.DATForOutputAs#1Fori=1Tolen(txtTest.Text)Print#1,Mid(txtTest.Text,i,1);NextiClose#1214Write#文件号,输出列表紧凑格式。数据项之间插入“,”,并加上双引号。例如,命令:Write#1,One,Two,123内容:One,Two,1233.关闭文件Close#文件号,#文件号.例如,Close#1,#2,#32154.读顺序文件INPUT#文件号,变量列表把读出的每个数据项分别存放到所对应的变量。LINEIN
139、PUT#文件号,字符串变量读一行到变量中,主要用来读取文本文件。INPUT$(读取字符数,#文件号)随意读取字符5.函数LOF(文件号):返回文件的长度(总字节数)。EOF(文件号):返回读写位置。文件未尾时,EOF函数为True,否则为False。216读文本文件到文本框读文本文件到文本框假定文本框名称为txtTest,文件名为MY。方法1:一行一行读txtTest.TextOpenMYForInputAs#1DoWhileNotEOF(1)LineInput#1,InputDatatxtTest.TexttxtTest.Text+InputData+vbCrLfLoopClose#1217
140、方法2:一次性读txtTest.TextOpenMYForInputAs#1txtTest.Text=Input(LOF(1),1)Close#1方法3:一个个字符读DimInputDataasString*1txtTest.TextOpenMYForInputAs#1DoWhileNotEOF(1)InputData=Input(1,#1)txtTest.TexttxtTest.Text+InputDataLoopClose#1218例9.3文件加密程序SubcmdOpen_Click()CommonDialog1.Action=1txtSource.TextOpenCommonDialog
141、1.ForInputAs#1DoWhileNotEOF(1)LineInput#1,InputDatatxtSource.TexttxtSource.Text+InputData+vbCrLfLoopClose#1EndSubSubcmdSave_Click()CommonDialog1.Action=2OpenCommonDialog1.ForOutputAs#1Print#1,txtTarget.TextClose#1EndSubtxtTargettxtSource参阅例3.26219二、随机文件二、随机文件1.打开Open文件名ForRandomAs#文件号Len=记录长度2.写操作Pu
142、t#文件号,记录号,变量名将一个记录变量的内容写到指定的记录位置处。忽略记录号,则表示在当前记录后的位置插入一条记录。3.读操作Get#文件号,记录号,变量名忽略记录号,则读出当前记录后的那一条记录。220例9.4学生信息管理程序。追加记录(Command1):将一个学生的信息作为一条记录添加到随机文件末尾。显示记录(cmdDisplay):显示在右边文本框(text4)中指定的记录。2211.打开Open文件名ForBinaryAs#文件号2.写操作Put#文件号,位置,变量名写入长度等于变量长度的数据。3.读操作GET#文件号,位置,变量名从指定位置开始读出长度等于变量长度的数据存入变量中
143、,数据读出后移动变量长度位置,如果忽略位置,则表示从文件指针所指的位置开始读出数据,数据读出后移动变量长度位置。三、二进制文件三、二进制文件222例例9.5文件复制DimcharAsByteDimasInteger=FreeFile打开源文件OpenC:STUDENT.DATForBinaryAs#=FreeFile打开目标文件OpenC:STUDENT.BAKForBinaryAs#DoWhileNotEOF()从源文件读出一个字节Get#1,char将一个字节写入目标文件Put#2,charLoopClose#Close#2239.3 常用的文件操作语句和函数常用的文件操作语句和函数1.语
144、句格式:source,destination功能:复制一个文件。说明:语句不能复制一个已打开的文件。2.Kill语句格式:Killpathname功能:删除文件。说明:pathname中可以使用统配符“*”和“?”。例如:Kill*.TXT3.Name语句格式:NameoldpathnameAsnewpathname功能:重新命名一个文件或目录。说明:(1)Name具有移动文件的功能。(2)不能使用统配符“*”和“?”,不能对一个已打开的文件上使用Name语句。2244.ChDrive语句格式:ChDrivedrive功能:改变当前驱动器。说明:如果drive为“”,则当前驱动器将不会改变;如
145、果drive中有多个字符,则ChDrive只会使用首字母。5.MkDir语句格式:MkDirpath功能:创建一个新的目录。6.ChDir语句格式:ChDirpath功能:改变当前目录。例如:ChDirD:TMP7.RmDir语句格式:RmDirpath功能:删除一个存在的目录。说明:只能删除空目录。2258.CurDir函数格式:CurDir(drive)功能:利用CurDir函数可以确定任何一个驱动器的当前目录。说明:drive为“”,则CurDir返回当前驱动器的当前目录。例例9.6利用ChDrive和ChDir语句改写例9.1中的()事件过程。Sub()ChDriveDrive1.Dr
146、ive 设置缺省驱动器ChDir设置缺省目录RetVal=Shell(,1)EndSub例例9.7为例9.1添加事件过程(),使之支持Del键,即按下Del键删除选定的文件。Sub(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyDeleteThenChDriveDrive1.DriveChDirKill文件删除后更新文件列表框EndIfEndSub226第十章第十章 图图 形形 操操 作作(3学时)学时)10.1 10.1 图形操作基础图形操作基础10.2 10.2 绘图属性绘图属性10.3 10.3 图形控件图形控件10.4 10.4 图形方法
147、图形方法*10.5 10.5 应用应用22710.1 图形操作基础图形操作基础10.1.1 坐标系统坐标系统每个容器都有一个坐标系,构成一个坐标系,需要三个要素:坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip,20个Twip为一磅。原点HeightScaleHeight22810.1.2 自行定义坐标系自行定义坐标系方法一:通过ScaleTop,ScaleLeft,ScaleWidth和ScaleHeight属性实现。(ScaleTop,ScaleLeft)例例10.110.1 在Form_Paint事
148、件中定义窗体的坐标系。229方法二:采用Scale方法来设置坐标系:对象.Scale(xLeft,yTop)(xRight,yBotton)例如,Form1.Scale(-200,250)-(300,-150)将建立和例例10.110.1一样的坐标系。可在程序中使用Scale方法改变坐标系统。当Scale方法不带参数时,取消用户定义的坐标系,采用缺省坐标系。改变坐标系后产生的影响:(xLeft,yTop)(xRight,yBotton)例例10.1a10.1aLine(0,0)-(1000,1000)在不同坐标系的效果例例10.1b10.1b控件对象在坐标系内与X轴和Y轴的位置保持相对不变23
149、0利用图形层的特点,实现悬浮效果。在命令按钮后放置一个表面色彩为黑色的标签即。同一图形层内控件对象排列顺序称为Z序列。Zorder方法的语法为:对象.Zorderpositionposition=0表示该控件被定位于Z序列的前面position=1表示该控件被定位于Z序列的后面例例 Zorder方法的使用。10.1.3 图形层图形层23110.2绘图属性10.2.1 当前坐标当前坐标CurrentX,CurrentY属性给出窗体或图形框或打印机在绘图时的当前坐标。这两个属性在设计阶段不能使用。例例10.210.2 利用CurrentX,CurrentY属性在窗体上输出立体字效果。6.2.2 线
150、宽与线型线宽与线型窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量,最小值为1。例例10.310.3 用DrawWidth属性改变直线宽度。232窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。6.2.3 填充与色彩填充与色彩233VisualBasic默认采用对象的前景色(ForeColor属性)绘图,也可以通过以下颜色函数指定色彩。1.RGB(红,绿,蓝)函数 红、绿、蓝三基色使用0255之间的整数。2.QBColor(颜色码)颜色码使用015之间的整数10.3 图图形控件形控件10.3.1
151、Picture Box(图形框图形框)主要作用:显示图片、也可作为其他控件的容器。装入图形:图形框对象.Picture=LoadPicture(“图形文件名”)删除图形:图形框对象.Picture=LoadPicture()Autosize属性设置为True时,图形框能自动调整大小与显示的图片匹配例例10.410.4 颜色的渐变过程。23410.3.2 Image(图像框图像框)图像框比图形框占用更少的内存快。图像框内不能保存其他控件。Stretch属性=False,图像框可自动改变大小以适应其中的图形。Stretch属性=True,图形可自动调整尺寸以适应图像框的大小。例例10.510.5
152、图形框Autosize属性与图像框的Stretch属性对加载图形的影响。SavePicture对象名.属性,文件名把绘制或装在窗体、图形框和图像框内的图形保存到Bmp格式文件内。10.3.3 Line(画线工具画线工具)10.3.4 Shape(形状形状)例例10.610.6例例10.710.723510.4 图形方法图形方法10.4.1 Line方法方法画直线或矩形:对象.LineStep(x1,y1)(x2,y2),颜色,BF其中:对象可以是窗体或图形框。(x1,y1),(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。关键字B表示画矩形,关键字F表示用画矩形的颜色来填充矩形。例例1
153、0.810.8 用Line方法在一个窗体上画坐标轴与坐标刻度。例例10.910.9用Line方法在一个窗体上画随机射线。10.4.2 Circle方法方法Circle方法用于画圆、椭圆、圆弧和扇形。23610.4.3 Pset方法方法Pset方法用于画点:对象.PsetStep(x,y),颜色参数(x,y)为所画点的坐标,关键字Step表示采用当前作图位置的相对值。例例10.1010.10 本例用Pset方法绘制阿基米德螺线10.4.4 Point方法方法Point方法用于返回指定点的RGB颜色,其语法格式如下:对象.Point(x,y)其中参数对象与(x,y)的意义与前述相同。例例10.11
154、10.11 用Point方法获取一个区域的信息。利用例10.11的处理方法可使图片产生朦胧的效果。23710.5 应用应用10.5.1 几何图形绘制几何图形绘制利用Line方法和Circle方法及DrawWidth、DrawStyle和DrawMode属性。例例10.1210.12 用Circle方法在窗体上绘制由圆环构成的艺术图案。算法:等分半径为r的圆周为n份,以等分点为圆心,半径r1绘制n个圆。例例10.1310.13为了能绘制任意区间a,b上函数f(x)积分面积图,可在窗体上放置一个图形框和两个文本框。文本框用于指定积分上下限的值,图形框用于绘图。根据区间a,b的值设置图形框的左上角坐
155、标为(a-1,bb+1),右下角坐标为(b+1,-1)。将区间a,b等分为n份,在每一等分点i上,用Line方法连线到(i,i*i)。23810.5.2 简单动画设计简单动画设计动画:有计划地移动一个对象包括改变对象的形状和尺寸。编程时可以采用帧动画原理,即通过一系列静态图辅之以连续快速变化产生动画效果,也可以通过Move方法改变图形对象的Top及Left属性来移动图形。动画的速度使用时钟控制。例例10.1410.14 通过改变图形形状演示一个陀螺在图形框内转动。例例10.1510.15演示地球图标的转动,在转动时同时使地球图标在窗体内移动,并变化地球图标的尺寸。(用PictureClip控件
156、来存放一组图片)10.5.3 图形漫游图形漫游滚动图形通过滚动条的滑块移动,只要设置图形框的Left或Top为滑块当前值的负数,就可形成图形相对移动。例例10.1610.16 本例在窗体内显示一幅地图,移动滚动条漫游地图。23910.5.4 图形处理技术图形处理技术1.操作像素通过PaintPicture方法访问内置在操作系统中的BitBlt服务程序。dpic.PaintPicturespic,dx,dy,dw,dh,sx,sy,sw,sh,rop其中:参数dpic为目标图形对象,spic为传送源,dx,dy是传送目标矩形区域左上角坐标(目标控件内任一位置)。dw,dh是目标形矩形区域的宽和高
157、。sx,sy是要传送图形矩形区域左上角坐标。sw,sh是要传送图形矩形区域的大小。rop指定传送的像素与目标中现有的像素组合模式(如表所示)。240传送源目标PaintPicture方法(sx,sy)swdpic.PaintPicturespic,dx,dy,dw,dh,sx,sy,sw,sh,ropdw,dhsw,sh至少8个Twip(dx,dy)dwdhsh241复制图形:设置目标区域左上角坐标和大小与源矩形区域相同。翻转图形:只需改变坐标系,设置图形宽为负数,则水平翻转图形;图形高度为负数,则上下翻转图形;如果宽度和高度都为负数,则两个方向翻转图形。放大图形:改变目标图形的宽度和高度。旋
158、转图形:要需要对原始图片按行和列的顺序或按列和行的顺序扫描像素点,然后在目标图形区颠倒行和列的顺序复制像素点。例例10.1710.17 PaintPicture方法翻转放大位图。例例10.17a10.17a 本例使用PaintPicture方法实现百叶窗效果。2 使用使用DrawMode属性绘制图形属性绘制图形DrawMode属性可以将新像素与原有像素用不同的方法组合。两次Xor运算恢复原有像素。例例10.1810.18 用鼠标选定图形中的区域复制到指定的图片框。例例10.18a10.18a 在Xor运算符下图形叠加的效果。24210.5.5 改变窗体对象外观改变窗体对象外观通过调用Windo
159、ws的API函数可改变窗体的外观形状。VB应用程序要访问API函数,必须在VB应用程序中用Declare语句将API函数声明为外部过程。Declare语句将API函数声明为外部过程VisualBasic应用程序访问返回243执行VB程序组中的API文本浏览器,启动API函数查看工具。单击“文件|加载文本文件”命令,装入Win32api.Txt文件。通过“工程/添加模块”在当前工程内加入一个BAS模块文件。添加指定的API函数到选定项框中,并将函数声明复制到剪贴板。将剪贴板中的内容粘贴到BAS模块文件中。将API函数声明为外部过程,操作流程如下:244API文本浏览器应用程序文件/加载文本文件2
160、451。选择信息类型2。选定3。4。送剪贴板选定API函数复制到剪贴板246例例10.19 建立一个椭圆形状的窗体。API函数CreateEllipticRgn建立椭圆外形区域,SetWindowRgn显示该区域。SetWindowRgn函数参数说明:hWnd窗口句柄,hRgn为窗口形状,bRedraw图形重绘控制,为一逻辑值。句柄(Handle)可看作一个对象的指针,通过它可访问该对象。可通过API函数或对象的属性返回句柄。使用API的区域设置函数不仅可以改变窗体外观,也可以改变控件外观。CreateEllipticRgn函数参数说明:坐标参数采用象数值。实际显示的窗体区域由窗体的Heigh
161、t、Width属性确定。需要使用ScaleX和ScaleY方法对窗体的度量单位进行转换。(x1,y1)(x2,y2)24710.5.6 在程序中加入后台音乐在程序中加入后台音乐API函数sndPlaySound可以直接播放音频文件或系统声音。sndPlaySound函数有两个参数,lpszSoundName指定播放的音频文件或系统声音,uFlags设定播放状态。例例10.20 本例示范用sndPlaySound函数播放音频文件。调用形式:k=sndPlaySound(音频文件名,播放方式)播放文件为空,就可停止音乐播放注:本例要求有多媒体设备注:本例要求有多媒体设备248第十一章第十一章 Vi
162、sual Basic与数据库与数据库(1学时)学时)11.1 11.1 数据库概念数据库概念11.2 11.2 数据库管理器数据库管理器11.3 11.3 数据控件数据控件* *11.4 ADO11.4 ADO数据控件数据控件* *11.5 11.5 结构化查询语言结构化查询语言(SQL)(SQL)* *11.6 11.6 报表制作报表制作11.7 11.7 错误处理错误处理24911.1 数据库概念数据库概念数据库表数据库就是一组排列成易于处理和读取的相关信息的集合。关系模型已经成为数据库设计事实上的标准。250关系型数据库模型251一个数据库可以由多个表组成,表与表之间可以用不同的方式相互
163、关联。若第一个表中的一条记录内容与第二个表中多条记录的数据相符,但第二个表中的一条记录只能与第一个表的一条记录的数据相符,这样的表间关系类型叫做一对多关系。若第一个表的一条记录的数据内容可与第二个表的多条记录的数据相符,反之亦然,这样的表间关系类型叫做多对多关系。一对多关系252可以将一个或几个表中的数据构成记录集Recordset对象,记录集也由行和列构成,它与表类似。学号课程成绩990001数学85学号姓名性别专业出生日期990001万林男物理82-1-11990002庄前 女 物理82-9-21。(表一)数据库记录集学号姓名专业课程成绩990001万林物理数学85990002庄前 物理外
164、语90。253在VB中数据库内的表格不允许直接访问,而只能通过记录集对象进行记录的操作和浏览,因此,记录集是一种浏览数据库的工具。数据库记录集25411.2 数据库管理器数据库管理器VB的数据库管理器(Visdata.exe)可用于管理数据库。在VB开发环境内单击外接程序菜单中的可视化数据管理器命令可打开可视数据管理器。255数据库管理器使用小结:1建立新表:鼠标右键单击数据库窗口,弹出菜单,选择对应命令。2打开、删除表,修改表结构和建立表间的关联等操作:右键单击数据库窗口内的表名,弹出菜单,选择对应命令。3编辑记录:双击表名,打开表格输入窗,编辑、增删记录。建立Student.mdb数据库,
165、所含学生基本情况表结构如下:25611.3 数据控件数据控件工具箱内数据控件图标形状画在窗体上的外观11 .3.1 数据控件数据控件注:注: RecordSource属性可以是数据库中的单个表名,也可以是使用SQL查询语言的一个查询字符串。如果连接的是单表数据库,则DatabaseName属性应设置为数据库文件所在的子目录名,而具体文件名放在RecordSource属性中。能够利用三种记录集对象访问数据库中的数据,连接方法:257数据库记录集绑定控件姓名庄前性别女数据控件只能连接数据库产生记录集,不能显示记录集中的数据,要显示记录集中的数据必须通过能与它绑定的控件来实现。常用绑定控件258绑定
166、控件具有DataSource和DataField两个重要属性,其作用如下:Data控件、记录集与绑定控件记录集学号姓名专业课程成绩990001万林物理数学85990002庄前 物理外语90。数据库259例例11.211.2 用一个数据网格控件MsFlexGrid显示Student.mdb数据库中基本情况表的内容。例例11.111.1 设计一个窗体显示在11.2节中建立的的Student.mdb数据库中基本情况表的内容。属性:Rows、Cols(网格的行或列数)FixedRows、FixedCols(不可卷动的行或列数)26011.3.2 数据控件的事件数据控件的事件26111.3.3 数据控件
167、的常用方法数据控件的常用方法Refresh26211.3.4 记录集的属性与方法记录集的属性与方法1属性EofBofBookMarkRecordCount2632记录集的方法MoveLastMoveFirstMoveNextMovePreviousFindFirst、FindLast、FindNext、FindPrevious方法可在指定的Dynaset或Snapshot类型的记录集对象中查找。Seek方法在Table表中查找。Nomarch属性可判定是否找到。Data1.Recordset.FindFirst姓名=黎明Nomarch=False例11.3 在窗体上用Move方法代替数据控件对
168、象的4个箭头的操作。26411.3.5 记录的增删改操作记录的增删改操作Data1.Recordset.AddNew增加记录数据库UpData填入新数据编辑记录删除记录调用Edit方法。调用Delete方法。给各字段赋值。移动记录指针。调用Update方法。例11.4 对数据库提供增、删、改和查找功能。26511.4 ADO数据控件数据控件ADO是Microsoft处理数据库信息的最新技术,它是一种ActiveX对象,采用了被称为OLEDB的数据访问模式。它是数据访问对象DAO、远程数据对象RDO和开放数据库互连ODBC三种方式的扩展。ADO对象模型更为简化,不论是存取本地的还是远程的数据,都
169、提供了统一的接口。11.4.2 使用使用ADO数据控件数据控件11.4.1 ADO对象模型对象模型在使用ADO数据控件前,必须先通过“工程/部件”菜单命令选择“MicrosoftADODataControl6.0(OLEDB)”选项,将ADO数据控件添加到工具箱。ADO数据控件与VisualBasic的内部数据控件很相似,它允许使用ADO数据控件的基本属性快速地创建与数据库的连接。266工具箱内ADO控件图标形状画在窗体上的外观能够利用三种记录集对象访问数据库中的数据,连接方法:267连接操作-鼠标右击ADO控件,选择快捷菜单“ADODC属性”命令,打开ADO控件属性页窗:单击268选定选定数
170、据库269选定设置完成后,ADO控件的ConnectionString属性为:Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource=Student.mdbRecordSource属性为:基本情况(表)ADO控件的的其他操作与Data控件相同。27011.4.3 ADO控件上绑定控件的使用控件上绑定控件的使用MSFlexGridMSHFlexGridDataGridMSChartDataComboDataList例例11.527111.4.4 使用数据窗体向导使用数据窗体向导通过数据窗体向导能建立一个访问数据
171、的窗口。在使用前必须执行“外接程序/外接程序管理器”命令,将“VB6数据窗体向导”装入到“外接程序”菜单中。步骤1:执行“外接程序”菜单中的“数据窗体向导”命令272步骤2:选择数据库类型。273数据库步骤3:选择具体的数据库文件。274步骤4:设置应用窗体的工作特性。275步骤5:选择记录源(所需要的实际数据)。276步骤6:选择所需要的操作按钮。例例11.627711.5 结构化查询语言结构化查询语言(SQL)11.5.1 结构化查询语言结构化查询语言结构化查询语言SQL是操作数据库的工业标准语言。在SQL语言中,指定要做什么而不是怎么做。不需要告诉SQL如何访问数据库,只要告诉SQL需要
172、数据库做什么。利用SQL,可以确切指定想要检索的记录以及按什么顺序检索。可以在设计或运行时对数据控件使用SQL语句。用户提出一个查询,数据库返回所有与该查询匹配的记录。27827911.5.2 使用使用SELECT语句查询语句查询1.使用SELECT语句从数据库中的获取数据称为查询数据库,查询数据库通过使用SELECT语句。常见的SELECT语句形式为:Select字段表From表名Where查询条件GroupBy分组字段OrderBy字段Asc|Desc可以在设计或代码中对数据控件的RecordSource属性设置SQL语句,也可将SQL语句赋予对象变量。在建立SQL语句时,如果需要通过变量
173、构造条件,则需要在应用程序中将变量连接到SELECT语句。例如:Select*From基本情况Where专业=&Text1&例11.7将例11.4中的查找功能改用SQL语句处理。例11.8用SQL语句从两个数据表中选择数据构成记录集。例11.9 用SQL指令按专业统计Student.mdb数据库各专业的人数。280例11.10在ADO数据控件上使用SQL语句。将例11.8中的Data控件改用ADO数据控件,用SQL语句从Student.mdb数据库的两个数据表中选择数据构成记录集。例11.11设计一个窗体,计算Student.mdb数据库内学生成绩表中每个学生的平均成绩,产生姓名、平均成绩和最
174、低成绩三项数据,按平均成绩升序排列数据,并用该数据作图。*2.使用UPDATE语句修改记录UPDATE创建一个更新查询来按照某个条件修改特定表中的字段值。其语法如下:UPDATE表集合SET表达式WHERE条件例11.11a 本例把学生平均成绩字段的值增加了10%,并刷新网格。*3.使用DELETE语句查询可以创建删除查询来删除FROM子句中列出的、满足WHERE子句的一个或多个表中的记录,其语法所示如下:DELETE表字段FROM表集合WHERE条件例11.11b删除例11.11a所产生temp表中平均成绩90的全部记录,并刷新网格。281*11.5.3 使用对象变量访问数据库使用对象变量访
175、问数据库DAO对象定义了一个可编程的对象集合。可按下列方法定义数据库对象和记录集对象,不必在窗体上放置数据控件要想在程序中使用DAO对象,必须先为当前工程引用DAO对象的数据库引擎库。引用方式:执行工程菜单的引用命令,启动引用对话框,在清单中选取“MicrosoftDAO3.51ObjectLibrary”项目。282例11.11e 使用DAO模型访问数据库,约束绑定控件。记录集的字段对象可以使用如下几种方法获取:Recordset.Fields(“字段名称”)、Recordset(“字段名称”)Recordset.Fields(“数字”)、Recordset(“数字”)在DAO中记录集对象为
176、对象变量,故字段可用rs(j)表示。例11.11c 使用DAO模型访问数据库,用学号查找学生的记录。使用DAO模型访问数据库的例题。例11.11d 使用DAO模型访问数据库,分页显示基本情况表的记录。本程序通过Bookmark属性设置当前记录的书签,用于当前页上记录的定位。283*11.5.4 ADO对象对象使用ADO对象访问数据库比DAO对象模型更为简化,不论是存取本地的还是远程的数据,都提供了统一的接口。28411.6 报报 表表 制制 作作 数据报表设计器属于ActiveXDesigner组中的一个成员,在使用前需要执行“工程|添加DataReport”命令,将报表设计器加入到当前工程中
177、,产生一个DataReport1对象,并在工具箱内产生一个“数据报表”标签。标签文本图形线条形状函数“标签”控件在报表上放置静态文本“文本”控件在报表上连接并显示字段的数据“图形”控件可在报表上添加图片“线条”控件在报表上绘制直线“形状”控件在报表上绘制各种各样的图形外形“函数”控件在报表上建立公式。报表标头区包含整个报表最开头的信息,一个报表只有一个报表头,可使用“标签”控件建立报表名报表注脚区包含整个报表尾部的信息,一个报表也只有一个注脚区页标头区设置报表每一页顶部的标题信息;页注脚区包含每一页底部的信息;细节区包含报表的具体数据,细节区的高度将决定报表的行高。285例11.12建立新工程
178、,在窗体上放置两个命令按钮。在当前工程内加入一个DataEnvironent1对象。完成与指定数据库的连接。在Connection1下创建Command1对象。在当前工程中加入报表设计器DataReport1,设置报表设计器的DataSource属性为数据环境对象,DataMember属性为Command1对象。将数据环境设计器中Command1对象内的字段拖动到数据报表设计器的细节区。使用“标签”控件,在报表标头区插入报表名,页标头区设置报表每一页顶部的标题信息等。使用“线条”控件在报表内加入直线,使用“图形”控件和“形状”控件加入图案或图形。在命令按钮Click事件内加入代码DataRep
179、ort1.Show显示报表,DataReport1.PrintReport打印报表。 28611.7 错误处理错误处理错误处理步骤:1.用OnError语句设置错误陷阱,捕捉错误。2.编写错误处理程序,根据可预知的错误类型决定采取何种措施。捕捉错误示意:OnErrorErr对象Number错误号其他可根据Err.Number的值来编写出错处理程序。287OnError语句有如下几种形式:(1)OnErrorResumeNext忽略错误行,继续执行下一语句。(2)OnErrorGoTo标号使程序转跳到语句标号所指示的程序块。(3)OnErrorGoTo0不使用错误处理程序块。处理方法:Resum
180、e 重新执行引起错误的语句或指令。ResumeNext 忽略错误行,继续执行下一语句。Resume标号 忽略错误行,转跳到由指明的语句继续执行。若为0,则表示终止程序执行。288例例11.13错误处理的基本方法SubOnErrorStatementDemo()DimResponse,Msg,Style,TitleAsStringDimdbAsDatabase,rsAsRecordsetOnErrorGoToErrorHandlerSetdb=OpenDatabase(A:Student.mdb) 打开数据库Setrs=db.OpenRecordset(基本情况)设置记录集 ExitSub正常退
181、出本程序ErrorHandler:错误处理块入口Style=vbRetryCancel+vbCritical+vbDefaultButton2SelectCaseErr.NumberCase53出错号53为文件不存在Msg=文件不存在!Response=MsgBox(Msg,Style,出错提示)IfResponse=vbCancelThenExitSubCase7171号驱动器未准备好Msg=A盘未准备好Response=MsgBox(Msg,Style,出错提示)IfResponse=vbCancelThenExitSubCaseElse 当发生其他不可预知的错误,退出本程序ExitSub
182、EndSelectResume再次执行原出错语句EndSub289例例11.14 下列程序用于处理删除一个已打开的文件所产生的错误。SubResumeStatementDemo()OnErrorGoToErrorHandler设置错误陷阱OpentestfileForOutputAs#1Killtestfile企图删除一个打开的文件ExitSubErrorHandler:SelectCaseErr.NumberCase55文件已打开错误Close#1处理方法:关闭文件CaseElse EndSelectResumeEndSub290例例11.15 采用忽略错误的方法处理错误。SubOnErro
183、rStatementDemo()OnErrorGoToErrorHandler设置错误陷阱OpentestfileForOutputAs#1Killtestfile企图删除一个打开的文件OnErrorGoto0关闭错误陷阱OnErrorResumeNext忽略Killtestfile出错行指令Err.Clear清除出错号ExitSubErrorHandler:SelectCaseErr.NumberCase55Close#1CaseElseEndSelectResumeEndSub291例例11.1611.16 处理被零除、溢出和非法的过程调用三种情况产生的错误。FunctionDivide(
184、numer,denom)asVariantConstmnErrDivByZero=11用于代表被零除ConstmnErrOverFlow=6溢出ConstmnErrBadCall=5非法的过程调用OnErrorGoToMathHandlerDimMsgasStringDivide=numer/denom计算ExitFunctionMathHandler:IfErr.Number=MnErrDivByZeroOrErr.Number=ErrOverFlow_OrErr=ErrBadCallThenDivide=Null产生错误则返回NULLElse显示意想不到的错误信息。Msg=Unanticipatederror&Err.NumberMsg=Msg&:&Err.DescriptionMsgBoxMsg,vbExclamationEndIfResumeNext不管什么情况,ResumeNextEndFunction292