文档介绍：第4 章选择结构程序设计算法与流程: 选择结构程序设计的的概念 Visual Basic 过程能够测试条件式,然后根据测试结果执行不同的操作。 Visual Basic 支持的判定结构有: ? If...Then ? If...Then...Else ? Select Case 条件表达式条件表达式——作为判断依据的表达式,取值为布尔值:True 和False 。程序中作为条件表达式的可以是:数值表达式、关系表达式和逻辑表达式。 4 . 关系运算符与关系表达式表示相等、不等、大于、小于的运算符称为关系运算符或比较运算符,用关系运算符把两个表达式连接起来就构成关系表达式。◆关系运算符的两侧可以是数值表达式、字符型表达式或日期型表达式,也可以是常量、变量或函数。◆正确编译的条件是: 关系运算符两侧表达式的数据类型相同。◆先计算各表达式的值, 然后进行关系比较,若关系成立,则返回 True(-1), 否则返回 False(0). VB提供的关系运算符有:<小于<=小于或等于>大于>=大于或等于=等于<>不等于⑴如果比较的两个操作数是数值型,则按其大小比较. ⑵如果比较的两个操作数是字符型, 则按字符的 ASCII 码值从左到右一一比较, 一旦出现不同的字符便停止比较,此时,字符的 ASCII 码值大的串较大. 一般有: “空格”<”0”<…<”9”<”A”<…<”Z”<”a”<…<”z”<”汉字”⑶各关系运算符的优先级相同. ⑷日期型数据将日期看成”yyyymmdd ”的8位整数,按数值的大小比较. ⑸带小数点的单精度数的双精度数不能进行相等比较, (P66-) Private mand1_Click() a=""b= "0" c= "A" d= "a" e="中" Print a< b,a>b Print b<c,b>c Print c< d,c>d Print d< e,d>e End Sub (布尔)运算符与逻辑(布尔)表达式 Not 非运算符,单目运算符,当操作数为假时,结果为真 And 与运算符,两操作数均为真时结果为真 Or或运算符,两个操作数中有一个为真时,结果为真 Xor 异或运算符,两个操作数的逻辑值不同时,结果为真说明:◇如果参加逻辑运算的操作数是数值, :(P6 2 -) Private mand1_Click() Print 10 And 7;10 Or7;10 Xor 7; Not 7 End Sub 在这类运算中: And 常用来使一个二进制数的某一位或几位置 0 OR 常用来使一个二进制数的某一位或几位置 1 XOR 常用来使一个二进制数的某一位或几位取反 运算符的优先顺序运算符的做优先顺序表(P67 表4-4); 优先顺序运算符类型运算符 1算术运算符^指数运算 2-负数运算 3*,/乘除运算 4\整数除法 5Mod 求余数运算 6+,- 加减运算 7&,+字符串连接 8关系运算符=,<>,<,>,<=,>= 9布尔运算符 Not 非运算 10And 与运算 11Or,xor 或运算,异或运算说明:⑴同级运算按照它们从左到右出现的顺序进行计算. ⑵可以用括号改变优先顺序,强令表达式的某些部分优先执行. ⑶括号内的运算总是先优于括号外的运算,在括号内,运算符的优先顺序不变. 例[4-1] (P68-) 设变量 x=4,y=-1,a=,b=-, 求表达式 x+y>a+b and not y<b = ((x+y)>(a+b))and (not(y<b)) ①②①④③②例[4-2](P68-) 判断某个年份是闰年的根据是年份数满足下述条件之一: ⑴能被 4整除,但不能被 100 整除的年份都是闰年⑵能被 400 整数的年份是闰年 Private mand1_Click() Dim xAsInteger x=Val(InputBox(" 请输入一个年份:")) Ifx Mod 4=0 And x Mod 100 <>0 Orx Mod 400 =0Then MsgBox Str(x) +"是闰年" Else MsgBox Str(x) +"不是闰年" End If End Sub 单条件选择语句 IF条件成立执行操作 A条件不成员执行操作 B注意:操作 B可以为空,但A和B不能同时为空 行 IF 语句语法: If condition Then [statements][ Else elsestatements] condition ——可以是逻辑表达式、关系表达式或数值表达式,如果以数值表达式作条件,Visual