选择结构程序设计解析

《选择结构程序设计解析》由会员分享，可在线阅读，更多相关《选择结构程序设计解析（27页珍藏版）》请在装配图网上搜索。

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

2、共27页第第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 6第2页/共27页5.1 条件表达式条件表达式n n5.1.1 5.1.1 关系表达式关系表达式n n 表达式表达式1 1关系运算符关系运算符表达式表达式2 2 关

3、系运算符关系运算符表达式表达式3 3 n n （1 1）3 63 6，值为，值为TrueTruen n （2 2）8=58 23 2，值为，值为TrueTruen n （4 4）2=32=3，值为，值为FalseFalsen n （5 5）2=32=3，值为，值为FalseFalsen n （6 6）a ba b，值为，值为TrueTruen n （7 7）3*4 1+23*4 0)Not(1 0)，值为：，值为：FalseFalsen n （2 2）Not(a a)Not(a a)，值为：，值为：TrueTruen n （3 3）2 3 And 1 3 And 1 3 Or 1 3 Or 1

4、 1+4 And Not 6 1+4 And Not 6 5 And Not 6 5 And Not 6 8n n 关系运算：关系运算：False And Not TrueFalse And Not Truen n 非运算：非运算：False And FalseFalse And Falsen n 结果：结果：FalseFalse 优先顺序优先顺序运算符类型运算符类型运运 算算 符符运算符类型运算符类型运运 算算 符符1算术运算符（指数）字符串运算符&（字符串连接）2（负数）3*、/（乘法和除法）4（整除）5Mod（求模）6+、（加法和减法）7关系运算符=、=8布尔运算符Not9And10Or

5、返回目录第5页/共27页5.2 5.2 简单条件选择结构的程序设计简单条件选择结构的程序设计n n5.2.1 5.2.1 单行结构条件语句单行结构条件语句n n If If条件条件Then Then 语句组语句组1 1 Else Else语句组语句组2 2 n nPrivate Sub Command1_Click()Private Sub Command1_Click()n n Dim x As Integer Dim x As Integern n x=Val(Text1.Text)x=Val(Text1.Text)n n If x Mod 2=0 Then Label2.Caption=

6、If x Mod 2=0 Then Label2.Caption=偶数偶数 Else Label2.Caption=Else Label2.Caption=奇数奇数 n nEnd SubEnd Subn nPrivate Sub Command2_Click()Private Sub Command2_Click()n n Text1.Text=Text1.Text=n nEnd SubEnd Subn nPrivate Sub Command3_Click()Private Sub Command3_Click()n n Unload Me Unload Men nEnd SubEnd Su

7、b第6页/共27页5.2.2 多行结构条件语句If If条件条件ThenThen 语句组语句组1 1ElseElse 语句组语句组2 2 End IfEnd If第7页/共27页n nPrivate Sub Command1_Click()Private Sub Command1_Click()n n Dim x As Single,y As Single Dim x As Single,y As Singlen n x=Val(Text1.Text)x=Val(Text1.Text)n n y=Val(Text2.Text)y=Val(Text2.Text)n n If x y Then I

8、f x y Then n n t=x :x=y :y=t t=x :x=y :y=tn n End IfEnd Ifn n Label3.Caption=Label3.Caption=较大数为较大数为&Str(x)&Str(x)n nEnd SubEnd Subn nPrivate Sub Command1_Click()Private Sub Command1_Click()n n Dim x As Single,y As Single Dim x As Single,y As Singlen n x=Val(Text1.Text)x=Val(Text1.Text)n n y=Val(Tex

9、t2.Text)y=Val(Text2.Text)n n If x y Then If x y Then n n Label3.Caption=Label3.Caption=较大数为较大数为&Str(y)&Str(y)n n Else Elsen n Label3.Caption=Label3.Caption=较大数为较大数为&Str(x)&Str(x)n n End If End Ifn nEnd SubEnd Sub第8页/共27页5.2.3 If语句的嵌套n n If语句的嵌套是指If或Else后面的语句块中又包含If语句。语句形式如下：If If条件条件1 1ThenThen If I

10、f条件条件2 2ThenThen End If End If End IfEnd If第9页/共27页n n 铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50千克时，每千克0.25元；超过50千克而不超过100千克时，其超过部分每千克0.35元；超过100千克时，其超过部分每千克0.45元。编写程序，输入行李重量，计算并输出托运的费用。第10页/共27页n nPrivate Sub Command1_Click()Private Sub Command1_Click()n n Dim w As Single,x As Single Dim w As Single,x

11、 As Singlen n w=Val(Text1.Text)w=Val(Text1.Text)n n If w=50 ThenIf w=50 Thenn n x=0.25*w x=0.25*wn n Else Elsen n If w=100 ThenIf w=100 Thenn n x=0.25*50+0.35*(w-50)x=0.25*50+0.35*(w-50)n n Else Elsen n x=0.25*50+0.35*50+0.45*(w-100)x=0.25*50+0.35*50+0.45*(w-100)n n End If End Ifn n End IfEnd Ifn n

