VisualBasic程序设计教程.ppt

《VisualBasic程序设计教程.ppt》由会员分享，可在线阅读，更多相关《VisualBasic程序设计教程.ppt（298页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic程序设计简明教程程序设计简明教程第第 二二 版版同济大学计算机系基础教研室同济大学计算机系基础教研室同济大学计算机系基础教研室同济大学计算机系基础教研室Visual Basic 程序设计简明教程程序设计简明教程第一章 Visual Basic程序设计概述（1）第二章 VB简单的程序设计（3）第三章 VB语言基础（2）第四章 基本的控制结构（6）第五章 数组（4）第六章 过程（5）第七章 常用控件（4）第八章 界面设计（3）第九章 文件（2）第十章 图形（3）第十一章 数据库技术（1）第一章第一章 Visual Basic程序设计概述程序设计概述（1学时）学时）1.1 引

2、例1.2 VB主要功能和特点1.3 VB集成开发环境1.1 引例引例1.1 一行内容在窗体左、右移动；移动两种方法:手动和自动，当自动时，文字闪烁显示；当内容超出窗体,进行反弹。1.1 引例引例 2.1 对输入的字符进行转换的程序。转换规则：大写字母转换成小写字母，小写字母转换成大写字母 空格不转换 其余转换成“*”。要求：每输入一个字符，马上就进行判断和转换。通过上述两例说明VB面向对象、可视化、事件驱动的特点。1.2 VB主要功能和主要功能和特点特点1.具有面向对象的可视化设计工具;2.事件驱动的编程机制;3.提供了易学易用的应用程序集成开发环境;4.结构化的程序设计语言;5.支持多种数据

3、库系统的访问;6.Active技术;7.VB6.0在开发环境上、网络功能等的增强;8.完备的help联机帮助功能。1.3 VB集成开发环境集成开发环境1.1.主窗口主窗口应用程序窗口，由标题栏、菜单栏和工具栏组成。2.2.窗体窗体(form)(form)窗口窗口设计VB程序的界面。3.3.代码代码(code)(code)窗口窗口编辑窗体、标准模块中的代码。4.4.属性属性(properties)(properties)窗口窗口所有窗体或控件的属性设置。5.5.工程资源管理器工程资源管理器(project expror)(project expror)窗口窗口保存一个应用程序所有的文件。6.6.

4、工具箱工具箱(toolbox)(toolbox)窗口窗口显示各种控件的制作工具，供用户在窗体上设计。第二章第二章 VB简单的程序设计简单的程序设计（3学时）学时）2.1 2.1 程序设计方法的发展程序设计方法的发展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 常见错误常见错误2.1 2.1 程序设计方法的发展程序设计方法

5、的发展1.1.初期的程序设计初期的程序设计高运行效率、少占用内存为目标。2.2.结构化程序设计结构化程序设计程序的可读性、可维护性为目标。程序=算法+数据结构的面向过程的程序设计。3.3.面向对象的程序设计面向对象的程序设计降低程序的复杂性、提高软件的开法效率和改善工作界面为目标。程序=对象+消息的面向对象的程序设计。2.2 2.2 对象的有关概念对象的有关概念1.1.类类类是创建对象实例的模板,包含了创建对象的属性描述和行为特征的定义。2.2.对象对象是类的一个实例，继承了类的属性、方法。VB中常用的对象有：窗体、控件等。3.3.对象的建立和命名对象的建立和命名4.4.对象的三要素对象的三要

6、素 （1 1）属性）属性对象的性质，即用来描述和反映对象特征的参数。（2 2）方法）方法对象的行为，即将一些通用的过程编写好并封装起来，作为方法供用户直接调用。（3 3）事件）事件 响应对象的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。事件过程 指附在该对象上的用户编写的程序代码,是事件的处理程序。事件驱动过程是图形用户界面的本质，由用户控制而代码作出响应。5.VB5.VB程序的执行步骤如下：程序的执行步骤如下：（1）启动应用程序，装载和显示窗体；（2）窗体（或窗体上的控件）等待事件的发生；（3）事件发生时，执行对应的事件过程；（4）重复执行步骤（2）和（3）

