《第5章选择结构程序设计解析.ppt》由会员分享，可在线阅读，更多相关《第5章选择结构程序设计解析.ppt（27页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第第第5 5章章章章选择结构程序设计选择结构程序设计选择结构程序设计选择结构程序设计 选择结构选择结构是一种常用的基本结构，是是一种常用的基本结构，是计算机科学用来描述自然界和社会生活计算机科学用来描述自然界和社会生活中中分支现象分支现象的重要手段。其特点是：的重要手段。其特点是：根根据所给定的条件为真（即条件成立）与据所给定的条件为真（即条件成立）与否，而决定从各实际可能的不同分支中否，而决定从各实际可能的不同分支中执行某一分支的相应操作，并且任何情执行某一分支的相应操作，并且任何情况下总有：况下总有：“无论分支多寡，必择其一；无论分支多寡，必择其一；纵然分支众多，仅选其一纵然分支众多，仅
2、选其一”的特性。的特性。第第5章章 选择结构程序设计选择结构程序设计条件表达式条件表达式1 1 1 1简单条件选择结构的程序设计简单条件选择结构的程序设计 2 2 2 2多分支条件选择结构的程序设计多分支条件选择结构的程序设计3 3 3 3计时器控件计时器控件Timer Timer 4 4 4 4单选钮控件单选钮控件OptionButtonOptionButton 5 5 5 5复选框控件复选框控件CheckBoxCheckBox 6 6 6 65.1 条件表达式条件表达式5.1.1 关系表达式 表达式表达式1关系运算符关系运算符表达式表达式2关系运关系运算符算符表达式表达式3 （1）3 6，
3、值为，值为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()Text1.
5、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 If
6、 x y Then t=x :x=y :y=t t=x :x=y :y=t End IfEnd If Label3.Caption=Label3.Caption=较大数为较大数为&Str(xStr(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)If x
7、y Then If x y Then Label3.Caption=Label3.Caption=较大数为较大数为&Str(yStr(y)Else Else Label3.Caption=Label3.Caption=较大数为较大数为&Str(xStr(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 Then x=0.25
9、*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*x Else y
11、=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张以下，优惠张以下，优惠5%；(2)
12、在旅游的淡季在旅游的淡季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 Then Labe
13、l1.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 Sub返回目录5.6
14、 复选框控件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 返回目录本章结束本章结束返回目录