循环结构ifthen语句.pptVIP

* * * * * * * * * * * * * * * * 条件表达式中出现的是等号，否则是赋值号 赋值语句的两个常用形式：累加和计数 * 条件表达式中出现的是等号，否则是赋值号 赋值语句的两个常用形式：累加和计数 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。 ElseIf不能写成 Else If 4.2 选择结构 本章目录 * 4. If语句的嵌套 If 表达式1 Then If 表达式2 Then … End If … End If 4.2 选择结构 本章目录 If score=350 then If english=60 then Msgbox 被录取 Else: Msgbox 没被录取 End If Else Msgbox 没被录取 End If 4.2 选择结构 例4.9：输入一个考生总分数和英语分数，判断是否被录取为研究生，录取条件为：总分达到350分，英语达到60分。 * 本章目录 4.2.2 Select Case语句 * Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 表达式列表与变量或表达式的类型必须相同，是下面4种形式之一 ： 表达式 例: A 一组用逗号分隔的枚举值 2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is 60 4.2 选择结构 本章目录 * 例4.8改用 Select Case 语句实现： Select Case ch Case a To z,A To Z MsgBox( ch + 是字母字符) Case 0 To 9 MsgBox (ch +是数字字符) Case Else MsgBox( ch + 是其他字符) End Select 4.2 选择结构 本章目录 * 例4.10判断坐标点(x，y)，落在哪个象限。 代码一 If x 0 And y 0 Then MsgBox(在第一象限) ElseIf x 0 And y 0 Then MsgBox(在第二象限) ElseIf x 0 And y 0 Then MsgBox(在第三象限) ElseIf x 0 And y 0 Then MsgBox(在第四象限) End If 代码二 Select Case x,y Case x 0 And y 0 MsgBox(在第一象限) Case x 0 And y 0 MsgBox(在第二象限) Case x 0 And y 0 MsgBox(在第三象限) Case x 0 And y 0 MsgBox(在第四象限) End Select 代码二错误： 1. Select Case 后不能出现多个变量 2. Case后不能出现变量及有关运算符 4.2 选择结构 本章目录 4.2.3 条件函数 * (1) IIf函数 IIf(表达式，表达式为真时的值，表达式为假时的值) 例如，将x，y中大的数，放入Tmax变量中： Tmax = IIf(x y，x，y) 该语句与如下语句等价 ： If x y Then Tmax = x Else Tmax = y 4.2 选择结构 本章目录 4.2 选择结构 * (2) Choose函数 Choose(整数表达式，选项列表) 根据表达式的值i，返回选项列表中第i个选项。如果整数表达式的值越出选项范围时，返回Null。 例 根据nop的值，得到+、-、×、÷中的某运算符： op= Choose(nop，+，-，×，÷) Dim nop As Integer, op As Char Randomize() nop = Int(Rnd() * 4 + 1) op = Choose(nop, +, -, ×, ÷) MsgBox(no