7、；（5)直到遇到END结束语句结束程序的运行；或按“结束”强行停止程序的运行。2.3 2.3 建立简单的应用程序建立简单的应用程序以例例2.12.1为例：1.建立用户界面的对象；2.对象属性的设置；3.对象事件过程及编程；4.程序运行和调试；5.保存文件。2.4 2.4 基本控件和窗体基本控件和窗体一、常用属性一、常用属性 1.Name1.Name名称属性名称属性创建的对象名称，有默认的名。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。2.Caption2.Caption标题属性标题属性该属性决定了控件上显示的内容。3.Height 3.Height、widthwidth、topt

8、op和和leftleft属性属性4.Enabled4.Enabled属性属性控件是否可操作。当设置为false时，呈暗淡色，禁止用户进行操作。5.Visible5.Visible属性属性控件是否可见。当设置为false时，用户看不到，但控件本身存在。6.Font6.Font属性属性 Fontname：字体；Fontsize：字体大小；Fontbold：是否是粗体；Fontitalic：是否斜体；Fontstrikethru：是否加一删除线。Fontunderline：是否带下划线。例2.2在窗体是建立两个命令按钮Command1和Command2，Command2的Font通过属性窗口设置，其

9、余属性通过代码实现。7.Forecolor7.Forecolor前景颜色属性前景颜色属性设置控件的前景颜色（即正文颜色).。其值是一个十六进制常数，用户可以在调色板中直接选择所需颜色。8.Backcolor8.Backcolor背景颜色属性背景颜色属性9.Backstyle9.Backstyle背景风格属性背景风格属性0-transparent：透明显示，即控件背景颜色显示不出来。10.BorderStyle10.BorderStyle边框风格属性边框风格属性0-None：控件周围没有边框。1-FixedSingle：控件带有单边框。11.Alignment11.Alignment属性属性控件

10、上正文水平对齐方式 0：正文左对齐；1：右对齐；2：居中。12.AutoSize12.AutoSize属性属性控件是否根据正文自动调整大小，False13.WordWarp13.WordWarp属性属性 AutoSizeTrue时，WordWarp才有效。按正文字体大小在垂直方向上改变显示区域的大小。14.TabIndex14.TabIndex属性属性决定了按Tab键时，焦点在各个控件移动的顺序。各个控件默认TabIndex值就是以控件建立时的顺序，第一个为0。15.15.控件默认属性控件默认属性反映该控件最重要的属性，使用时可省略属性名。注意：Command的默认属性为Default,当该属

11、性为True，当按Enter键，该控件起作用。例2.3控件设置效果二二.窗体窗体1.1.属性属性 Caption标题MaxButton、MinButtonIcon、ControlBoxPicture、AutoRedrawBorderStyle（012345）WindowsState（0-正常、1-最小化、2-最大化）2.2.事件事件 Click、DblClick和Load Load 当装入窗体时激发，通常用于对属性和变量初始化3.3.方法方法Print、Cls和Move等例2.4上述属性、Click、DblClick和Load 事件演示。三、标签三、标签 Label Label用于显示文本(输

12、出)信息，不能作为输入信息的界面。例2.5显示浮雕效果的文字，实现方法：字颜色、标签位置四、文本框四、文本框 TextBox TextBox是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。1.1.其他属性其他属性Text：正文内容；Maxlength：设置正文的最多字符个数，0任意长度值；MultiLine：是否为多行，默认为一行，False；ScrollBars：MultiLine为True时，该属性才有效，表示滚动条的形式0-None、1-Horizontal、2-Vertical、3-Both；Locked：是否可被编辑属性，False，表示为可编辑。PassWord：口令字符；

