VisualBasic程序设计教程.ppt

Visual Basic程序设计简明教程第 二 版,同济大学计算机系基础教研室,Visual Basic 程序设计简明教程第一章 Visual Basic程序设计概述（1）第二章 VB简单的程序设计（3）第三章 VB语言基础（2）第四章 基本的控制结构（6）第五章 数组（4）第六章 过程（5）第七章 常用控件（4）第八章 界面设计（3）第九章 文件（2）第十章 图形（3）第十一章 数据库技术（1）,第一章 Visual Basic程序设计概述（1学时）,1.1 引例1.2 VB主要功能和特点1.3 VB集成开发环境,1.1 引例1.1 一行内容在窗体左、右移动；移动两种方法:手动和自动，当自动时，文字闪烁显示；当内容超出窗体,进行反弹。,1.1 引例 2.1 对输入的字符进行转换的程序。转换规则：大写字母转换成小写字母，小写字母转换成大写字母 空格不转换 其余转换成“*”。要求：每输入一个字符，马上就进行判断和转换。通过上述两例说明VB面向对象、可视化、事件驱动的特点。,1.2 VB主要功能和特点,1.具有面向对象的可视化设计工具;2.事件驱动的编程机制;3.提供了易学易用的应用程序集成开发环境;4.结构化的程序设计语言;5.支持多种数据库系统的访问;6.Active技术;7.VB 6.0在开发环境上、网络功能等的增强;8.完备的help联机帮助功能。,1.3 VB集成开发环境,1.主窗口 应用程序窗口，由标题栏、菜单栏和工具栏组成。2.窗体(form)窗口 设计VB程序的界面。3.代码(code)窗口 编辑窗体、标准模块中的代码。4.属性(properties)窗口 所有窗体或控件的属性设置。5.工程资源管理器(project expror)窗口 保存一个应用程序所有的文件。6.工具箱(toolbox)窗口 显示各种控件的制作工具，供用户在窗体上设计。,第二章 VB简单的程序设计（3学时）,2.1 程序设计方法的发展2.2 VB中的有关概念2.3 建立简单的应用程序2.4 基本控件和属性2.5 工程的管理及环境的设置2.6 生成可执行文件和制作安装盘 2.7 程序调试 2.8 常见错误,2.1 程序设计方法的发展,1.初期的程序设计 高运行效率、少占用内存为目标。2.结构化程序设计 程序的可读性、可维护性为目标。程序=算法+数据结构 的面向过程的程序设计。3.面向对象的程序设计 降低程序的复杂性、提高软件的开法效率和改善工作界面为目标。程序=对象+消息 的面向对象的程序设计。,2.2 对象的有关概念,1.类 类是创建对象实例的模板,包含了创建对象的属性描述和行为特征的定义。2.对象 是类的一个实例，继承了类的属性、方法。VB中常用的对象有：窗体、控件等。3.对象的建立和命名4.对象的三要素（1）属性 对象的性质，即用来描述和反映对象特征的参数。（2）方法 对象的行为，即将一些通用的过程编写好并封装起来，作为方法供用户直接调用。,（3）事件 响应对象的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。事件过程 指附在该对象上的用户编写的程序代码,是事件的处理程序。事件驱动过程 是图形用户界面的本质，由用户控制而代码作出响应。5.VB程序的执行步骤如下：1）启动应用程序，装载和显示窗体；2）窗体（或窗体上的控件）等待事件的发生；3）事件发生时，执行对应的事件过程；4）重复执行步骤（2）和（3）；5)直到遇到END结束语句结束程序的运行；或按“结束”强行停止程序的运行。,2.3 建立简单的应用程序,以例2.1为例：1.建立用户界面的对象；2.对象属性的设置；3.对象事件过程及编程；4.程序运行和调试；5.保存文件。,2.4 基本控件和窗体,一、常用属性 1.Name名称属性 创建的对象名称，有默认的名。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。2.Caption标题属性该属性决定了控件上显示的内容。3.Height、width、top和left属性,4.Enabled属性 控件是否可操作。当设置为false时，呈暗淡色，禁止用户进行操作。5.Visible属性 控件是否可见。当设置为false时，用户看不到，但控件本身存在。6.Font属性 Fontname：字体；Fontsize：字体大小；Fontbold：是否是粗体；Fontitalic：是否斜体；Fontstrikethru：是否加一删除线。Fontunderline：是否带下划线。例2.2 在窗体是建立两个命令按钮 Command1和Command2，Command2 的Font通过属性窗口设置，其余属性 通过代码实现。,7.Forecolor前景颜色属性 设置控件的前景颜色（即正文颜色).。其值是一个十六进制常数，用户可以在调色板中直接选择所需颜色。8.Backcolor背景颜色属性9.Backstyle背景风格属性 0-transparent：透明显示，即控件背景颜色显示不出来。10.BorderStyle边框风格属性 0-None：控件周围没有边框。1-Fixed Single：控件带有单边框。11.Alignment属性 控件上正文水平对齐方式 0：正文左对齐；1：右对齐；2：居中。12.AutoSize属性 控件是否根据正文自动调整大小，False 13.WordWarp属性 AutoSize True时，WordWarp才有效。按正文字体大小在垂直方向上改变显示区域的大小。,14.TabIndex属性 决定了按Tab键时，焦点在各个控件移动的顺序。各个控件默认 TabIndex值就是以控件建立时 的顺序，第一个为0。15.控件默认属性 反映该控件最重要的属性，使用时可省略属性名。注意：Command的默认属性为Default,当该属性为True，当按Enter键，该控件起作用。例2.3 控件设置 效果,二.窗体1.属性 Caption标题 MaxButton、MinButton Icon、ControlBox Picture、AutoRedraw BorderStyle（0 1 2 3 4 5）WindowsState（0-正常、1-最小化、2-最大化）2.事件 Click、DblClick和Load Load 当装入窗体时激发，通常用于对属性和变量初始化3.方法 Print、Cls和Move等 例2.4 上述属性、Click、DblClick和Load 事件演示。,三、标签 Label 用于显示文本(输出)信息，不能作为输入信息的界面。例2.5 显示浮雕效果的文字，实现方法：字颜色、标签位置四、文本框 TextBox 是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。1.其他属性 Text：正文内容；Maxlength：设置正文的最多字符个数，0任意长度值；MultiLine：是否为多行，默认为一行，False；ScrollBars：MultiLine为True时，该属性才有效，表示滚动条的形式 0-None、1-Horizontal、2-Vertical、3-Both；Locked：是否可被编辑属性，False，表示为可编辑。PassWord：口令字符；Text属性返回输入的数据，屏幕显示该字符；SelStart、SelLength、SelText：选中文本的起始、长度、内容。例2.6 复制选中的文本,2.常用事件 Change：当改变文本框的Text属性时会引发该事件。KeyPress(KeyAscii As Integer)：同上，并可返回一个KeyAscii参数 KeyAscii 为13，按回车键;为0 去除刚输入的字符。LostFocus：当控件失去焦点时发生。GotFocus：当控件获得焦点时发生。3.常用方法 对象.SetFocus：是把光标移到指定的文本框对象中。4.文本框的应用 数据过滤例2.7 要求输入合法的数字数据。当输入结束时（按Tab键），对于输入正确的数据，显示正确信息；对输入的非数字数据，则响铃(Beep)、显示错误信息、清除文本框中的内容，并使焦点重新回到文本框。Text2_ LostFocus 当输入结束按Tab键时，该事件激发。IsNumeric(Text2)：判断是否输入非数字数据。Text2.SetFocus：使焦点重新回到文本框。,五、命令按钮CommandButton 接受用户输入的命令。输入命令可以有三种方式：鼠标单击、Tab键焦点到该按钮、快捷键。1.其他属性Caption：命令按钮显示的内容，可设置快捷键，例&Ok，显示 Ok。Value：检查该按钮是否按下。该属性在设计时无效。Picture：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。Style：确定显示的形式，0 只能显示文字，1 文字、图形均可。ToolTipText：设置工具提示，和Picture结合使用。2.事件 Click,3.例 2.8 建立一个允许剪切、复制和粘贴的简单便笺板程序。可增加内容：利用MouseMove事件决定命令按钮的有效性，即当选中内容，“剪切”、“复制”按钮有效，否则无效。,六、常用方法 方法是面向对象的，故使用的形式为：对象.方法 1.Print方法 形式：对象.PrintSpc(n)|Tab(n)表达式列表；|，作用：在对象上输出信息对象：窗体、图形框或打印机(Printer)，省略对象在窗体上输出。Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n列，允许重复使用。；(分号)：光标定位上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。无；，时换行。开始打印的位置是由对象的CurrentX和CurrentX属性决定，缺省为打印对象的左上角0，0。注意：Print方法在Form _Load事件过程中起作用，必须设置窗体的 AutoRedraw为True。,例2.9 显示图形 Private Sub Form_Click()For i=1 To 5 Print Tab(i);String(6-I,);Spc(6);String(I,)Next i End Sub,注意：String(number,character)返回指定长度重复字符的字符串。考虑：若把Spc(6)换成Tab(6)，效果如何？,2.Cls方法 形式：对象.Cls 作用：清除运行时在窗体或图形框中显示的文本或图形。注意：不清除在设计时的文本和图形。3.Move方法 形式：对象.Move 左边距离，上边距离，宽度，高度 作用：移动窗体或控件，并可改变其大小。对象：可以是窗体及除时钟、菜单外的所有控件 例2.10 图形移到窗体的中心。,七、应用举例,例2-11 编一计算月支付贷款的程序。现要求根据房产商提供的信息，买房者选择房型、面积、单价、按揭期等信息，计算每月支付代款的程序。窗体1：列表框选择数据、标签显示数据、文本框输入数据；窗体2：图形框显示房屋的平面图。Pmt函数计算月支付贷款。,2.5 工程的管理及环境的设置,一、工程的组成 工程文件包含了一个应用程序的所有文件:窗体文件(.frm)：控件及属性、事件过程和自定义过程;窗体的二进制数据文件(.frx)，自动产生同名.frx文件;标准模块文件(.bas);类模块的文件(.cls);资源文件(.res);ActiveX控件的文件(.ocx).二、创建、打开和保存工程,三、添加、删除和保存文件1.窗体名和窗体文件名概念 窗体名：窗体的Name属性，在代码中用来引用该窗体，同一工程不能有相同的窗体名；窗体文件名：窗体存放在磁盘上的文件名，该文件包含了该窗体的所有控件属性和代码，同一文件夹不能有相同的文件名。2.在工程中添加现存的窗体时，只是对该窗体文件的引用纳入工程。因此，如果更改窗体并保存它，会影响包含此窗体文件的任何工程。3.在工程中删除窗体时，仅将此窗体从工程里删除掉，但是窗体文件仍存在于磁盘上。但是，如果在VB之外删除一个窗体文件，VB不能更新此工程文件，当打开此工程时，将显示一个文件丢失的错误信息。4.对窗体文件改名方法1)打开工程“另存为Form”实现文件的复制保存工程文件。2)利用编辑程序打开工程文件，修改FORM=XXX的文件名。,2.6 生成可执行文件和制作安装盘,以工程文件例2.11为例。1.生成可执行文件 文件/生成V6B2-11.exe文件，然后关闭Visual Basic6.0。2.制作安装盘在向导的指导下运行V B6.0中文版工具“Package&Deployment”；“打包”：把工程中用到的各种类型的文件进行打包压缩后，存放到特定的目录下。“展开”：再把这些打包的文件展开到用户可以携带的安装介质软盘、光盘等。3.检测安装程序 在没有VB 6.0系统的环境下，执行安装盘中的Setup.exe文件，将发行盘进行安装。,2.7 程 序 调 试,一、错误类型（1）编辑错误在编辑代码时，VB会对键入的代码直接进行语法检查。当发现代码存在打字错误，遗漏关键字或标点符等语法错误，VB 在Form窗口中弹出一个子窗口，提示出错信息，出错的那一行变成红色。这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。,（2）编译错误 编译错误指按了“启动”按钮，VB开始运行程序前，先编译执行的程序段时，产生的错误。此类错误由于用户未定义变量、遗漏关键字等原因产生。这时，Visual Basic也弹出一个子窗口，提示出错信息，出错的那一行被高亮度显示。,（3）运行错误运行时错误指VB在编译通过后，运行代码时发生的错误。这类错误往往是指令代码执行了一非法操作引起的。例如类型不匹配、试图打开一个不存在的文件等。,（4）逻辑错误程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。例如，运算符使用不正确、语句的次序不对、循环语句的起始、终值不正确等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要程序员仔细地阅读分析程序以及调试。,二、调试错误(1)VB的三种模式 设计模式设计 进行程序的界面设计、属性设置、代码编写等。运行模式运行 执行“运行/启动”命令，可以查看程序代码，但不能修改。中断模式中断 当在运行模式，按了“中断”命令或当程序出现运行时错误时进入中断模式。可以查看代码、修改代码、检查数据。(2)调试窗口 有三个调试窗口，它们是：“立即”窗口、“监视”窗口、和“本地”窗口。可单击视图菜单中的对应命令打开这些窗口。,（3）设置断点和逐语句跟踪 断点是告诉VB挂起程序执行的一个标记，当程序执行到断点处即暂停程序的运行，进入中断模式。设置或删除断点的步骤：中断模式下，直接查看某个变量的值，只要把鼠标指向所关心的变量处，稍停一下，就在鼠标下方显示该变量的值。,断点标记,当前行,2.8 常 见 错 误1.使用中文标点符号 系统产生“无效字符”，以红色显示。2.字母和数字形状相似 小写字母“l”和数字“1”形式相同、小写字母“o”与数字“0”。3.对象名称(Name)属性写错 Text1、Text2、Command1 txtInput、txtOutput、cmdOk4.对象的属性名、方法名、标准函数名写错 尽量使用自动列出成员功能。正确的系统按规定的大小写表示。5.无意形成控件数组 建立控件时小心使用“复制”、“粘贴”按钮。6.打开工程时找不到对应的文件 保存文件时先保存窗体.frm文件、再保存.vbp文件，注意路径。,第三章 VB语言基础（2学时）,3.1 编码规则3.2 数据类型3.3 变量与常量3.4 运算符和表达式3.5 常用函数3.6 常见错误,3.1 编 码 基 础,1.VB代码不区分字母的大小写 系统保留字自动转换每个单词的首字母大写；用户自定义行以第一次为准。2.语句书写自由 一行可书写几句语句,之间用冒号分隔；一句语句可分若干行书写，用续行符_连接一行=255个字符。3.注释有利于程序的维护和调试 Rem开始 或 单撇号 4.保留行号与标号,3.2 数 据 类 型,标准数据类型,3.3 变量与常量,一、变量和常量的命名规则 变量：在程序运行中其存储的值可以改变。常量：在程序运行中其值不可以改变。命名规则：1.以字母或汉字开头，后可跟汉字、字母、数字或下划线组成，长度小于等于255个字符；2.不要使用VB中的关键字；3.VB中不区分变量名的大小写；4.为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。,二、变量声明1.用Dim语句显式声明变量 形式：Dim 变量名 AS 类型 Dim 变量名类型符 例 Dim iCount As integer,sAllsum As single 等价于 Dim iCount%,sAllsum!2.隐式声明 未进行上述的声明而直接使用，其类型为 Variant 类型。建议不使用。注意:在通用声明处加 Option Explicit 语句可强制显式声明 变量。,三、常量1.用户声明常量 形式：Const 常量名 AS 类型=表达式 省略 AS 类型，常量的类型由表达式值的类型决定。为使与变量名区分，一般常量名使用大写字母。例 Const MAX=1002.系统提供的常量 系统定义常量位于对象库中，可通过“对象浏览器”查看。例：vbNormal vbMinimized、vbbCrLf等,3.4 运算符和表达式,一、运算符 1.算术运算符 例：5+10 mod 10 9/3+2 2 结果：10,2.字符串运算符、+字符串连接 123+456 结果 123456 123&456 结果 123456 区别：+两边必须是字符串，&不一定 例如：abcdef&12345 结果为 abcdef12345 abcdef+12345 出错 123&456 结果为 123456“123”+456 结果为 579注意：123+True 结果为 122 True转换为数值-1，False转换为数值0,3关系运算符 将两个操作数进行大小比较，结果为逻辑量。字符串比较,则按字符的ASCII码值从左到右一一比较，直到出现不同的字符为止.。例：ABCDE ABRA 结果为 False,男字 女字 按汉字的拼音字母比较,4.逻辑运算符 将操作数进行逻辑运算，结果是逻辑值：条件表达式1 And 条件表达式2 条件表达式均为T，结果为T；条件表达式1 Or 条件表达式2 条件表达式有一个为T 结果为T。,二、表达式 1.组成 变量、常量、函数、运算符和圆括号。2.书写规则(1)运算符不能相邻。例a+-b是错误的。(2)乘号不能省略。例x 乘以y 应写成：x*y。(3)括号必须成对出现，均使用圆括号。(4)表达式从左到右在同一基准上书写，无高低、大小。3.不同数据类型的转换 运算结果的数据类型向精度高的数据类型靠。Integer=字符运算符关系运算符逻辑运算,表达式书写举例,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，性别=“女”，(学历=“专科”，学历=“本科”)And And Or,比a小，比b大 用 Or,a小数,b大数,a小数,b大数,比a大，比b小 用 And,例：表示算术表达式：正确的VB表达式：3=x And x=7 错误的VB表达式：3=x=7 或 3=x Or x=7,考虑：若分别写成：年龄40 And 性别=女 And(学历=专科 And 学历=本科)年龄40 Or 性别=女 Or(学历=专科 Or 学历=本科),3.5 常用内部函数1.数学函数 Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数。每次运行时，要产生不同序列的随机数，执行Randomize 语句。例产生1100的随机数：Int(Rnd*100)+12.转换函数 Chr(66)B Asc(B)66 Asc(Chr(99)99 Chr(Asc(K)K Ucase$(abcdefg)ABCDEFG3.日期函数,Time返回系统时间、Date返回系统日期、Now返回系统日期和时间 DateAdd（要增减日期形式，增减量，要增减的日期变量）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)BCD InStr(2,ABCDEFG,EF)5 S=Split(123,56,ab,)Join(S,)123 56 ab Replace(ABCDABCD,CD,123)“AB123AB123”,S(0)=123”,S(1)=56”,S(2)=ab,5.格式输出函数例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 AM/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 Sub,6.Shell函数 Shell函数负责执行一个可执行文件，返回一个Variant，如果成功，代表这个程序的进程ID，若不成功，则会返回0。形式：Shell(命令字符串,窗口类型)窗口类型值为1表示正常窗口，缺省窗口最小化为图标。i=Shell(c:windowscalc.exe)j=Shell(c:,1),提示：如果不知道应用程序的路径名，可用Start命令启动程序 i=Shell(start&calc.exe)；i=Shell(start&vb6.exe),3.6 常 见 错 误,1.逻辑表达式书写错，在VB没有造成语法错而形成逻辑错 例如，数学表达式 3x10 VB表达式写为 3=x10。问题在于VB中的逻辑量与数值量可相互转换。2.同时给多个变量赋值，在VB没有造成语法错而形成逻辑错 例如：Dim x%，y%，z%x=y=z=13.标准函数名写错 4.变量名写错 检查方法：在通用声明段加Option Explicit5.语句书写位置错 在通用声明段只能有Dim语句，不能有赋值等其他语句,第四章 基本的控制结构（8学时）,4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 常用算法（一）4.6 常见错误（顺序、条件、循环）,4.1 顺 序 结 构,一、赋值语句 形式：LET变量名表达式 作用：将表达式的值赋值给变量名。一般用于给变量赋值或对控件设定属性值。例：sRate!=0.1 Text1.Text 欢迎使用Visual Basic 6.0 当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如 iA%=10/3 iA中的结果为3 注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。,二、与用户交互函数和过程 1.InputBox函数 InputBox(提示，标题，缺省，x 坐标位置，y坐标位置)其中：提示：提示信息；标题：对话框标题；缺省：输入区缺省值 函数返回字符类型。例要在屏幕上显示图示的对话框：,相应的语句如下：Dim strName As String*40 strName=InputBox(请输入你的姓名+vbCrLf+然后单击确定,输入框)也可以使用如下语句：Dim strName As String*40，strS1 As String*40strS1=请输入你的姓名+Chr(13)+Chr(10)+然后单击确定 strName=InputBox(strS1，输入框，100，100)当键盘输入“王晓明”后，变量strName获得键盘输入的值。,2.MsgBox函数和MsgBox过程 函数形式：变量%=MsgBox(提示,按钮，标题)过程形式：MsgBox 提示,按钮,标题 按钮值如下：函数返回所选按钮整数值：,例4.1 编一帐号和密码检验程序。要求：帐号不超过6位数字，有错，清除原内容再输入。密码输入时在屏幕上以“*”代替；若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。分析：帐号6位，MaxLength为6，LostFocus判断数字IsNumeric函数 密码PassWordChar为“*”，MsgBox函数设置密码错对话框。,常 见 错 误,数据合法性检查中引起程序的死循环,Private Sub Text1_LostFocus()If Not IsNumeric(Text1)Then Text1=Text1.SetFocus End IfEnd Sub,Private Sub Text2_LostFocus()If Not IsNumeric(Text2)Then Text2=Text1.SetFocus End IfEnd Sub,If Text2 And Not IsNumeric(Text2),4.2 选 择 结 构 1.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,重要的是学会两个数的交换，若上述语句次序变一下，结果如何？,2.IfThenElse语句(双分支结构)If Then Else End If If 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 If,3.IfThenElseIf语句(多分支结构)形式：If Then 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 根据边长判断三角形类型,例4.3 已知百分制成绩mark，显示对应的五级制成绩 哪些正确，哪些错误？,返回72,4If语句的嵌套 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 If xy Then t=x:x=y:y=t End If End If,If语句的嵌套注意事项：书写锯齿型；If 与End If配对。,：与同类型的下面四种形式之一：表达式 例:A 一组枚举表达式(用逗号分隔)2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is 60,5.Select Case语句(情况语句)形式：Select Case 变量或表达式Case 表达式列表1 语句块1Case 表达式列表2 语句块2Case Else 语句块n+1End Select,数值型或字符串表达式,例4.5 变量strC中存放了一个字符，判断该字符类型。在例4.2中用多分支结构实现：If Ucase(strC)=A And Ucase(strC)=0 And strC=9 Then Print strC+是数字字符 Else Print strC+其他字符 End If用Select Case语句实现:Select Case strCCase a To z，A To ZPrint strC+是字母字符Case 0 To 9Print strC+是数字字符Case ElsePrint strC+其他字符 End Select,例4.6 已知坐标点(x，y)，判断其落在哪个象限。,哪个能实现，哪个不能实现？,方法一If x 0 And y 0 Then Print 在第一象限 ElseIf x 0 Then Print 在第二象限 ElseIf x 0 And y 0 Then Print 在第四象限 End If,方法二Select Case x,y Case x 0 And y 0Print 在第一象限 Case x 0Print 在第二象限 Case x 0 And y 0Print 在第四象限End Select,方法二代码错误：1.Select Case 后不能出现多个变量；2.Case后不能出现变量及有关运算符。,返回72,例4.7由计算机来当一年级的算术老师，要求给出一系列的110的操作数和运算符，学生输入该题的答案，计算机根据学生的答案判断正确与否，当结束时给出成绩。分析:产生110操作数，可通过Int(10*Rnd+1)实现 设置的控件名 Label1 Text1 Picture1,Command1,6.条件函数（1）IIf函数形式是：IIf（表达式，当表达式为True时的值，当表达式为False时的值）例如，求x,y中大的数，放入Tmax变量中，语句如下：Tmax=IIf（x y，x，y）（2）Choose函数形式是：Choose（数字类型变量，值为1的返回值，值为2的返回值）例如，Nop是1-4的值，转换成+、-、运算符的语句如下：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关键字的书写和条件表达式的表示 ElseIf 不要写成Else If；多个条件表达式次序问题,见例4.3。3.Select Case语句的使用 Select Case 后不能出现多个变量；Case子句后不能出现变量，见例4.6。,4.3 循 环 结 构1.For循环语句(一般用于循环次数已知)形式 For 循环变量初值 to 终值 Step 步长 语句块Exit For 语句块 Next 循环变量,循环变量,=,终值,语句块,Exit For,语句块,循环变量加步长,T,F,循环变量得初值,循环体,例4.8 计算1100的奇数和，程序段如下：Dim i%,s%等价于：Dim i%,s%s=0 s=0：i=1 For i=1 To 100 step 2 re:If i=100 Then s=s+i s=s+i Next i i=i+2 GoTo reEnd If,0 初值终值=0 死循环,循环次数,要注意：出了循环，循环控制变量值的问题。例程序段：For i=2 To 13 Step 3 循环执行次数 Print i,输出 i的值分别为:Next i 2 5 8 11 Print:Print“I=“,i 出了循环输出为:I=14 在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。,步长,例4.9 改变循环控制变量对循环的影响。Private Sub Command1_Click()j=0 For i=1 To 20 Step 2 i=i+3 j=j+1 Print 第;j;次循环i=;i Next i Print 退出循环后i=;i End Sub正常情况：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 直接利用标准对数函数求得；也可利用循环求得，程序如下：Private Sub Command1_Click()x=13 n=0 Do While x 26 x=x*1.008 n=n+1 Loop Print n,xEnd Sub,例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 的最大公约数.If m 0)m=n n=r r=m mod n Loop Print 最大公约数=,n,m n r 14 6 2 6 2 0,辗转相减法 m=m-n mn n=n-m nm m、n为公约数 m=nDo While m n m n If m n Then 14 6 m=m n 8 6 Else 2 6 n=n m 2 4 End If 2 2Loop,3.循环的嵌套 一个循环体内又包含了一个完整的循环结构称为循环的嵌套.例4.13打印九九乘法表.For i=1 To 9 For j=1 To 9 se=i Next j Picture1.Print Next i,思考：打印上三角或下三角程序如何改动？要打印下三角?,For j=1 To i,For ii=1 To 10 For jj=1 To 20 Next ii Next jj,For ii=1 To 10 For ii=1 To 20 Next ii Next ii,For ii=1 To 10 For jj=1 To 20 Next jj Next ii,For ii=1 To 10 Next ii For ii=1 To 10 Next ii,对于循环的嵌套，要注意以下事项：内循环变量与外循环变量不能同名；外循环必须完全包含内循环，不能交叉；不能从循环体外转向循环体内，反之则可以。正确错误,4.4 其他辅助控制语句 1.Go To 语句 形式:Go To 标号|行号 作用：无条件地转移到标号或行号指定的那行语句.标号是一个字符序列,行号是一个数字序列.2.Exit语句 多种形式：Exit For、Exit Do、Exit Sub、Exit Functi