第3章VisualBasic的程序控制结构ppt课件

1、 三种根本的流程控制构造：顺序构造、条件分支构造和循环构造。语句语句1语句语句2语句语句n条件条件?语句块语句块1语句块语句块2循环体循环体条件条件? 在顺序构造中程序语句是严厉按书写顺序依次执行，是最简单、最根本的控制构造。语句语句1语句语句2语句语句n 赋值语句：先计算出赋值号右边表达式的值，再将赋值语句：先计算出赋值号右边表达式的值，再将值赋给左边的变量。值赋给左边的变量。 格式：格式：变量名表达式变量名表达式 自定义变量自定义变量变量名表达式变量名表达式 系统变量系统变量对象名对象名.属性名表达式属性名表达式变量名表达式变量名表达式阐明：阐明：(1)表达式只能在赋值号右边，两边数据类型

2、不同时，表达式只能在赋值号右边，两边数据类型不同时，符合条件的自动转换否那么会报错。符合条件的自动转换否那么会报错。两边都是数值型，强迫转换为左边变量的类型；两边都是数值型，强迫转换为左边变量的类型；字符串字符串-数值型，含非数值型字符数值型，含非数值型字符/空串出错。空串出错。逻辑值赋给数值变量时，逻辑值赋给数值变量时，True-1，False0；数；数值赋值给逻辑变量时，非值赋值给逻辑变量时，非0True，0False变量名表达式变量名表达式阐明：阐明：(2) 赋值语句的赋值号和等号作用不同。赋值语句的赋值号和等号作用不同。(3) 左边只能是变量，不能是常量、函数或表达式。左边只能是变量，

3、不能是常量、函数或表达式。(4)不能用一个赋值语句同时给多个变量赋值。不能用一个赋值语句同时给多个变量赋值。(5)变量未赋值，系统将给变量赋一个默许值。变量未赋值，系统将给变量赋一个默许值。1 输入框输入框InputBox函数函数InputBox函数显示一个能接受用户输入的对话框，并函数显示一个能接受用户输入的对话框，并前往用户所输入信息。前往用户所输入信息。变量变量=InputBox (,)(1)提示信息和标题同提示信息和标题同MsgBox(2)默许内容：指定输入框中的默许内容。默许内容：指定输入框中的默许内容。(3)省略某些选项时逗号不能省略。省略某些选项时逗号不能省略。(4)默许值或输入

4、框中出现乱码，需安装默许值或输入框中出现乱码，需安装sp6补丁。补丁。(5)前往值为字符类型，可用前往值为字符类型，可用Val()转换为数值型。转换为数值型。例例3-1 利用利用InputBox()函数，编写一个输入学生函数，编写一个输入学生的姓名的对话框，并显示在窗体上。的姓名的对话框，并显示在窗体上。Private Sub Form_Click() Dim sName As String sName = InputBox(请输入学生姓名：请输入学生姓名：, _姓名输入姓名输入, 张三张三) Form1.Print sNameEnd Sub2 音讯框音讯框MsgBox两种运用方式：函数方式和

5、语句方式。两种运用方式：函数方式和语句方式。1) 函数方式：函数方式：变量变量 = MsgBox(,类型类型,标题标题)(1)提示信息：对话框内显示的字符串提示信息：对话框内显示的字符串(1024个个)(2)类型：表示按钮数目、图标类型及默许按钮位置类型：表示按钮数目、图标类型及默许按钮位置 (3)标题：省略显示程序名标题：省略显示程序名(4)前往值：前往记录用户选择的一个整数前往值：前往记录用户选择的一个整数(5)留意：省略类型选项时，逗号不能省留意：省略类型选项时，逗号不能省例例3-2 MsgBox()运用实例。在窗体单击事件中编运用实例。在窗体单击事件中编写如下程序：写如下程序：Priv

6、ate Sub Form_Click() Dim a As Integer a = MsgBox(请他先注册请他先注册!, 1 + 16 + 256 + 0, MsgBox例子例子) Print aEnd SubP50 表表2-10，表，表2-11例：例：2-1a = MsgBox( 请他先注册请他先注册“ , 1 + 16 + 256 + 0, msgbox例子例子)由第一项由第一项产生产生此两项由中此两项由中间项间项产生产生由第三项由第三项产生产生将第二个按钮将第二个按钮“取消设为默取消设为默许值许值显示叉号显示叉号显示显示“确定与确定与“取消两个按取消两个按钮钮2 音讯框音讯框MsgBo