12、Text2.Text=x Text2.Text=xn nEnd SubEnd Sub第11页/共27页5.2.4 If语句的嵌套格式ElseIfIf If条件条件1 1ThenThen 语句组语句组1 1ElseIfElseIf条件条件2 2ThenThen 语句组语句组2 2.ElseElse 语句组语句组n+1n+1 End IfEnd If第12页/共27页n n某百货公司为了促销，采用购物打折扣的优惠办法，即每位顾客一次购物：某百货公司为了促销，采用购物打折扣的优惠办法，即每位顾客一次购物：n n (1)(1)在在10001000元以上元以上20002000元以下者，按九五折优惠；元以

13、下者，按九五折优惠；n n (2)(2)在在20002000元以上元以上30003000元以下者，按九折优惠；元以下者，按九折优惠；n n (3)(3)在在30003000元以上元以上50005000元以下者，按八五折优惠；元以下者，按八五折优惠；n n (4)(4)在在50005000元以上者，按八折优惠。元以上者，按八折优惠。n nPrivate Sub Command1_Click()Private Sub Command1_Click()n n Dim x As Single,y As Single Dim x As Single,y As Singlen n x=Val(Text1.

14、Text)x=Val(Text1.Text)n n If x 1000 ThenIf x 1000 Thenn n y=x ElseIf x 2000 Then y=x ElseIf x 2000 Thenn n y=0.95*x y=0.95*x n n ElseIf x 3000 ThenElseIf x 3000 Thenn n y=0.9*x y=0.9*x n n ElseIf x 5000 ThenElseIf x 5000 Thenn n y=0.85*x y=0.85*x n n ElseElsen n y=0.8*x y=0.8*x n n End IfEnd Ifn n T

15、ext2.Text=y Text2.Text=yn nEnd SubEnd Sub返回目录第13页/共27页5.3 5.3 多分支条件选择结构的程序设计多分支条件选择结构的程序设计Select CaseSelect Case测试条件测试条件 Case Case表达式表表达式表1 1 语句组语句组1 1 Case Case表达式表表达式表2 2 语句组语句组2 2 .Case Else Case Else 语句组语句组n+1n+1 End SelectEnd Select第14页/共27页n n为某航空公司设计程序，根据月份和订票张数决定票价的优惠率。假设为某航空公司设计程序，根据月份和订票张数

16、决定票价的优惠率。假设优惠规定如下：优惠规定如下：n n (1)(1)在旅游的旺季在旅游的旺季7 79 9月份，如果订票数超过月份，如果订票数超过2020张，票价优惠张，票价优惠15%15%，2020张以下，优惠张以下，优惠5%5%；n n (2)(2)在旅游的淡季在旅游的淡季1 15 5月份、月份、1010月份、月份、1111月份，如果订票数超过月份，如果订票数超过2020张，张，票价优惠票价优惠30%30%，2020张以下，优惠张以下，优惠20%20%；n n (3)(3)其他情况一律优惠其他情况一律优惠10%10%。n nPrivate Sub Command1_Click()Priva

17、te Sub Command1_Click()n n Dim m As Integer,n As Integer,r As Integer Dim m As Integer,n As Integer,r As Integern n m=Val(Text1.Text)m=Val(Text1.Text)n n n=Val(Text2.Text)n=Val(Text2.Text)n n Select Case mSelect Case mn n Case Is=5,10,11 Case Is=5,10,11n n If n 20 Then r=20 Else r=30If n 20 Then r=2

18、0 Else r=30n n Case 7 To 9 Case 7 To 9 n n If n 20 Then r=5 Else r=15If n 0 Then If Label1.Left+Label1.Width 0 Then n n Label1.Move Label1.Left Label1.Move Label1.Left 20 20n n ElseElsen n Label1.Left=Form1.ScaleWidth Label1.Left=Form1.ScaleWidthn n End IfEnd Ifn nEnd SubEnd SubPrivate Sub Option1_C

19、lick()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返回目录第24页/共27页5.6 复选框控件CheckBoxn n用复选框控制文本输入是否加上用复选框控制文本输入是否加上“下划线下划线”和和“斜体显示斜体显示”。n nPrivate Sub T

20、ext1_Change()Private Sub Text1_Change()n n If Check1.Value=1 Then If Check1.Value=1 Thenn n Text1.FontUnderline=True Text1.FontUnderline=Truen n ElseIf Check2.Value=1 Then ElseIf Check2.Value=1 Thenn n Text1.FontItalic=True Text1.FontItalic=Truen n End If End Ifn nEnd SubEnd Subn nPrivate Sub Check1

21、_Click()Private Sub Check1_Click()n n If Check1.Value=1 Then If Check1.Value=1 Thenn n Text1.FontUnderline=True Text1.FontUnderline=Truen n Else Elsen n Text1.FontUnderline=False Text1.FontUnderline=Falsen n End If End Ifn nEnd SubEnd Subn nPrivate Sub Check2_Click()Private Sub Check2_Click()n n If Check2.Value=1 Then If Check2.Value=1 Thenn n Text1.FontItalic=True Text1.FontItalic=Truen n Else Elsen n Text1.FontItalic=False Text1.FontItalic=Falsen n End If End Ifn nEnd SubEnd Sub 返回目录第25页/共27页本章结束本章结束返回目录第26页/共27页