《VB语言IF选择结构ppt课件.ppt》由会员分享，可在线阅读，更多相关《VB语言IF选择结构ppt课件.ppt（34页珍藏版）》请在三一办公上搜索。
1、,广东石油化工学院,4. 选择结构,4.1 IF选择结构4.2 有关函数4.3 Select Case结构4.4 简单应用,流程图描述法的基本图形符号,VB程序的控制结构,顺序结构,选择结构,循环结构,顺序结构：从上到下逐一执行每一个语句选择结构：根据给出的条件，选择执行一个分支循环结构：根据给出的条件，判断是否重复执行某一部分语句,4.1 If 选择结构,1、单分支结构 (IfThen语句) 语法结构： If Then End If 或 If Then ,多行结构,单行结构,问题1： 输入x的值，计算如下函数对应的y值。分析：本题包含两个条件：（1）当条件为“x0”时；（2）当条件为“x0”
2、时。可以用两个单分支结构完成。,x 0 x 0,Dim x As Single, y As Singlex = Val(InputBox(请输入变量的值) If x = 0 Then x=0时计算y y = x 2 + 1End IfIf x 0 Then x0时计算y y = x 2 - 1End IfPrint x=; x, y=; y,问题2：在两个数中求最大数。,Dim a As Single, b As Singlea = Val(InputBox(请输入变量a的值) b = Val(InputBox(请输入变量b的值)If a = b Then Print 最大数为： ; aEnd
3、 IfIf x 0 Then Print 最大数为： ; bEnd If,问题3: 比较3个数a、b和c的大小,输出其中的最大值.,采用“打擂法”,max=a,If bmax Then max=bEnd If,If cmax Then max=cEnd If,Print max,If bmax Then max=b,If cmax Then max=c,语法结构： If Then Else End If或 If Then Else ,2、双分支结构 (IfThenElse语句),IIF(条件,T语句,F语句),若T/F语句为一个语句时, IIF 函数可代替 IF,问题1：输入x的值，计算如下函
4、数对应的y值。分析：本题中条件可为： x0（1）当“x0”成立时， y=x2+1（2）当“x0” 成立时， y=x2-1,x 0 x 0,代码表示为： Dim x As Single, y As Singlex = Val(InputBox(请输入变量的值) If x = 0 Then y = x 2 + 1 x=0时计算yElse y = x 2 - 1End IfPrint x=; x, y=; y,问题2：在两个数中求最大数。,Dim a As Single, b As Singlea = Val(InputBox(请输入变量a的值) b = Val(InputBox(请输入变量b的值)
5、If a = b Then Print 最大数为： ; aElse Print 最大数为： ; bEnd If,问题3： 输入x的值，计算如下函数对应的y值。分析：本题中条件可看作： x0和x0”，则：y=x2+1； 否则： y=0,x0 x0 x0,Dim x As Single, y As Singlex = Val(InputBox(请输入变量的值) If x 0 Then y = x 2 + 1 ELSE y=0 End IfEnd IfPrint x=; x, y=; y,结构嵌套,在前例中，可以看到：在一个选择结构中，又包含了另一个选 择结构，这种形式称为选择结构（分支）嵌套。当问
6、题越复杂时，用块If的嵌套层次会越深，程序易读性越差。采用块IF的多分支结构IfElseIf会使程序简练。,关于行格式： 格式If Then Else 注意条件和语句序列应在一行内写完；和不得同时省略。 用行If结构的前提是“语句组1和语句组2要特别简短”,如果语句组较复杂，结构会不清晰。行If结构没有EndIf。,If ab Then Print a Else Print b,3. 多分支结构（IFThenElseIf语句）,语法格式If Then ElseIf Then ElseIf Then Else End If注意：ElseIf不能写成Else If；当多分支中有多个表达式同时满足时
7、，仅执行第一个满足条件的语句组。,执行流程：,问题1： 输入x的值，计算y的值。分析：本题包含3个条件：（1）当条件为“x0”时；（2）当条件为“x=0”时；（3）当条件为“x=0”时。实现：多分支结构,x0 x0 x0,Dim x As Single, y As Singlex = Val(InputBox(请输入变量的值) If x 0 Then y = x 2 + 1 x0时计算yElseIf x = 0 Then y=0ElseIf x 0 Then y = x 2 - 1End IfPrint x=; x, y=; y,4.2 有关函数,1、IIf函数（1）格式： IIf（条件，T语
8、句，F语句）（2）说明： 当条件成立时，该函数返回表达式1的值，否则返回表达式2的值。,Dim a As Single, b As Single, max As Single a = InputBox(请输入a的值) b = InputBox(请输入b的值) max = IIf(a = b, a, b) Print max,2、Choose函数（1）格式：Choose（整数表达式，选项列表）（2）说明 根据整数表达式的值，决定函数返回选项列表中的某个值。如果整数表达式的值是1，则返回选项列表中的第一个选项值，如果是2，则返回第二个选项值，依此类推。 若整数表达式的值小于1或大于列出的选项数时，
9、函数返回空值（Null）。,Choose(Weekday(Now),日,一,二,三,四,五,六),3、MsgBox函数（1）格式如下：变量=MsgBox(提示，按钮，标题)（2）说明变量 用于指定接收函数的返回值。MsgBox函数的返回值是一个整数，因此变量一般为整型变量。提示与标题 意义同InputBox函数。按钮 整型表达式，决定消息框中按钮的数目、类型及出现在消息框上的图标类型。（3）VB中对不需要返回值的MsgBox函数调用格式如下：MsgBox 提示，按钮，标题,4.3 Select Case结构,语句格式：Select Case Case Case Case Case Else E
10、nd Select,计算表达式,注意：(1) 变量或表达式 可以是单一数值型或字符串表达式；(2) 表达式列表 与变量或表达式的类型必须相同，可以是下面4种形式之一，除了这4种情况，不能用Select Case结构： 表达式 如：Case 8 表示当变量或表达式值等于8时执行对应的语句组； 一组用逗号分隔的值 如Case 1,3,4,7,10 表示当变量或表达式的值为1，3，4，7，10中之一时，执行对应的语句组； 表达式1 To 表达式2 如Case 0 to 9 表示当变量或表达式的值在09之间时，执行对应的语句组； Is 关系运算符表达式 如Case Is10 表示当变量或表达式的值大于
11、10时，执行对应的语句组。(3) Select Case 后不能出现多个变量；(例：Select Case x,y )(4) Case子句后不能出现变量。(例：Case x 0),Dim x As Single, y As Singlex = Val(InputBox(请输入变量的值)Select Case x Case Is = 10 情况：x10 y = x 2 + 1 Case Is = -5 情况：x-5 and x10 y = 0 Case Is -5 情况：x-5 y = x 2 - 1End SelectPrint x=; x, ; y=; y,x1010 x-5x-5,问题1：
12、输入X的值，求Y的值。,str=If (str=A And str =a And str =0 And str =9 Then Print str ; 是数字字符 Else Print str; 是其他字符 End If,问题1: 已知变量str中存放了一个字符，判断该字符的类型。,str=Select Case str Case A To Z , a To z Print str; 是字母字符 Case 0 To 9 Print str; 是数字字符 Case Else Print str; 是其他字符End Select,分别利用If与Select结构编写同一程序,If score 60
13、Then mark = 不及格ElseIf score 80 Then mark = 及格ElseIf score 90 Then mark = 良好ElseIf score =100 Then mark = 优秀Else mark = 错误!End If Print 成绩为 & mark,Select Case score Case Is 60 mark = 不及格 Case Is 80 mark = 及格 Case Is 90 mark = 良好 Case Is =100 mark = 优秀 Case Else mark = 错误!End SelectPrint 成绩为 & mark,4.
14、4 简单应用,选择结构小结,If 条件 Then Else End if,课后任务1: 1.输入一个字母或09的数字，编程进行分类. 要求: 若为数字，则显示“是一个0-9的数字”； 若为英文字母，则显示“是一个英文字母”； 若为其它(如标点符号),则用MsgBox提示错误信息.,闰年:若年份能被4整除但不能被100整除 或年份能被400整除,则为闰年,判断用户从输入框输入的年份是否为闰年?,课后任务2:,Private Sub Command1_Click Dim y% y = Val(InputBox (“请输入年份”) If y Mod 4=0 And y Mod 1000 Or y M
15、od 400=0 Then Print y & “年为闰年” Else Print y & “年不是闰年” End If End sub,课后任务3：按下列成绩规则划分等级。分别利用两种If语句（elseif和嵌套）与Select结构编写同一程序。（每一行代码标明注释）,课后任务4：,1. 课后习题P56一.选择题 P61二.填空题2. 实验三 P18-19 三.实验内容(1 2),编程: 求解一元二次方程ax2+bx+c=0的算术根x1,x2,要求：1. 由输入框输入系数：a.b.c 2. b2-4ac =0, 计算算术根x1,x2 否则, 信息框警告“无算术根!” 重试：清空文本框，重新输
16、入。 取消：结束运行。,VBRetryCancel,课后任务5：实验指导书P15案例二,Private Sub Form_click() Dim a!, b1, c!, x1#, x2#, p#, n%Re_Input: a = Val(InputBox(输入a=) b = Val(InputBox(输入b=) c = Val(InputBox(输入c=) p = b 2 - 4 * a * c If p = 0 Then x1 = (-b + Sqr(p) / (2 * a) x2 = (-b - Sqr(p) / (2 * a) Print x1 Print x2 Else n = MsgBox(没有算术根！, VbRetryCancel) If n = VbRetry Then GoTo Re_Input Else End End If End If,
