第5章选择结构程序设计解析优秀PPT.ppt

《第5章选择结构程序设计解析优秀PPT.ppt》由会员分享，可在线阅读，更多相关《第5章选择结构程序设计解析优秀PPT.ppt（27页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第第第5 5章章章章选择结构程序设计选择结构程序设计选择结构程序设计选择结构程序设计 选择结构是一种常用的基本结构，是选择结构是一种常用的基本结构，是计算机科学用来描述自然界和社会生活计算机科学用来描述自然界和社会生活中分支现象的重要手段。其特点是：依中分支现象的重要手段。其特点是：依据所给定的条件为真（即条件成立）与据所给定的条件为真（即条件成立）与否，而确定从各实际可能的不同分支中否，而确定从各实际可能的不同分支中执行某一分支的相应操作，并且任何状执行某一分支的相应操作，并且任何状况下总有：况下总有：“无论分支多寡，必择其一；无论分支多寡，必择其一；纵然分支众多，仅选其一纵然分支众多，仅

2、选其一”的特性。的特性。第第5章章 选择结构程序设计选择结构程序设计条件表达式条件表达式1 1 1 1简洁条件选择结构的程序设计简洁条件选择结构的程序设计 2 2 2 2多分支条件选择结构的程序设计多分支条件选择结构的程序设计3 3 3 3计时器控件计时器控件Timer Timer 4 4 4 4单选钮控件单选钮控件OptionButton OptionButton 5 5 5 5复选框控件复选框控件CheckBox CheckBox 6 6 6 65.1 条件表达式条件表达式5.1.1 关系表达式 表达式表达式1关系运算符关系运算符表达式表达式2关系运关系运算符算符表达式表达式3 （1）3

3、6，值为，值为True （2）8 2，值为，值为True （4）2=3，值为，值为False （5）2=3，值为，值为False （6）a b，值为，值为True （7）3*4 0)，值为：，值为：False （2）Not(a a)，值为：，值为：True （3）2 3 And 1 3 Or 1 1+4 And Not 6 5 And Not 6 8 关系运算：关系运算：False And Not True 非运算：非运算：False And False 结果：结果：False 优先顺序优先顺序运算符类型运算符类型运运 算算 符符运算符类型运算符类型运运 算算 符符1算术运算符（指数）字符串运

4、算符&（字符串连接）2（负数）3*、/（乘法和除法）4（整除）5Mod（求模）6+、（加法和减法）7关系运算符=、=8布尔运算符Not9And10Or返回目录5.2 简洁条件选择结构的程序设计5.2.1 单行结构条件语句 If条件条件Then 语句组语句组1 Else语句组语句组2Private Sub Command1_Click()Dim x As Integer x=Val(Text1.Text)If x Mod 2=0 Then Label2.Caption=偶数 Else Label2.Caption=奇数End SubPrivate Sub Command2_Click()Text

5、1.Text=End SubPrivate Sub Command3_Click()Unload MeEnd Sub5.2.2 多行结构条件语句If条件条件Then 语句组语句组1Else 语句组语句组2End IfPrivate Sub Command1_Click()Private Sub Command1_Click()Dim x As Single,y As Single Dim x As Single,y As Single x=Val(Text1.Text)x=Val(Text1.Text)y=Val(Text2.Text)y=Val(Text2.Text)If x y Then

6、If x y Then t=x :x=y :y=t t=x :x=y :y=t End IfEnd If Label3.Caption=Label3.Caption=较大数为较大数为&Str(x)&Str(x)End SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click()Dim x As Single,y As Single Dim x As Single,y As Single x=Val(Text1.Text)x=Val(Text1.Text)y=Val(Text2.Text)y=Val(Text2.Text)I

7、f x y Then If x y Then Label3.Caption=Label3.Caption=较大数为较大数为&Str(y)&Str(y)Else Else Label3.Caption=Label3.Caption=较大数为较大数为&Str(x)&Str(x)End If End IfEnd SubEnd Sub5.2.3 If语句的嵌套 If语句的嵌套是指语句的嵌套是指If或或Else后面的语句块后面的语句块中又包含中又包含If语句。语句形式如下：语句。语句形式如下：If条件条件1Then If条件条件2Then End If End If 铁路托运行李，从甲地到乙地，规定每张

