VB语言IF选择结构.pptVIP

 VB程序的控制结构 1、单分支结构 (If…Then语句) 语法结构： If 条件 Then 语句组 End If 或 If 条件 Then 语句 问题1： 输入x的值，计算如下函数对应的y值。 分析：本题包含两个条件： （1）当条件为“x≥0”时； （2）当条件为“x0”时。可以用两个单分支结构完成。 Dim x As Single, y As Single x = Val(InputBox(请输入变量的值)) If x = 0 Then x=0时计算y y = x ^ 2 + 1 End If If x 0 Then x0时计算y y = x ^ 2 - 1 End If Print x=; x, y=; y 问题2：在两个数中求最大数。 语法结构： If 条件 Then 语句组1 Else 语句组2 End If 或 If 表达式 Then 语句1 Else 语句2 问题1：输入x的值，计算如下函数对应的y值。 分析：本题中条件可为： x≥0 （1）当“x≥0”成立时， y=x^2+1 （2）当“x0” 成立时， y=x^2-1 问题2：在两个数中求最大数。 问题3： 输入x的值，计算如下函数对应的y值。 分析：本题中条件可看作： x≥0和x0两种情况 （1）当“x0” 时， y=x^2-1 （2）当“x≥0”时，再进一步判断： 1若“x0”，则：y=x^2+1； 否则： y=0 结构嵌套 关于行格式： 格式 If 条件 Then [语句组1] [Else 语句组2] 注意 条件和语句序列应在一行内写完；语句组1和语句组2不得同时省略。 用行If结构的前提是“语句组1和语句组2要特别简短”,如果语句组较复杂，结构会不清晰。 行If结构没有EndIf。 3. 多分支结构（IF…Then…ElseIf语句） 语法格式 If 条件1 Then 语句组1 ElseIf 条件2 Then 语句组2 …… ElseIf 条件n Then 语句组n [Else 语句组n+1] End If 注意： ElseIf不能写成Else If； 当多分支中有多个表达式同时满足时，仅执行第一个满足条件的语句组。 问题1： 输入x的值，计算y的值。 分析：本题包含3个条件： （1）当条件为“x0”时； （2）当条件为“x=0”时； （3）当条件为“x=0”时。 实现：多分支结构 4.2 有关函数 1、IIf函数 （1）格式： IIf（条件，T语句，F语句） （2）说明： 当条件成立时，该函数返回表达式1的值，否则返回表达式2的值。 2、Choose函数 （1）格式：Choose（整数表达式，选项列表） （2）说明 根据整数表达式的值，决定函数返回选项列表中的某个值。如果整数表达式的值是1，则返回选项列表中的第一个选项值，如果是2，则返回第二个选项值，依此类推。 若整数表达式的值小于1或大于列出的选项数时，函数返回空值（Null）。 3、MsgBox函数 （1）格式如下： 变量=MsgBox(提示[，按钮][，标题]) （2）说明 变量 用于指定接收函数的返回值。MsgBox函数的返回值是一个整数，因此变量一般为整型变量。 提示与标题 意义同InputBox函数。 按钮 整型表达式，决定消息框中按钮的数目、类型及出现在消息框上的图标类型。 （3）VB中对不需要返回值的MsgBox函数调用格式如下： MsgBox 提示[，按钮][，标题] 4.3 Select Case结构 语句格式： Select Case 单一变量或表达式 Case 预设值1 语句组1 Case 预设值2 语句组2 …… Case 预设值n 语句组n Case Else 语句组n+1 End Select 注意： (1) 变量或表达式 可以是单一数值型或字符串表达式； (2) 表达式列表 与变量或表达式的类型必须相同，可以是下面4种形式之一，除了这4种情况，不能用Select Case结构： ① 表达式 如：Case 8 表示当变量或表达式值等于8时执行对应的语句组；