13、Text属性返回输入的数据，屏幕显示该字符；SelStart、SelLength、SelText：选中文本的起始、长度、内容。例2.6复制选中的文本2.2.常用事件常用事件Change：当改变文本框的Text属性时会引发该事件。KeyPress(KeyAsciiAsInteger)：同上，并可返回一个KeyAscii参数KeyAscii为13，按回车键;为0去除刚输入的字符。LostFocus：当控件失去焦点时发生。GotFocus：当控件获得焦点时发生。3.3.常用方法常用方法 对象.SetFocus：是把光标移到指定的文本框对象中。4.4.文本框的应用文本框的应用 数据过滤数据过滤例例2.

14、7 要求输入合法的数字数据。当输入结束时（按Tab键），对于输入正确的数据，显示正确信息；对输入的非数字数据，则响铃(Beep)、显示错误信息、清除文本框中的内容，并使焦点重新回到文本框。Text2_LostFocus当输入结束按Tab键时，该事件激发。IsNumeric(Text2)：判断是否输入非数字数据。Text2.SetFocus：使焦点重新回到文本框。五、命令按钮五、命令按钮CommandButtonCommandButton 接受用户输入的命令。输入命令可以有三种方式：鼠标单击、Tab键焦点到该按钮、快捷键。1.1.其他属性其他属性Caption：命令按钮显示的内容，可设置快捷键，

15、例&Ok，显示Ok。Value：检查该按钮是否按下。该属性在设计时无效。Picture：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。Style：确定显示的形式，0只能显示文字，1文字、图形均可。ToolTipText：设置工具提示，和Picture结合使用。2.2.事件事件 Click3.例例 2.8建立一个允许剪切、复制和粘贴的简单便笺板程序。可增加内容：利用MouseMove事件决定命令按钮的有效性，即当选中内容，“剪切”、“复制”按钮有效，否则无效。六、常用方法六、常用方法方法是面向对象的，故使用的形式为：对象.方法 1 1.PrintPrint方法方法形式：对象.

16、PrintSpc(n)|Tab(n)表达式列表；|，作用：在对象上输出信息对象象：窗体、图形框或打印机(Printer)，省略对象在窗体上输出。Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n列，允许重复使用。；(分号)：光标定位上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。无；，时换行。开始打印的位置是由对象的CurrentX和CurrentX属性决定，缺省为打印对象的左上角0，0。注意注意：Print方法在Form _Load事件过程中起作用，必须设置窗体的 AutoRedraw为True。例例2.9 显示图形显示图形PrivateSu

17、bForm_Click()Fori=1To5PrintTab(i);String(6-I,);Spc(6);String(I,)NextiEndSub注意注意：String(number,character)返回指定长度重复字符的字符串。考虑：若把Spc(6)换成Tab(6)，效果如何？2.Cls2.Cls方法方法 形式：对象.Cls作用：清除运行时在窗体或图形框中显示的文本或图形。注意：不清除在设计时的文本和图形。3.Move3.Move方法方法形式：对象.Move左边距离，上边距离，宽度，高度作用：移动窗体或控件，并可改变其大小。对象：可以是窗体及除时钟、菜单外的所有控件例例2.10 图形

18、移到窗体的中心。七、应用举例七、应用举例例2-11编一计算月支付贷款的程序。现要求根据房产商提供的信息，买房者选择房型、面积、单价、按揭期等信息，计算每月支付代款的程序。窗体1：列表框选择数据、标签显示数据、文本框输入数据；窗体2：图形框显示房屋的平面图。Pmt函数计算月支付贷款。2.5 工程的管理及环境的设置工程的管理及环境的设置一、工程的组成一、工程的组成工程文件包含了一个应用程序的所有文件:窗体文件(.frm)：控件及属性、事件过程和自定义过程;窗体的二进制数据文件(.frx)，自动产生同名.frx文件;标准模块文件(.bas);类模块的文件(.cls);资源文件(.res);Activ

