《VB语言IF选择结构ppt课件.ppt》由会员分享，可在线阅读，更多相关《VB语言IF选择结构ppt课件.ppt（34页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、广东石油化工学院广东石油化工学院4.1 IF4.1 IF选择结构选择结构4.2 4.2 有关函数有关函数4.3 Select Case4.3 Select Case结构结构4.4 4.4 简单应用简单应用开始开始输入输入RS=3.14*R2输出输出S结束结束Y顺序结构顺序结构选择结构选择结构循环结构循环结构从上到下逐一执行每一个语句从上到下逐一执行每一个语句根据给出的条件，选择执行一个分支根据给出的条件，选择执行一个分支根据给出的条件，判断是否重复执行某一部分语句根据给出的条件，判断是否重复执行某一部分语句4.1 If 4.1 If 选择结构选择结构1 1、单分支结构单分支结构 ( (IfTh
2、enIfThen语句语句) ) 语法结构：语法结构： If If ThenThen End IfEnd If 或 If If Then Then 条件语句组假真 多行结构多行结构单行结构单行结构问题问题1 1： 输入x的值，计算如下函数对应的y值。分析：本题包含两个条件：（1）当条件为“x0”时；（2）当条件为“x= 0 Then x=0时计算y y = x 2 + 1End IfIf x 0 Then x= b ThenThen Print 最大数为： ; aEnd IfEnd IfIf If x 0 ThenThen Print 最大数为： ; bEnd IfEnd If语法结构：语法结构
3、： If If ThenThen 1 Else Else 2 End If End If或或 If If ThenThen Else Else 条件语句组1语句组2假真2、双分支双分支结构结构 ( (If IfThenThenElseElse语句语句) )问题问题1 1：输入输入x x的值，计算如下函数对应的的值，计算如下函数对应的y y值。值。分析：本题中条件可为： x0（1）当“x0”成立时， y=x2+1（2）当“x= 0 x = 0 ThenThen y = x 2 + 1 x=0 y = x 2 + 1 x=0时计算时计算y yElseElse y = x 2 - 1 y = x 2
4、 - 1End IfEnd IfPrint x=; x, y=; yPrint x=; x, y=; y问题问题2 2：在两个数中求最大数。：在两个数中求最大数。Dim a As Single, b As Singlea = Val(InputBox(请输入变量a的值) b = Val(InputBox(请输入变量b的值)If a = b Then Print 最大数为： ; aElse Print 最大数为： ; bEnd If问题问题3 3： 输入x的值，计算如下函数对应的y值。分析：分析：本题中条件可看作： x0和x0两种情况（1）当“x0”，则：y=x2+1； 否则： y=010122
5、xxyx0 x0 x0Dim x As Single, y As Singlex = Val(InputBox(请输入变量的值) If x 0 Then y = x 2 - 1 x 0 Then y = x 2 + 1 ELSE y=0 End IfEnd IfPrint x=; x, y=; y结构嵌套结构嵌套在前例中，可以看到：!在一个选择结构中，又包含了另一个选 择结构，这种形式称为选择结构（分支）选择结构（分支）嵌套。嵌套。M当问题越复杂时，用块If的嵌套层次会越深，程序易读性越差。!采用块IF的多分支结构IfElseIf会使程序简练。关于行格式：关于行格式：! 格式If Then E
6、lse M 注意条件和语句序列应在一行内写完；和不得同时省略。 用行If结构的前提是“语句组1和语句组2要特别简短”,如果语句组较复杂，结构会不清晰。行If结构没有EndIf。 If ab Then Print a Else Print b3. 3. 多分支结构（多分支结构（IFIFThenThenElseIfElseIf语句）语句）!语法格式If If ThenThen ElseIfElseIf ThenThen ElseIfElseIf ThenThen ElseElse End IfEnd IfM注意：ElseIf不能写成Else If；当多分支中有多个表达式同时满足时，仅执行第一个满足
7、条件的语句组。 语句组n+1条件1条件2条件n语句组1语句组2语句组n真假真真假假执行执行流程：问题问题1 1： 输入x的值，计算y的值。分析：分析：本题包含3个条件：（1）当条件为“x0”时；（2）当条件为“x=0”时；（3）当条件为“x=0”时。实现：多分支结构10122xxyx0 x0 x0Dim x As Single, y As SingleDim x As Single, y As Singlex = x = Val(InputBoxVal(InputBox( (请输入变量的值请输入变量的值) ) If If x 0 x 0 ThenThen y = x 2 + 1 x0 y =
8、x 2 + 1 x0时计算时计算y yElseIfElseIf x = 0 x = 0 ThenThen y=0 y=0ElseIfElseIf x 0 x = b, a, b) Print max2 2、ChooseChoose函数函数（1）格式：ChooseChoose（整数表达式，选项列表）（整数表达式，选项列表）（2 2）说明）说明! 根据整数表达式的值，决定函数返回选项列表中的某个值。如果整数表达式的值是1，则返回选项列表中的第一个选项值，如果是2，则返回第二个选项值，依此类推。 ! 若整数表达式的值小于1或大于列出的选项数时，函数返回空值（Null）。 Choose(Weekday
9、(Now),日,一,二,三,四,五,六) 3、MsgBox函数（1）格式如下：变量=MsgBox(提示，按钮，标题)（2）说明n变量 用于指定接收函数的返回值。MsgBox函数的返回值是一个整数，因此变量一般为整型变量。n提示与标题 意义同InputBox函数。n按钮 整型表达式，决定消息框中按钮的数目、类型及出现在消息框上的图标类型。（3）VB中对不需要返回值的MsgBox函数调用格式如下：MsgBox 提示，按钮，标题4.3 Select Case4.3 Select Case结构结构语句格式：语句格式：Select CaseSelect Case CaseCase CaseCase Ca
10、seCase Case ElseCase Else End SelectEnd Select计算表达式M注意：注意：(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之间时，执
11、行对应的语句组； Is 关系运算符表达式 如Case Is10 表示当变量或表达式的值大于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 情况：xx-5x-5问题问题1 1：输入X的
12、值，求Y的值。问题问题1:1:08010060904.4 4.4 简单应用简单应用选择结构小结选择结构小结If 条件条件 Then Else End if 课后任务课后任务1: 1.输入一个字母或输入一个字母或09的数字，编程进行分类的数字，编程进行分类. 要求要求: 若为数字，则显示若为数字，则显示“是一个是一个0-9的数字的数字”； 若为英文字母，则若为英文字母，则显示显示“是一个英文字母是一个英文字母”； 若为其它若为其它(如标点符号如标点符号),则用则用MsgBox提示错误信息提示错误信息. 闰年闰年: :若年份能被若年份能被4 4整除但不能被整除但不能被100100整除整除 或年份能
13、被或年份能被400400整除整除, ,则为闰年则为闰年判断用户从输入框输入的年份是否为闰年判断用户从输入框输入的年份是否为闰年?Private Sub Command1_Click Dim y% y = Val(InputBox (“请输入年份请输入年份”) If y Mod 4=0 And y Mod 1000 Or y Mod 400=0 Then Print y & “年为闰年年为闰年” Else Print y & “年不是闰年年不是闰年” End If End sub课后任务课后任务3 3：按下列成绩规则划分等级。分别0801006090课后任务课后任务4 4：1. 课后习题P56一.选择题 P61二.填空题2. 实验三 P18-19 三.实验内容(1 2) 编程编程: 求解一元二次方程求解一元二次方程ax2+bx+c=0的算术根的算术根x1,x2 重试重试：清空文本框，重新输入。：清空文本框，重新输入。 取消取消：结束运行。：结束运行。课后任务课后任务5 5：实验指导书实验指导书P15P15案例二案例二