7、x2) 语句方式语句方式MsgBox函数也可写成语句方式：函数也可写成语句方式：MsgBox “提示信息提示信息,类型类型,标题标题由于由于MsgBox语句没有前往值，因此常用于简单信息语句没有前往值，因此常用于简单信息的显示的显示留意留意1：MsgBox语句不带括号语句不带括号(只一个参数可以加只一个参数可以加)。留意留意2：需求前往值时必需用函数方式。：需求前往值时必需用函数方式。3 Print方法方法. Print Spc (n)|Tab (n) ，| ；(1) 对象称号为窗体、图片框或打印机。假设省略对象称号为窗体、图片框或打印机。假设省略“对象，那么在当前窗体上输出。对象，那么在当前

8、窗体上输出。(2) 一个或多个表达式。对于数值表达式，输出表达一个或多个表达式。对于数值表达式，输出表达式的值；而字符串那么照原样输出。如省略式的值；而字符串那么照原样输出。如省略“表达表达式表，那么输出一个空行。式表，那么输出一个空行。3 Print方法方法(3) 输出时，可用分隔符隔开多个表达式或字符串。输出时，可用分隔符隔开多个表达式或字符串。逗号：按规范逗号：按规范(分区分区以以14个字符位为单位把输出个字符位为单位把输出行分为假设干区段行分为假设干区段)输出格式显示数据项。输出格式显示数据项。分号或空格：按紧凑格式输出数据。分号或空格：按紧凑格式输出数据。(4) 语句末是语句末是“;

9、、“,或省略，下一语句输出位置或省略，下一语句输出位置不同。不同。(5) Print方法具有计算和输出双重功能。方法具有计算和输出双重功能。例例3-3 输入半径，计算球的体积和外表积，输出在输入半径，计算球的体积和外表积，输出在窗体中。窗体中。Dim R As Double, V As Double, S As DoubleConst PI = 3.1415926R = Val(InputBox(请输入球的半径r:)PrintForm1.Print 球的半径R=, R, mmPrintV = 4 / 3 * PI * R 3S = 4 * PI * R 2Print 球的体积V=; V; mm

10、3PrintPrint 球的外表积S=; S; mm24 Print方法有关的函数方法有关的函数(1)Tab函数函数 Tab(n)用于定位输出，用于定位输出，n表示位置。含多个表示位置。含多个Tab(n)，n值必值必需递增，否那么自动换行。用需递增，否那么自动换行。用;隔开。隔开。(2)Spc函数函数Spc(n)n表示插入空格数。用表示插入空格数。用;隔开。隔开。Tab(n)从对象的左端开场计数，从对象的左端开场计数， Spc(n)两输入项之两输入项之间间隔。间间隔。5 格式输出函数格式输出函数使数值、日期或字符按指定的格式输出。使数值、日期或字符按指定的格式输出。格式：格式：Format (

11、表达式表达式,格式字符串格式字符串)“表达式表示要输出的内容。表达式表示要输出的内容。“格式字符串指定输出格式。格式字符串指定输出格式。(1) 数值的格式化数值的格式化(2) 日期和时间格式化日期和时间格式化(3) 字符串格式化字符串格式化5 格式输出函数格式输出函数1) 数值的格式化数值的格式化符号作用数值表达式 格式化字符串显示结果0不够加0超过:小数舍入整数实显1234.56700000.0000 01234.56701234.567000.001234.571234000.001234.00#不够不加0超过同上1234.56700000.0000 1234.5671234.567000

12、.001234.571234000.001234.005 格式输出函数格式输出函数1) 数值的格式化数值的格式化符号作用数值表达式 格式化字符串显示结果.小数点12340000.001234.00,千分位符号1234.5670,000.001,234.57%*100，加%1234.567000.0%123456.7%$数字前加$1234.567$000.00$1234.57+ 数字前加+-1234.567+000.00-+1234.57-数字前加-1234.567-000.00-1234.57E指数表示0.12340.00E+001.23E-015 格式输出函数格式输出函数2) 日期和时间格式

