《程序流程有三种最基本的控制结构,即顺序结构、选择结构和.ppt》由会员分享，可在线阅读，更多相关《程序流程有三种最基本的控制结构,即顺序结构、选择结构和.ppt（42页珍藏版）》请在三一文库上搜索。
1、第 4 章,选择结构设计,程序流程有三种最基本的控制结构，即顺序结构、选择结构和循环结构。 在一个过程中，程序通常是按照由上而下的顺序来执行各个语句的，直到整个过程结束。引入选择结构和循环结构，可以改变程序执行的流程。,选择程序结构用于判断给定的条件，根据判断的结果来控制程序的流程,本章主要内容,条件表达式 关系表达式 / 逻辑表达式,条件语句 If.Then / If.Then.Else 条件语句的嵌套,多分支语句 select case,选择性控件 单选按钮 / 复选框 列表框/组合框,计时器控件,程序举例,关系运算符,符号： 大于 =大于或等于 不等于 适用的类型和结果类型： 关系运算符
2、适用于数值型、字符型、日期型和逻辑型 数据，结果只能为逻辑型（真值True和假值False） 运算符两侧必须是同类型的量或表达式 若不是，系统会自动进行强制类型转换 “5”4 0(10) 若判断的结论是成立，则结果为逻辑真值(True)， 否则为逻辑假值(False) True的值等于-1，False的值等于0,关系运算符,关系表达式,运算次序：先分别求出运算符两侧表达式的值， 然后再将二者进行比较 其中：数值型数据按照数值大小比较 2+36 3=0 523 字符型数据按照字符的ASCII码值大小比较 “1”“2” “a” “a” 日期型数据按照前后顺序比较 #01/01/2003# # 12
3、/31/2002#,关系表达式的格式： ,关系表达式练习,数值型数据按照数值大小比较 字符型数据按照字符的ASCII码值大小比较 日期型数据按照前后顺序比较, ？2/33/4 ?“a” “b” ?3=5 ?True=-1 ?#01/12/91#=#02/01/91# ? “abc”= “abb” ? “ab”= “我们” ？“123”“99” ？“你们”“我们”,False False True True True False True False False,布尔运算符,符号： NOT (逻辑非) AND (逻辑与) 即：并且，要同时成立 OR (逻辑或) 即：或者，只要有一个成立 适用的类
4、型和结果类型： 只适用于逻辑型数据，运算结果是逻辑值 规则： 非运算的规则是：直接求反即可 与运算的规则是：只有二者全为真时结果为真，否则为假 或运算的规则是：只有二者全为假时结果为假，否则为真,布尔表达式练习,？“a”“b” AND 12 False ？“a”“b” OR 111 False ?233 AND 510 False 表示一个数是偶数 x Mod 2=0 或 int(x/2)=x/2 表示一个数X能被3或5或7整除 x Mod 3=0 OR x Mod 5=0 OR x Mod 7=0 表示身高不在1.65米以上或不是女生 身高1.65OR性别“女” NOT（身高1.65AND性
5、别“女”）,布尔表达式练习,？321 False a=3:b=4:c=5 ?a=b=c False 表示一个数x是能被3整除的奇数 x Mod 3=0 and x Mod 20 x Mod 2=1 and x Mod 20 表示一个数x2,5 x2 and x5 表示一个数x不在2,5区间内 x2 or x5,运算符的优先顺序,算术运算符 字符串运算符： 关系运算符：、 布尔运算符：Not And Or,运算符的优先顺序练习,设变量x=4，y=-1，a=7.5，b=-6.2，求表达式 x+ya+b And Not y0 ) OR (y Mod 400=0 AND y Mod 100=0 ) (
6、y Mod 4=0 AND y Mod 1000 ) OR y Mod 400=0,判断闰年的科学依据,地球公转一周的时间为：365天5小时48分56秒 每经过4年，剩余的时间为：5小时48分56秒423小时15分44秒 则每4年都要多加24小时 23小时15分44秒44分16秒 每经过100年，就会多加44分16秒2518小时26分40秒 比较接近一天，所以每到100年，就将这多加的近似一天的时间减去， 即停止追加一天 而实际上又少加了24小时 18小时26分40秒5小时33分20秒 每经过400年，就会少加4 5小时33分20秒24小时 所以每过400年，就应该再补加一天 故：每4年闰年出
7、现一次；每400年，闰年再出现一次 其它的整100年，闰年停止出现一次,选择控制结构,选择控制结构又称分支结构 它体现了程序运行过程中的自我判断能力 程序可以根据当前执行的某个条件，进行比较、判断，并依据判断的结果（成立与否）来决定下一步做什么，不做什么（在两条或多条程序路径中选择一条来执行，即只执行程序中的一部分语句） 可见，在此结构的程序运行过程中，有些语句会执行一次，有些语句在此次程序运行过程中没有机会执行。即：“无论分支多寡，必选其一；纵然分支众多，仅选其一” VB中的选择语句有： 双分支语句 多分支语句(Select Case),单行(IF-THEN-ELSE),块结构(IF-THE
8、N-ELSE-END IF),选择结构(IF-THEN),语句格式： IF THEN ,N,语句序列,下一语句,Y,执行过程： 判断给定的条件 如果成立(其值为True),执行所给语句序列，然后执行下一条语句 否则(其值为False)，跳过所给语句序列，直接执行下一条语句 示例： 输入一个数，如果是正数，就输出 x=Val(Text1.text) If x0 Then Label1.Caption=x,问题：如果不是正数，应该显示“不是正数”,语句格式： IF THEN ELSE ,执行过程： 判断给定的条件 如果成立(其值为True),执行所给语句序列1，然后执行下一条语句 否则(其值为Fa
9、lse)，执行所给语句序列2，然后执行下一条语句,选择结构(IF-THEN-ELSE),命令序列1,命令序列2,下一语句,N,Y,(IF-THEN-ELSE)举例,例二：根据用户输入的一个成绩，判断是否及格,Dim x As Single X=Val(InputBox(请输入一个成绩：,输入,0) IF X=60 THEN Label1.Caption=“及格” Else Label1.Caption=“不及格” 使用IIF函数，也可以实现相应的判断 格式：IIF(条件，条件为真时的值，条件为假时的值),例一：输入一个数，如果是正数，就输出；否则显示非正数 Dim x As Single x=
10、Val(Text1.text) If x0 Then Label1.Caption=x Else Label1.Caption= “非正数,IIF函数的使用,Dim x As Single x=Val(Text1.text) If x0 Then Label1.Caption=x Else Label1.Caption= “非正数” Label1.Caption=IIf(x0,x,“非正数”) Dim x As Single X=Val(InputBox(请输入一个成绩：,输入,0) IF X=60 THEN Label1.Caption=“及格” Else Label1.Caption=“不
11、及格” Label1.Caption=IIf(x=60,“及格”,“不及格”),语句格式： IF THEN ELSE END IF,执行过程： 判断给定的条件 如果成立(其值为True),执行所给y语句序列1，然后执行下一条语句 否则(其值为False)，执行所给语句序列2，然后执行下一条语句,块结构(IF-THEN-ELSE-END IF),命令序列1,命令序列2,下一语句,N,Y,(IF-THEN-ELSE-END IF)举例,示例：根据用户输入的一个成绩，判断是否及格,Dim x As Single x=Val(InputBox(请输入一个成绩:, 输入, 0) If x = 60 Th
12、en Label1.Caption = 及格 Else Label1.Caption = 不及格 End If,(IF-THEN-ELSE-END IF)举例,示例：输入ABC的值，判断能否构成三角形，如果能，计算三角形的面积,Dim a As Single, b As Single, c As Single a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text) s=(a + b + c) / 2 If a+bc And c0 And a+cb And b0 And b+ca And a0 Then area = Sqr(s * (s -
13、a) * (s - b) * (s - c) Label1.Caption=能构成三角形,选择一个选项按钮会立即清除该组中的其它按钮;每次只能选一个选项而且必须选择一个选项（问题：在窗体上的是一组？在一个框架内的是一组？） 常用属性： Caption属性： 单选按钮旁边的标题文字 value属性：表示该按钮是否被选中。选中为True,否则为False Alignment属性：单选按钮标题 的对齐方式 Style属性：表示控件的外观（标准格式或图形方式） 可以将选项按钮设计成图形按钮的形式，将Style改为1-Graphical(图形方式)，再依次修改其Caption属性 单选按钮使用最多的是c
14、lick事件,单选按钮程序示例,Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Option2_Click() Text1.FontName = 幼圆 End Sub Private Sub Option3_Click() Text1.FontName = 楷体_GB2312 End Sub,提供简单选择的控件,复选框（CheckBox）控件：根据需要进行多项选择 可以只选一个，也可全选，还可全不选 当某一个复选框被选中时，复选框中出现一个“” 常用属性： Caption属性：复选框旁边的标题文字 valu
15、e属性：表示该按钮是否被选中。 0默认设置，未选中状态1选中状态2禁止状态，不可用 Alignment属性：复选框旁边的标题文字的对齐方式 Style属性：表示控件的外观（标准格式或图形方式） 复选框按钮使用最多的是click事件，在事件中需要对其Value属性值做判断，从而根据用户的选中状态决定程序如何执行,复选按钮程序示例,Private Sub Check1_Click() If Check1.Value = 1 Then 判复选框1是否选中 Text1.FontName = 楷体_GB2312 Else Text1.FontName = 宋体 End If End Sub Privat
16、e Sub Check2_Click() If Check2.Value = 1 Then 判复选框2是否选中 Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub,Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontSize = 25 Else Text1.FontSize = 9 End If End Sub Private Sub Check4_Click() If Check4.Value = 1 Then Text1.ForeColor = RGB(255, 0, 0) Else Text1.ForeColor = RGB(0, 0, 0) End If End Sub,