19、eX控件的文件(.ocx).二、创建、打开和保存工程二、创建、打开和保存工程三、添加、删除和保存文件三、添加、删除和保存文件1.窗体名和窗体文件名概念 窗体名窗体名：窗体的Name属性，在代码中用来引用该窗体，同一工程不能有相同的窗体名；窗体文件名窗体文件名：窗体存放在磁盘上的文件名，该文件包含了该窗体的所有控件属性和代码，同一文件夹不能有相同的文件名。2.在工程中添加现存的窗体时，只是对该窗体文件的引用纳入工程。因此，如果更改窗体并保存它，会影响包含此窗体文件的任何工程。3.在工程中删除窗体时，仅将此窗体从工程里删除掉，但是窗体文件仍存在于磁盘上。但是，如果在VB之外删除一个窗体文件，VB不

20、能更新此工程文件，当打开此工程时，将显示一个文件丢失的错误信息。4.对窗体文件改名方法1)打开工程 “另存为Form”实现文件的复制保存工程文件。2)利用编辑程序打开工程文件，修改FORM=XXX的文件名。窗体文件名窗体名2.6 生成可执行文件和制作安装盘生成可执行文件和制作安装盘以工程文件例2.11为例。1.1.生成可执行文件生成可执行文件文件/生成V6B2-11.exe文件，然后关闭VisualBasic6.0。2.2.制作安装盘制作安装盘在向导的指导下运行VB6.0中文版工具“Package&Deployment”；“打包”：把工程中用到的各种类型的文件进行打包压缩后，存放到特定的目录下

21、。“展开”：再把这些打包的文件展开到用户可以携带的安装介质软盘、光盘等。3.3.检测安装程序检测安装程序 在没有VB6.0系统的环境下，执行安装盘中的Setup.exe文件，将发行盘进行安装。2.7 程程 序序 调调 试试一、错误类型一、错误类型 （1 1）编辑错误）编辑错误在编辑代码时，VB会对键入的代码直接进行语法检查。当发现代码存在打字错误，遗漏关键字或标点符等语法错误，VB在Form窗口中弹出一个子窗口，提示出错信息，出错的那一行变成红色。这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。（2 2）编译错误）编译错误编译错误指按了“启动”按钮，VB开始运行程序前，先

22、编译执行的程序段时，产生的错误。此类错误由于用户未定义变量、遗漏关键字等原因产生。这时，VisualBasic也弹出一个子窗口，提示出错信息，出错的那一行被高亮度显示。（3 3）运行错误运行错误运行时错误指VB在编译通过后，运行代码时发生的错误。这类错误往往是指令代码执行了一非法操作引起的。例如类型不匹配、试图打开一个不存在的文件等。（4 4）逻辑错误逻辑错误程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。例如，运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要程序员仔细地阅

23、读分析程序以及调试。二、调试错误二、调试错误 (1)VB(1)VB的三种模式的三种模式设计模式设计进行程序的界面设计、属性设置、代码编写等。运行模式运行执行“运行/启动”命令，可以查看程序代码，但不能修改。中断模式中断当在运行模式，按了“中断”命令或当程序出现运行时错误时进入中断模式。可以查看代码、修改代码、检查数据。(2)(2)调试窗口调试窗口有三个调试窗口，它们是：“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令打开这些窗口。（3 3）设置断点和逐语句跟踪）设置断点和逐语句跟踪断点是告诉VB挂起程序执行的一个标记，当程序执行到断点处即暂停程序的运行，进入中断模式。设置

24、或删除断点的步骤：中断模式下，直接查看某个变量的值，只要把鼠标指向所关心的变量处，稍停一下，就在鼠标下方显示该变量的值。断点标记当前行2.8 常常 见见 错错 误误1.使用中文标点符号使用中文标点符号系统产生“无效字符”，以红色显示。2.字母和数字形状相似字母和数字形状相似小写字母“l”和数字“1”形式相同、小写字母“o”与数字“0”。3.对象名称对象名称(Name)属性写错属性写错Text1、Text2、Command1txtInput、txtOutput、cmdOk4.对象的属性名、方法名、标准函数名写错对象的属性名、方法名、标准函数名写错尽量使用自动列出成员功能。正确的系统按规定的大小写