13、化日期和时间格式化符号作用返回例子dddddd长日期yyyy年m月d日 Format(Date,”dddddd”)mmmm月份全名JanuaryFormat(Date,”mmm”)yyyy年份01009999Format(Date,”yyyy”)dddd星期全称SundayFormat(Date,”dddd”)ddddd 短日期yy/mm/ddFormat(Date,”ddddd”)ttttt完整时间小时:分:秒Format(Time,”ttttt”)AM/PM12小时制00:00:00AMFormat(Time,”tttttAM/PM”)例例3-4 时间输出格式化。时间输出格式化。Priva

14、te Sub form_Click() Form1.Caption = Now Mytime = #10:12:34 PM# Mydate = #3/17/2019# Print Tab(6); Format(Mydate, dddddd) Print Tab(6); Format(Mytime, tttttAM/PM) Print Tab(6); Format(Mydate, ddddd) Print Tab(6); Format(Mydate, mmmm) Print Tab(6); Format(Mytime, ttttt)End Sub5 格式输出函数格式输出函数3) 字符串格式化字符

15、串格式化符号作用例子结果强制小写Format(Hello,强制大写Format(happy,)HAPPY不够加空格 Format(ABCDE,)ABCDE&不够不加Format(ABCDE, &)ABCDE暂停语句暂停语句StopStop程序终了语句程序终了语句EndEndabc3 3434分析：需借助于第三个变量间接交换。分析：需借助于第三个变量间接交换。c=aa=bb=c例例3-5 编写程序交换两个变量中数据。编写程序交换两个变量中数据。用于根椐某个给定条件进展判别或比较的结果用于根椐某个给定条件进展判别或比较的结果来决议执行什么样的操作来决议执行什么样的操作,这就需求用到选择构这就需求用

16、到选择构造又称为条件分支构造来实现。造又称为条件分支构造来实现。4.2.1 If语句语句1.单分支单分支If语句语句单分支构造语句有单行构造和块构造两种用法。单分支构造语句有单行构造和块构造两种用法。单行构造：单行构造：If 条件表达式条件表达式 Then 程序语句程序语句(一行一行)块构造：块构造：If 条件表达式条件表达式 Then 程序语句块程序语句块(多行多行)End If.F.F.T.T.条件条件? ?语句语句( (块块) )IFEnd IF3.2.1 单分支单分支If语句语句知两个变量知两个变量x和和y，如过，如过x值小于值小于y值，那么两者进展值，那么两者进展数据交换，否那么不交

17、换。数据交换，否那么不交换。If x y Then t = x x = y y = tEnd If例例 编写一个密码验证程序。编写一个密码验证程序。 If Text2.Text = 123 Then MsgBox 欢迎进入系统, 64 + 1, 登录 End If3.2.2 双分支双分支If语句语句语法格式语法格式If 条件表达式条件表达式 Then语句块语句块1Else语句块语句块2End If.F.F.T.T.条件条件? ?语句块语句块1 1语句块语句块2 2IFEnd IF3.2.2 双分支双分支If语句语句例例 计算分段函数：计算分段函数：03cosx01sin32xxxxxxyIf

18、x 0 Then y = Sin(x) + Sqr(x 2 + 1)Else y = Cos(x) - x 3 + 3 * xEnd If3.2.3 多分支条件语句多分支条件语句1. 多分支多分支If语句语句语法格式语法格式If 条件表达式条件表达式1 Then语句块语句块1ElseIf 条件表达式条件表达式2 Then语句块语句块2 Else 语句块语句块n+1End If特别留意：假设有特别留意：假设有多个条件表达式的多个条件表达式的值都为值都为True，程序，程序只执行最先遇到的只执行最先遇到的条件表达式后面的条件表达式后面的语句块。语句块。当一切条件的值当一切条件的值都为都为False

19、时，程序时，程序直接执行最后的直接执行最后的Else子句。子句。条件条件1条件条件2条件条件3条件条件n语句块语句块1语句块语句块2语句块语句块3语句块语句块n语句块语句块n+1TrueTrueTrueTrueFalseFalseFalseFalse例例3-6 编程将学生的百分制成果转换成等级制，编程将学生的百分制成果转换成等级制，90分以上包括分以上包括90为为A，8090分包括分包括80为为B，7080分包括分包括70为为C，6070分包分包括括60为为D，60分以下为分以下为F。If bGrade = 90 Then Dgrade = AElseIf bGrade = 80 Then D

20、grade = BElseIf bGrade = 70 Then Dgrade = CElseIf bGrade = 60 Then Dgrade = DElse Dgrade = FEnd If3.2.3 多分支条件语句多分支条件语句2. Select Case语句语句语法格式语法格式Select Case 测试条件表达式测试条件表达式Case 表达式表列表达式表列1 语句块语句块1Case 表达式表列表达式表列2语句块语句块2 Case Else 语句块语句块nEnd Select列表列表1语句块语句块1语句块语句块2语句块语句块n语句块语句块n+1列表列表2列表列表nTrueTrueTr

21、ueFalseFalseFalse语法格式中的语法格式中的“变量或条件表达式，变量只能是一变量或条件表达式，变量只能是一个变量，其类型既可以是数值型，也可以是字符串个变量，其类型既可以是数值型，也可以是字符串型。型。语法格式中的语法格式中的“表达式列表必需与表达式列表必需与“条件表达式条件表达式的类型一样，可以是以下三种方式：的类型一样，可以是以下三种方式：表达式：这种表达式通常用来表达一些详细的取值，表达式：这种表达式通常用来表达一些详细的取值，如如case 2,4,6,8case 2,4,6,8等。等。表达式表达式 to to 表达式：常用于表示一个数据范围，如表达式：常用于表示一个数据范

22、围，如 case 20 to 50case 20 to 50Is Is 比较运算符表达式：比较运算符表达式：Is Is 与比较运算符连用，指定与比较运算符连用，指定变量或条件表达式的条件。变量或条件表达式的条件。 运用运用“表达式表列时应留意：表达式表列时应留意： 用关键字用关键字“ToTo指定范围时，必需把较小的值写指定范围时，必需把较小的值写在前面，较大的值写在后面，字符串常量的范围在前面，较大的值写在后面，字符串常量的范围必需按字母顺序写出。必需按字母顺序写出。如运用关键字如运用关键字IsIs，那么只能用关系运算符，不，那么只能用关系运算符，不能用逻辑运算符将两个或多个简单条件组合在一能

23、用逻辑运算符将两个或多个简单条件组合在一同。同。在一个在一个Select CaseSelect Case语句中，三种方式在数据类语句中，三种方式在数据类型匹配的情况下可以混用，如：型匹配的情况下可以混用，如：Case 5,6, 8 to 10,12,Is50Case 5,6, 8 to 10,12,Is50例例3-7 将例将例3-6的程序用的程序用Select Case语句编写。语句编写。例例 试编写程序，判别键盘所输入的字符是大写字试编写程序，判别键盘所输入的字符是大写字母、小写字母、数学字符还是其它字符。母、小写字母、数学字符还是其它字符。3.2.3 多分支条件语句多分支条件语句3.If语

24、句的嵌套语句的嵌套假设在假设在If语句的语句块语句的语句块1或语句块或语句块2中又包含中又包含If语句，语句，那么构成那么构成If语句的嵌套。语句的嵌套。If 条件表达式条件表达式1 Then语句块语句块1Else语句块语句块2End IfIf 条件表达式条件表达式11 Then语句块语句块11Else语句块语句块12End IfIf 条件表达式条件表达式12 Then语句块语句块21End If3.2.3 多分支条件语句多分支条件语句3.If语句的嵌套语句的嵌套例例3-9 某企业推销产品，购买某企业推销产品，购买10t以下以下1500元元/t，超越超越10t不到不到15t者者1200元元/t

25、，超越，超越15t按按1000元元/t计价。编写程序输入购买分量，计算应付款项。计价。编写程序输入购买分量，计算应付款项。3.2.3 多分支条件语句多分支条件语句4. 条件函数条件函数(1)IIf函数函数用于执行简单的条件判别操作，语法格式为：用于执行简单的条件判别操作，语法格式为：变量变量 = IIf (条件表达式，条件表达式，True部分，部分，False部分部分)功能：表达式为功能：表达式为True，前往，前往True部分，否那么前往部分，否那么前往False部分。部分。True部分和部分和False部分可以是表达式、变量或者其它部分可以是表达式、变量或者其它函数。函数。留意：留意：II

26、f函数中的三个参数均不能省略，且后两部函数中的三个参数均不能省略，且后两部分数据类型和保管结果一样。分数据类型和保管结果一样。3.2.3 多分支条件语句多分支条件语句4. 条件函数条件函数(2)Choose函数函数Choose函数的语法格式为：函数的语法格式为：变量变量 = Choose (整数表达式，选项列表整数表达式，选项列表)功能：根据整数表达式的值，前往选项列表中的相应功能：根据整数表达式的值，前往选项列表中的相应值。值。留意：假设整数表达式的值留意：假设整数表达式的值1或大于选项数目，函或大于选项数目，函数前往数前往“Null。例例3-10 试编写程序，判别所输入年份能否是闰年。试编

27、写程序，判别所输入年份能否是闰年。例例 某商场打折优惠方法如下：某商场打折优惠方法如下：购物购物100元以上，按九五折；元以上，按九五折；购物购物500元以上，按九折；元以上，按九折；购物购物1000元以上，按八五折；元以上，按八五折；购物购物5000元以上，按八折；元以上，按八折；试编写程序，输入顾客购物款，显示应付款。试编写程序，输入顾客购物款，显示应付款。1在选择构造中短少配对的终了语句在选择构造中短少配对的终了语句 对多行式的对多行式的 If 块语句中，应有配对的块语句中，应有配对的 End If 语语句终了。句终了。2.多条件选择多条件选择ElseIf 的书写和条件表达式的表示的书写

28、和条件表达式的表示 要留意要留意 ElseIf 不要写成不要写成Else If；3. Select Case语句的运用语句的运用 Select Case 后不能出现多个变量；后不能出现多个变量；Case子句后不能出现变量否那么计算结果错。子句后不能出现变量否那么计算结果错。 Visual BasicVisual Basic的循环控制构造包括：的循环控制构造包括： 计数循环计数循环(For-Next(For-Next循环循环) ) 条件循环条件循环 DoDo循环循环(Do-Loop(Do-Loop循环循环) ) 当循环当循环(While-Wend(While-Wend循环循环) )3.3.1 F

29、orNext循环循环语法格式：语法格式：For 循环变量循环变量=初值初值 To 终值终值 Step 步长步长语句块语句块1Exit For 语句块语句块2Next 循环变量循环变量循环变量赋初值循环变量赋初值与终值比较与终值比较语句块语句块Exit for语句块语句块语句块语句块加步长加步长未超越超越 For循环流程图例例3-11 计算并显示计算并显示1+2+3+100的和。的和。例例3-12 编写程序显示编写程序显示1001000以内一切能被以内一切能被77整除的自然数。整除的自然数。例例3-11 计算计算n!，即计算，即计算1*2*n的值。的值。3.3.2 DoLoop循环循环Do循环有

30、两种格式：循环有两种格式：Do While|Until条件条件语句块语句块1Exit Do 语句块语句块2LoopDo语句块语句块1Exit Do 语句块语句块2Loop While|Until条件条件前测型循环后测型循环关系表达式关系表达式语句块语句块Exit for语句块语句块TFFT语句块语句块Exit for语句块语句块关系表达式关系表达式WhileTFFTUntilDo While 条件条件语句块语句块1Exit Do 语句块语句块2LoopDo语句块语句块1Exit Do 语句块语句块2Loop While 条件条件Do Until 条件条件语句块语句块1Exit Do 语句块语句块2LoopDo语句块语句块1Exit Do 语句块语句块2Loop Until 条件条件例例4-14 编程计算编程计算n!，即计算，即计算1*2*n的值。的值。例例4-16 输入两个自然数，用辗转相除法求最大公输入两个自然数，用辗转相