第一讲 选择结构程序设计

[例]已知变量s中存放了一个字符，判断该字符是字母 字符、数字字符还是其他字符。
用多分支结构实现:
If Ucase(s) >=" A" And Ucase (s) <=" Z" Then Print s + "是字母字符" ElseIf s >=" 0" And s <=" 9" Then Print s + "是数字字符" Else Print s + "其他字符" End If
格式2： If <表达式> Then <语句1> Else <语句2>
语句块函数.
2 sin x x 1 y 3 cos x x 3x
x0 x0
双分支结构实现: If x<>0 Then y=sin(x)+sqr(x*x+1) Else y=cos(x)－x^3+3*x End If
[例] 已知百分制成绩mark，显示对应的五级制成绩 哪些正确，哪些错误？
方法一 方法二 If mark >= 90 Then If mark < 60 Then Print "优" Print "不及格" ElseIf mark >= 80 Then ElseIf mark < 70 Then Print "良" Print "及格" ElseIf mark >= 70 Then ElseIf mark < 80 Then Print "中" Print "中" ElseIf mark >= 60 Then ElseIf mark < 90 Then Print "及格" Print "良" Else Else Print "不及格" Print "优" End If End If 方法三 If mark >= 60 Then Print "及格" ElseIf mark >= 70 Then Print "中" ElseIf mark >= 80 Then Print "良" ElseIf mark >= 90 Then Print "优" Else Print "不及格" End If
任务一 随机产生“＋ － × ÷”运 算符
Op= Choose（Nop，"+"，"-"，"×"，"÷"）
当Nop是1-4的非整数，系统自动取Nop的整数办法 在判断； 若Nop不在1-4之间，函数返回Null值。
（3） Switch函数形式是：
Switch（条件表达式1，条件表达式1为True时的值 [，条件表达式2，条件表达式2为True时的值……]）
[实例3.3]
建立如图所示的窗体界面。在窗体左边的文本框（txtinput）中输入字符串，字 符串以“*”为结束标志；右边的三个文本框(txtletter、txtdigital、txtother)中 分别显示字母字符、数字字符和其他符号字符的个数。
[例]已知x,y,z三个数，使得x>y>z。 用一个IF语句和一个嵌套的IF语句实现：
[实例3.2]
在窗体所示的第一个文本框（txtin）中输入字符串，当输入字符句号“.”时表示 输入结束，第二个文本框（txtcount）动态统计字符串中字符的个数（不可以 用求字符串长度的函数）。
任务一：计算三角形面积
课后作业1
课后作业2
征兵的条件是：男性(sex) ， 年龄(age) 在18~20 岁之间，身高(size) 在1.65 米以上；或者女性(sex) ， 年龄(age) 在 16~18 岁之间，身高(size) 在1.60 米以上
常见错误
1．在选择结构中缺少配对的结束语句 对多行式的If块语句中，应有配对的 End If语句结束。 2. 多边选择ElseIf关键字的书写和条件表达式的表示 ElseIf 不要写成Else If； 多个条件表达式次序问题, 3. Select Case语句的使用
Select Case 后不能出现多个变量；Case子句后不能 出现变量
窗体级变量

事件过程中的内部变量：
在过程内定义的变量，只在本过程中有效； 每次执行，该变量都被重新赋值

窗体级变量
在窗体代码的通用－声明中定义，在该窗体的所有事件过程中都有效； 整个运行过程中，该变量都有效

全局变量
在模块中定义，在整个过程中都有效； 整个运行过程中，该变量都有效
Not F Not T
T And T T And F T Or F F Or F F Xor T T Xor T T Eqv F F Eqv F T Imp F
T F
T F T F T F F T F
说明
(1)逻辑表达式的优先级顺序是： 算术运算或字符串运算>关系运算>逻辑运算。括号优 先，同级运算从左到右执行
Choose（数字类型变量，值为1的返回值，值为2的返回值……）
[例如:语句color1=choose(numc,”红”,”黄”,”蓝”,”绿”)
的含义为变量numc的取值1~4，变量color1的值依次为” 红”、”黄”、”蓝”、”绿”。
与该语句等价的select case 语句为： Select case numc Case 1 Color1=”红” Case 2 Color1=”黄” Case 3 Color1=”蓝” Case 4 Color1=”绿” End select
x
t
y


或 If x<y Then t=x: x=y: y=t
图 1-3-8 两个数交换 过程
[实例3.1]
制作简单的逻辑运算符与表达式示例器，其功能 是输入逻辑表达式，输出运算结果及其说明。
1.2、If语句
2. If…Then…Else语句(双分支结构)
T
表达式
F
格式1： If <表达式> Then <语句块1> Else <语句块2> End If
1.2、If语句
3. If…Then…ElseIf语句(多分支结构) 格式：If <表达式1> Then F <语句块1> 表达式 1 ElseIf <表达式2>Then F „ 表达式 2 <语句块2> T … F 表 达 式n T [Else 语句块 n+1 ] T End If 语句块 1 语句块 n 语句块n+1 语句块 2 不管有几个分支,依次判断，当某条件满足，执行相应的语句块，其余分支不 再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不 执行。. 图 1-3-10 多分支结构 ElseIf不能写成 Else If。
Visual Basic 程序设计
ch3第一讲 选择结构程序设计
结构化程序的基本结构
程序结构清晰，可读性好，也易于查错和修改 具有单入口，单出口的特点
A
真 E A
假
E B 真 L
假
B
(a) 顺序结构
(b) 选择结构
(c) 循环结构
1.1、逻辑运算及表达式
运算符 运算结果说明 举例 结果
Not
And Or Xor Eqv Imp
1.2、If语句
1. If…Then语句(单分支结构) 格式1：If <表达式> Then 语句块 End If 格式2：If <表达式> Then <语句>
图 1-3-7 单分支结构 表达式
F
T
语句块
[例]已知两个数x和y，比较它们的大小，使得x大于y.
If x<y Then t=x x=y y=t End If
操作数为False时结果为True；操作数 为True是结果为False
两个操作数均为True结果才为True， 否则为False。 两个操作数中有一个为True，结果就 为True，否则为False。 两个操作数一个为True，另一个为 False，结果为True，否则为False。 两个操作数相同时, 结果才为True 第一个操作数为真，第二个为假，结 果为假，否则为真。
(2)按Not、And、Or的优先次序进行
示例：3<>2 And Not 4<6 Or "12" ＝ "123"
Not运算>And运算后进>Or运算 则有：真And假Or假，，结果为假(False)
[例] 判断一个字符ch是否是字母的表达式为：
ch>=”a” and ch<=”z” or ch>=”A” and ch<=”Z”
<表达式列表>可以是下面四种形式之一：
表达式 例: “A” 一组枚举表达式(用逗号分隔) 2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is < 60
例 输入百分制成绩mark，显示对应的五级制成绩
方法一 Select Case mark Case mark >= 90 Print "优" Case mark >= 80 Print "良" Case mark >= 70 Print "中" Case mark >= 60 Print "及格" Case Else Print "不及格" End Select 方法二 Select Case mark Case Is >= 90 Print "优" Case Is >= 80 Print "良" Case Is >= 70 Print "中" Case Is >= 60 Print "及格" Case Else Print "不及格" End Select 方法三 Select Case mark Case Is >= 90 Print "优" Case 80 To 89 Print "良" Case 70 To 79 Print "中" Case 60 To 69 Print "及格" Case Else Print "不及格" End Select