25、表示。5.无意形成控件数组无意形成控件数组建立控件时小心使用“复制”、“粘贴”按钮。6.打开工程时找不到对应的文件打开工程时找不到对应的文件保存文件时先保存窗体.frm文件、再保存.vbp文件，注意路径。第三章第三章 VB语言基础语言基础（2学时）学时）3.1 编码规则3.2 数据类型3.3 变量与常量3.4 运算符和表达式3.5 常用函数3.6 常见错误3.1 编编 码码 基基 础础1.VB代码不区分字母的大小写代码不区分字母的大小写系统保留字自动转换每个单词的首字母大写；用户自定义行以第一次为准。2.语句书写自由语句书写自由一行可书写几句语句,之间用冒号分隔；一句语句可分若干行书写，用续行

26、符_连接一行ABRA结果为False 男字男字 女字女字 按汉字的拼音字母比较按汉字的拼音字母比较 4.逻辑运算符逻辑运算符将操作数进行逻辑运算，结果是逻辑值：条件表达式1And条件表达式2条件表达式均为T，结果为T；条件表达式1Or条件表达式2条件表达式有一个为T结果为T。二、表达式二、表达式 1.组成组成 变量、常量、函数、运算符和圆括号。2.书写规则书写规则(1)运算符不能相邻。例a+-b是错误的。(2)乘号不能省略。例x乘以y应写成：x*y。(3)括号必须成对出现，均使用圆括号。(4)表达式从左到右在同一基准上书写，无高低、大小。3.不同数据类型的转换不同数据类型的转换运算结果的数据类