8、铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过客票托运费计算方法是：行李重量不超过50千克时，每千克千克时，每千克0.25元；超过元；超过50千克而不超千克而不超过过100千克时，其超过部分每千克千克时，其超过部分每千克0.35元；超元；超过过100千克时，其超过部分每千克千克时，其超过部分每千克0.45元。编元。编写程序，输入行李重量，计算并输出托运的费写程序，输入行李重量，计算并输出托运的费用。用。Private Sub Command1_Click()Dim w As Single,x As Single w=Val(Text1.Text)If w=50 The

9、n x=0.25*w Else If w=100 Then x=0.25*50+0.35*(w-50)Else x=0.25*50+0.35*50+0.45*(w-100)End If End If Text2.Text=xEnd Sub5.2.4 If语句的嵌套格式ElseIfIf条件条件1Then 语句组语句组1ElseIf条件条件2Then 语句组语句组2.Else 语句组语句组n+1End If某百货公司为了促销，接受购物打折扣的实惠方法，即每位顾客一次购物：某百货公司为了促销，接受购物打折扣的实惠方法，即每位顾客一次购物：(1)在在1000元以上元以上2000元以下者，按九五折实惠；

10、元以下者，按九五折实惠；(2)在在2000元以上元以上3000元以下者，按九折实惠；元以下者，按九折实惠；(3)在在3000元以上元以上5000元以下者，按八五折实惠；元以下者，按八五折实惠；(4)在在5000元以上者，按八折实惠。元以上者，按八折实惠。Private Sub Command1_Click()Dim x As Single,y As Single x=Val(Text1.Text)If x 1000 Then y=x ElseIf x 2000 Then y=0.95*x ElseIf x 3000 Then y=0.9*x ElseIf x 5000 Then y=0.85*

11、x Else y=0.8*x End If Text2.Text=yEnd Sub返回目录5.3 多分支条件选择结构的程序设计Select Case测试条件测试条件 Case表达式表表达式表1 语句组语句组1 Case表达式表表达式表2 语句组语句组2 .Case Else 语句组语句组n+1End Select为某航空公司设计程序，依据月份和订票张数确定票价的实惠率。假设实为某航空公司设计程序，依据月份和订票张数确定票价的实惠率。假设实惠规定如下：惠规定如下：(1)在旅游的旺季在旅游的旺季79月份，假如订票数超过月份，假如订票数超过20张，票价实惠张，票价实惠15%，20张以下，实惠张以下，

12、实惠5%；(2)在旅游的淡季在旅游的淡季15月份、月份、10月份、月份、11月份，假如订票数超过月份，假如订票数超过20张，张，票价实惠票价实惠30%，20张以下，实惠张以下，实惠20%；(3)其他状况一律实惠其他状况一律实惠10%。Private Sub Command1_Click()Dim m As Integer,n As Integer,r As Integer m=Val(Text1.Text)n=Val(Text2.Text)Select Case m Case Is=5,10,11 If n 20 Then r=20 Else r=30 Case 7 To 9 If n 0 T

13、hen Label1.Move Label1.Left 20 Else Label1.Left=Form1.ScaleWidth End IfEnd SubPrivate Sub Option1_Click()Label1.FontName=宋体宋体End SubPrivate Sub Option2_Click()Label1.FontName=隶书隶书End SubPrivate Sub Option3_Click()Label1.FontName=黑体黑体End SubPrivate Sub Option4_Click()Label1.FontName=楷体楷体_GB2312End Su

14、b返回目录5.6 复选框控件CheckBox用复选框限制文本输入是否加上用复选框限制文本输入是否加上“下划线下划线”和和“斜体显示斜体显示”。Private Sub Text1_Change()If Check1.Value=1 Then Text1.FontUnderline=True ElseIf Check2.Value=1 Then Text1.FontItalic=True End IfEnd SubPrivate Sub Check1_Click()If Check1.Value=1 Then Text1.FontUnderline=True Else Text1.FontUnderline=False End IfEnd SubPrivate Sub Check2_Click()If Check2.Value=1 Then Text1.FontItalic=True Else Text1.FontItalic=False End IfEnd Sub 返回目录本章结束本章结束返回目录