第3章 分支和循环

第3章 分支和循环 章
3.1运算符与表达式 3.2 If—Then分支语句 3.3 If—Then—Else分支语句 3.4 Select Case多分支语句 3.5 For—Next 循环结构 3.6 Do—Loop循环结构 3.7 While-Wend循环结构 3.8循环的嵌套 3.9 Stop语句
第3章 分支和循环
3.2 If—Then分支语句 If—Then分支语句
[例3.9]编写程序，从键盘任意输入一个整数，计算该数的绝对值， 然后输出。 题目分析：该题需要进行单分支选择。当输入的数是负数时，需要 计算它的相反数，否则不进行任何计算。最后输出绝对值。该题的 流程图如图3-2所示。 此题可以通过If—Then语句来解决，根据流程图可以设计一个窗体 From1的单击事件Click()来运行程序，代码如下： Private Sub Form_Click() Dim x As Single, y As Single x=InputBox(“请输入x的值”) y=x If x<0 Then y=-y Print “x=”, x Print “y=”,y End Sub 该题的运行结果如图3-1所示。
第3章 分支和循环
3.3 If—Then—Else分支语句 If—Then—Else分支语句 [例3.11]编写程序，计算某数学函数f(x),已知：f(x)=x3+2x2+3x+1，该 例 函数定义在区间［-2,1］上，也就是说若x的取值大于1或小于－2 则提示该函数无意义，否则计算函数值并输出。 此题可以通过If—Then—Else语句的格式2来解决，设计一个命令按钮 Command1的单击事件Click()来运行程序，代码如下： Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x >= -2 And x <= 1 Then y = x * x * x + 2 * x * x + 3 * x + 1 Text2.Text = y Else Text2.Text = "函数无意义" End If End Sub
第3章 分支和循环
3.3 If—Then—Else分支语句 If—Then—Else分支语句
[例3.11]编写程序，计算某数学函数f(x),已知： 3.11] f(x)=x3+2x2+3x+1，该函数定义在区间［-2,1］上，也就是说若x 的取值大于1或小于－2则提示该函数无意义，否则计算函数值并输 出。 题目分析： 该题的首要任务是判断x的值是否在区间［-2,1］，若是则计算函 数值，否则提示无意义，这是一个两分支选择。表达式x>1 or x<2 和x<=1 and x>=-2都可以作为条件使用，但我们的重点是求函数 值，当表达式x<=1 and x>=-2的值为“真”时x刚好在区间［-2,1］ 内，所以我们选用表达式x<=1 and x>=-2作为条件进行程序设计。 此题可以通过If—Then—Else语句的格式2来解决，设计一个命令 按钮Command1的单击事件Click()来运行程序，代码如下：
第3章 分支和循环
3.2 If—Then分支语句 If—Then分支语句
[例3.9]编写程序，从键盘任意输入一个整数，计算该数的绝对值， 然后输出。 该题的运行结果如图3-1所示。
图3-1 执行结果
第3章 分支和循环
3.3 If—Then—Else分支语句 If—Then—Else分支语句
If—Then—Else语句的格式 If—Then—Else语句的格式 格式1： If <条件> Then <语句1> Else <语句2> <条件 条件> <语句 语句1> <语句 语句2> 格式2： If <条件> Then <条件 条件> 语句块1> <语句块1> Else 语句块2> <语句块2> End If If—Then—Else语句的功能是当“条件”为“真”时，选择要执行 的一条或多条语句，否则选择另外的一条或多条语句执行。 If—Then—Else语句的执行过程： (1)对于格式1，首先计算“条件”的值，若“条件”成立(为 “真”)，则执行语句1，然后执行下一行的语句，否则执行语句2， 然后再执行下一行的语句。 (2)对于格式2，首先计算“条件”的值，若“条件”成立(为 “真”)，则执行语句块1，然后执行End If下边的语句，否则执行 语句块2，然后再执行End If下边的语句。
第3章 分支和循环
3.1 运算符与表达式 1 关系运算符和关系表达式 字符串数据按ASCII ASCII码 字符串数据按ASCII码、按字典顺序对各字符逐一进行比较 。只 有当两个字符串完全相同时，这两个字符串才完全相等。 有当两个字符串完全相同时，这两个字符串才完全相等。汉字字符 大于西文字符。 大于西文字符。 [例3.2] 结果为Ture( Ture(“ABCDE“<>”ABEFY” 结果为Ture(-1) 结果为False(0) “asssdd”=“asseee” 结果为False(0) 结果为Ture( Ture(“ABC123”=“ABC123” 结果为Ture(-1) 对单精度数或双精度数进行关系运算时，必须特别小心， 对单精度数或双精度数进行关系运算时，必须特别小心，因为机器 的运算误差，可能会得出非常接近但不相等的结果。例如： 的运算误差，可能会得出非常接近但不相等的结果。例如： 1.0/3.0 * 3.0=1.0
图3-3 运行结果
例:输入1,判断输出星期日;输入2输出星期一; 输入1,判断输出星期日;输入2输出星期一; 依次类推若输入6,则输出5;若输入其他数字 依次类推若输入6,则输出5;若输入其他数字 则为星期六
第3章 分支和循环
3.4 Select Case多分支语句 Case多分支语句
第3章 分支和循环
3.1 运算符与表达式
2 逻辑运算符和逻辑表达式 逻辑运算又称为布尔运算。逻辑运算符的左右操作数要求为逻辑值。 用逻辑运算符连接两个或多个逻辑量组成的式子称为逻辑表达式或 布尔表达式。Visual Basic中的逻辑运算符有以下6种： Not(非 Not(非) “取反”运算。即由“真”变为“假”或由“假”变为“真”。 Ture 取反变成False，False 取反变成Ture。 [例3.4] 3>8 其值为False，而 Not(3>8)的值为Ture。 (与 And (与) 只有左右操作数的值都为Ture时，运算结果才为Ture ，否则 结果为False。操作数通常为关系表达式。 [例3.5] (3>8) And (5<9) 结果为False 3<8 And 1+2=3 结果为Ture 5>3 And 8<3 结果为False a<>b And False 不管a，b为何值，结果恒为False
1 关系运算符和关系表达式 关系运算也称为比较运算，用来比较两个操作数的大小，通常用在 程序的条件判断中。由操作数和关系运算符组成的表达式称为关系 表达式，关系表达式的运算结果是一个逻辑值，即“真”和“假”， 逻辑值也可以用符号常量Ture和False表示。另外，Visual Basic 把任何非零的值都认为是逻辑值“真”，但一般以-1表示逻辑值 “真”，以0表示逻辑值“假”。
第3章 分支和循环
3.1 运算符与表达式
2 逻辑运算符和逻辑表达式
Or(或 Or(或) 只有两个操作数都为False时，运算结果才为False。如果左右 操作数其中一个为Ture，结果为Ture。 [例3.6] 3>8 Or 5<6 结果为Ture 4<9 Or 1=2 结果为Ture 5<4 Or 3<>3 结果为False Ture Or x=y 不管x ，y为何值， 结果恒为Ture Xor(异或 异或) Xor(异或) 当左右操作数相等，即都是Ture或者都是False时，运算结果 为False，否则结果为Ture。 [例3.7] 8>3 Xor 5<6 结果为False 5>2 Xor 8<3 结果为Ture 5>2 Xor Ture 结果为False
第3章 分支和循环
3.1 运算符与表达式
2 逻辑运算符和逻辑表达式
Eqv(等价) Eqv(等价) 等价 当左右操作数相等，即都是Ture或者都是False时，运算结果为Ture， 否则结果为False。 [例3.8] 3>8 Eqv 12<22 结果为Ture 5>2 Eqv 8<3 结果为False 5>2 Eqv Ture 结果为Ture Imp(蕴含 蕴含) Imp(蕴含) 当左操作数为Ture ，右操作数为False时，运算结果为False，其它三 种情况均为Ture。 例如： 5>2 Imp 7<3 结果为 False 5>2 Imp Ture 结果为 Ture 在进行逻辑运算时要注意各个逻辑运算符的优先级，逻辑运算符的优先级 由高到低为： Not → And → Or → Xor → Eqv → Imp
第3章 分支和循环
3.3 If—Then—Else分支语句 If—Then—Else分支语句
[例3.11]编写程序，计算某数学函数f(x),已知： 3.11] f(x)=x3+2x2+3x+1，该函数定义在区间［-2,1］上，也就是说若x 的取值大于1或小于－2则提示该函数无意义，否则计算函数值并输 出。 该题的运行式
1 关系运算符和关系表达式 关系运算符用来表示两个或多个值或表达式这间的关系，一般使用 语法为： exp1 op exp2 其中exp1、exp2是两个表达式，op是关系运算符。表达式通过比较 运算符进行运算后，结果为Ture或False。 [例3.1]求下列关系表达式的值。 例 x+2=10 当x=8时，表达式的结果为Ture(-1)，否则为False(0) 100<50 结果为False(0) “a”>”A” 结果为Ture(-1)