27、型向精度高的数据类型靠。IntegerLongSingleDouble=字符运算符关系运算符逻辑运算表达式书写举例sin(45*3.14/180)+(exp(10)+log(10)/sqr(x+y+1)a*b*c*d/e/f/g或a*b*c*d/（e*f*g）例：用人单位招聘秘书：年龄小于40岁的女性，学历专科或本科，年龄40，性别=“女”，(学历=“专科”，学历=“本科”)AndAndOr比a小，比b大用Ora小数b大数a小数b大数比a大，比b小用And例：表示算术表达式：正确的VB表达式：3=xAndx=7错误的VB表达式：3=x=7或3=xOrx=7考虑：若分别写成：年龄40And性别=

28、女And(学历=专科And学历=本科)年龄40Or性别=女Or(学历=专科Or学历=本科)3.5 3.5 常用内部函数常用内部函数1.数学函数数学函数Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数。每次运行时，要产生不同序列的随机数，执行Randomize语句。例产生1100的随机数：Int(Rnd*100)+12.转换函数转换函数 Chr(66)BAsc(B)66Asc(Chr(99)99Chr(Asc(K)KUcase$(abcdefg)ABCDEFG3.日期函数日期函数Time返回系统时间、Date返回系统日期、Now返回系统日期和时间DateAdd（要增减日期形式，增减量，

29、要增减的日期变量）DateDiff（要间隔日期形式，日期1，日期2）例如求离你毕业还有多少天：DateDiff（d,date,#2006/07/01#）假定2006年毕业4.字符串编码和函数字符串编码和函数 (1)字符串编码字符串编码Windows系统对字符采用了DBCS编码，中文2字节，西文1字节VB中字符Unicode编码，任何字符2字节。Len(“中国good”)为6；LenB(“中国good”)为12。StrConv()进行DBCS与Unicode之间转换。(2)字符串函数字符串函数Mid$(ABCDEFG,2,3)BCDInStr(2,ABCDEFG,EF)5 S=Split(123

30、,56,ab,)Join(S,)12356abReplace(ABCDABCD,CD,123)“AB123AB123”S(0)=123”,S(1)=56”,S(2)=ab5.格式输出函数格式输出函数例3.1利用Format函数显示有关的日期和时间。Private Sub Form_Click()FontSize=12 MyTime=#9:21:30 PM#MyDate=#7/21/1997#Print Tab(2);Format(MyDate,m/d/yy)Print Tab(2);Format(MyDate,mmmm-yy)Print Tab(2);Format(MyTime,h-m-s A

31、M/PM)Print Tab(2);Format(MyTime,hh:mm:ss A/P)Print Tab(2);Format(Date,dddd,mmmm,dd,yyyy)Print Tab(2);Format(Now,yyyy年年m月月dd日日 hh：mm)Print FormatDateTime(Now)VB6.0新提供的函数新提供的函数End Sub6.Shell函数函数Shell函数负责执行一个可执行文件，返回一个Variant，如果成功，代表这个程序的进程ID，若不成功，则会返回0。形式：Shell(命令字符串,窗口类型)窗口类型值为1表示正常窗口，缺省窗口最小化为图标。i=Sh

32、ell(c:windowscalc.exe)j=Shell(c:,1)提示：提示：如果不知道应用程序的路径名，可用Start命令启动程序i=Shell(start&calc.exe)；i=Shell(start&vb6.exe)3.6 3.6 常常 见见 错错 误误1.逻辑表达式书写错，在逻辑表达式书写错，在VBVB没有造成语法错而形成逻辑错没有造成语法错而形成逻辑错例如，数学表达式3x10 VB表达式写为 3=x10。问题在于VB中的逻辑量与数值量可相互转换。2.同时给多个变量赋值，在同时给多个变量赋值，在VBVB没有造成语法错而形成逻辑错没有造成语法错而形成逻辑错例如：Dimx%，y%，z

33、%x=y=z=13.标准函数名写错标准函数名写错 4.变量名写错变量名写错检查方法：在通用声明段加OptionExplicit5.语句书写位置错语句书写位置错 在通用声明段只能有Dim语句，不能有赋值等其他语句第四章第四章 基本的控制结构基本的控制结构（8学时）学时）4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 常用算法（一）4.6 常见错误（顺序、条件、循环）4.1 4.1 顺顺 序序 结结 构构一、赋值语句一、赋值语句 形式：LET变量名表达式变量名表达式作用：将表达式的值赋值给变量名。一般用于给变量赋值或对控件设定属性值。例：sRate!=0.1

34、Text1.Text欢迎使用VisualBasic6.0当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如iA%=10/3iA中的结果为3注意：注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。二、与用户交互函数和过程二、与用户交互函数和过程1.InputBox1.InputBox函数函数InputBox(InputBox(提示提示，标题，标题，缺省，缺省，x x 坐标位置坐标位置，y y坐标位置坐标位置)其中：提示：提示信息；标题：对话框标题；缺省：输入区缺省值函数返回字符类型。例要在屏幕上显示图示的对话框：相应的语句如下：Dims

35、trNameAsString*40strName=InputBox(请输入你的姓名+vbCrLf+然后单击确定,输入框)也可以使用如下语句：DimstrNameAsString*40，strS1AsString*40strS1=请输入你的姓名+Chr(13)+Chr(10)+然后单击确定strName=InputBox(strS1，输入框，100，100)当键盘输入“王晓明”后，变量strName获得键盘输入的值。2.MsgBoxMsgBox函数和函数和MsgBoxMsgBox过程过程 函数形式：变量%=MsgBox(提示,按钮，标题)过程形式：MsgBox提示,按钮,标题按钮值如下：函数返回

36、所选按钮整数值：例例4.1 编一帐号和密码检验程序。要求：帐号不超过6位数字，有错，清除原内容再输入。密码输入时在屏幕上以“*”代替；若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。分析：帐号6位，MaxLength为6，LostFocus判断数字IsNumeric函数密码PassWordChar为“*”，MsgBox函数设置密码错对话框。常常 见见 错错 误误数据合法性检查中引起程序的死循环PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenText1=Text1.SetFocusEndIfEndSu

37、bPrivateSubText2_LostFocus()IfNotIsNumeric(Text2)ThenText2=Text1.SetFocusEndIfEndSubIfText2AndNotIsNumeric(Text2)Text2Text1确定 4.2 4.2 选选 择择 结结 构构1.IfThen1.IfThen语句语句(单分支结构单分支结构)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重要的是学会两个数

38、的交换，若上述语句次序变一下，结果如何？重要的是学会两个数的交换，若上述语句次序变一下，结果如何？2.IfThenElse2.IfThenElse语句语句(双分支结构双分支结构)If Then Else End IfIf Then Else 计算分段函数：单分支结构实现：y=cos(x)x3+3*x If x0 Then y=sin(x)+sqr(x*x+1)双分支结构实现：If x0 Then y=sin(x)+sqr(x*x+1)Else y=cos(x)x3+3*x End If3.IfThenElseIf3.IfThenElseIf语句语句(多分支结构多分支结构)形式：If Then

39、ElseIf Then Else 语句块语句块 n+1 End If例例4.2 已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。用多分支结构实现用多分支结构实现:If Ucase(strC)=A And Ucase(strC)=0 And strC=9 Then Print strC+是数字字符 Else Print strC+其他字符 End If不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。.ElseIf不能写成 Else If。例例4.2a 根据边长判断三角形类型

40、例例4.3 已知百分制成绩mark，显示对应的五级制成绩哪些正确，哪些错误？返回724 4IfIf语句的嵌套语句的嵌套If语句的嵌套是指If或Else后面的语句块中又包含If语句。形式如下：If Then If Then End If End If例例4.4 已知x，y，z三个数，使得xyz用一个IF语句和一个嵌套的IF语句实现 If xy Then t=x:x=y:y=t If yz Then t=y:y=z:z=t IfxyThent=x:x=y:y=tEndIfEnd IfIf语句的嵌套注意事项：书写锯齿型；If与EndIf配对。：与同类型的下面四种形式之一：表达式例:A一组枚举表达式(

41、用逗号分隔)2,4,6,8表达式1To表达式2 60 To 100Is关系运算符表达式 Is =AAndUcase(strC)=0AndstrC 0 And y 0 Then Print 在第一象限 ElseIf x 0 Then Print 在第二象限 ElseIf x 0 And y 0 And y 0 And y 0Print 在第一象限 Case x 0Print 在第二象限 Case x 0 And y 0 And y y，x，y）（2）Choose函数形式是：Choose（数字类型变量，值为（数字类型变量，值为1的返回值，值为的返回值，值为2的返回值的返回值）例如，Nop是1-4的

42、值，转换成+、-、运算符的语句如下：Op=Choose（Nop，+，-，）当值为1，返回字符串“+”，然后放入Op变量中，值为2，返回字符串“-”，依次类推；当Nop是1-4的非整数，系统自动取Nop的整数办法在判断；若Nop不在14之间，函数返回Null值。（3）Switch函数形式是：Switch（条件表达式（条件表达式1，条件表达式，条件表达式1为为True时的值时的值，条件表达式，条件表达式2，条件表达式，条件表达式2为为True时的值时的值）常常 见见 错错 误误1在选择结构中缺少配对的结束语句对多行式的If块语句中，应有配对的 End If语句结束。2.多边选择ElseIf关键字的

43、书写和条件表达式的表示 ElseIf 不要写成Else If；多个条件表达式次序问题,见例4.3。3.Select Case语句的使用 Select Case 后不能出现多个变量；Case子句后不能出现变量，见例4.6。4.3 4.3 循循 环环 结结 构构1.For循环语句循环语句(一般用于循环次数已知)形式For 循环变量初值循环变量初值 to 终值终值 Step 步长步长 语句块语句块Exit For 语句块语句块 Next 循环变量循环变量循环变量=终值 语句块ExitFor语句块循环变量加步长TF循环变量得初值循环体例4.8计算1100的奇数和，程序段如下：Dimi%,s%等价于：D

44、imi%,s%s=0s=0：i=1Fori=1To100step2re:Ifi0初值终值=1时,可省略终值=0死循环循环次数要注意：要注意：v出了循环，循环控制变量值的问题。例程序段：Fori=2To13Step3循环执行次数Printi,输出i的值分别为:Nexti25811Print:Print“I=“,i出了循环输出为:I=14v在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。步长例4.9 改变循环控制变量对循环的影响。PrivateSubCommand1_Click()j=0Fori=1To20Step2i=i+3j=j+1Print第;j;次循环i

45、=;iNextiPrint退出循环后i=;iEndSub正常情况：i=1,3,5,7,9,11,13,15,17,19现在：i=4,9,14,19例4.10 输出可打印的ASCII码字符与它的编码值。2.DoLoop循环语句循环语句(用于控制循环次数未知)形式1：Do While|Until 语句块语句块 Exit Do 语句块语句块 Loop形式2：Do 语句块语句块 Exit Do 语句块语句块Loop While|Until 例4.11 我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。分析：解此问题两种方法，可根据公式：26=13*(1+0.008)n 直接利用标

46、准对数函数求得；也可利用循环求得，程序如下：PrivateSubCommand1_Click()x=13n=0DoWhilexn；(2)m除以n得余数r；(3)若r=0，则n为最大公约数结束；否则执行(4)；(4)mn，nr，再重复执行(2)。例求m=14,n=6的最大公约数.If m n Then t=m:m=n:n=t r=m mod n Do While(r 0)m=n n=r r=m mod n Loop Print 最大公约数最大公约数=,n mnr14626 2 0辗转相减法 m=m-n mn n=n-m nmm、n为公约数m=nDo While m n mnIf m n Then

47、 146 m=m n 86 Else 26 n=n m 24 End If 22Loop3.循环的嵌套循环的嵌套一个循环体内又包含了一个完整的循环结构称为循环的嵌套.例例4.13打印九九乘法表.For i=1 To 9 For j=1 To 9 se=i&j&=&i*j Picture1.Print Tab(j-1)*9+1);se;Next j Picture1.Print Next i思考：思考：打印上三角或下三角程序如何改动？要打印下三角打印上三角或下三角程序如何改动？要打印下三角?For j =1 To iFor ii=1 To 10 For jj=1 To 20 Next ii Ne

48、xt jjFor ii=1 To 10 For ii=1 To 20 Next ii Next iiFor ii=1 To 10 For jj=1 To 20 Next jj Next iiFor ii=1 To 10 Next ii For ii=1 To 10 Next ii 对于循环的嵌套，要注意以下事项：内循环变量与外循环变量不能同名；外循环必须完全包含内循环，不能交叉；不能从循环体外转向循环体内，反之则可以。正确错误4.4 4.4 其他辅助控制语句其他辅助控制语句 1.Go To 语句语句 形式形式:Go To 标号标号|行号行号作用：无条件地转移到标号或行号指定的那行语句.标号是一

49、个字符序列,行号是一个数字序列.2.Exit语句语句多种形式：Exit For、Exit Do、Exit Sub、Exit Function等。作用：退出某种控制结构的执行。3.End语句语句多种形式：End、EndIf、EndSelect、EndWith、EndType、EndSub、EndFunction、作用：End结束一个程序的运行；其余表示某个结构的结束，与对应的结构语句配对出现。4.With 语句语句形式如下：With对象语句块EndWith作用：对某个对象执行一系列的操作，而不用重复指出对象的名称。WithLabel1.Height=2000.Width=2000.FontSiz

50、e=22.Caption=MyLabelEndWithLabel1.Height=2000Label1.Width=2000Label1.FontSize=22Label1.Caption=MyLabel等价4.5 4.5 常用算法（一）常用算法（一）算法是对某个问题求解过程的描述1.1.累加、连乘累加、连乘1100的5或7的倍数的和Sum=0Fori=1To100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfNextiPrintSum310的乘积t=1Fori=3To10t=t*iNextiPrintt思考：若把循环体前面置各变量初值的语句放在循环体内，程序运行时会