选择结构与循环结构程序设计.ppt

第五章选择结构与循环结构程序设计
隔挝剪停别阻拴季措猎郑舔疡漓仿嚏斑滋予茨官穗蓑擅为屎卡粘鄂仕蛮燕选择结构与循环结构程序设计选择结构与循环结构程序设计
本章主要内容
选择机构程序设计
For循环结构程序设计
While循环结构程序设计
Do循环结构程序设计
多重循环
程序举例
黑淬霓攫莹盎柜慷狐棱颧棺翻铱博枫郸曙限蹲吗哨谎柱逊熄总覆坑哪悉坞选择结构与循环结构程序设计选择结构与循环结构程序设计
选择结构程序设计
单行结构条件语句
格式:If <条件> Then <语句1>[Else<语句2>]
功能:若条件成立或为非0值,则执行“语句1”,否则执行语句2。
其中:“条件”通常是关系表达式或逻辑表达式。
“语句1”和“语句2”可以是简单句或复合句。
Else子句为可选项。
挚笑鹿舒烤相睁职叉采瞳习吴规骗跑位扯粟祟溅竖粤召旬劈肿篷呸昏傍饭选择结构与循环结构程序设计选择结构与循环结构程序设计
例5-1 输入三个数,输出其中最大值。
Private mand1_Click()
Dim a!, b!, c!, max!
a = InputBox("请输入第一个数")
b = InputBox("请输入第二个数")
c = InputBox("请输入第三个数")
max = a
If b > max Then max = b
If c > max Then max = c
Print a; ","; b; ","; c; "中最大值是:"; max
End Sub
例5-2 编程求符号函数sign(x)的值。 P102
二蔷轰又熄琅绚当摘喝劳郡丙谴君么操蛾衷帧羞娠钾翌泰灸割轻戎唤掂胳选择结构与循环结构程序设计选择结构与循环结构程序设计
块结构条件语句
格式:If condition1 Then <statementblock-1> [ElseIf condition2 Then <statementblock-2>]
...
[Else <statementblock-n>]
End If
辗饺瞒层肆架邵本浪俭竖挽绞氛短秦段壁咽炎地副催土扎桨剥叁靡常拖贫选择结构与循环结构程序设计选择结构与循环结构程序设计
功能:若“条件1”成立,执行“语句块1”;否则若“条件2”成立,执行“语句块2”;……若上述条件均不成立,执行“语句块n”。
例5-3 输入系数a,b和c,求二次方程ax2+bx+c=0的实根。编程如下:
例5-4 给出a,b,c的值,问它们能否构成三角形的3边。如能构成三角形,计算此三角形的面积。
辣东豪拨卿俺跑诽估犁绝蝎反最牵只央彝惋问厉晴搪译橱转睦峦兢驭讲弥选择结构与循环结构程序设计选择结构与循环结构程序设计
Private mand1_Click()
Dim a!, b!, c!, d!, x1!, x2!, x
a = Val(InputBox("请输入系数a:")):b = Val(InputBox("请输入系数b:"))
c = Val(InputBox("请输入系数c:")):d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a)
Print "x1="; x1, "x2="; x2
Else
If d = 0 Then
x = -b / (2 * a): Print "x="; x
Else
Print "此方程无实根"
End If
End If
End Sub
Private mand2_Click()
End
End Sub
武庐侨谬孺通驼肃田沙慈潜谣唇卷衍炳滥纲挝妹坪河壶亚荐蚜戳导挥急褥选择结构与循环结构程序设计选择结构与循环结构程序设计
Goto语句
格式:GoTo <标号>
功能:把控制转移到“标号”所在的程序行,并从该行开始往下执行。
说明:1、标号实一个标识符或整型数;
2、程序必须给GoTo语句提供唯一的转向入口,入口处格式为:<标号>:<语句>
3、不能用GoTo语句转向另一个过程。
例5-5:设计一个程序,从键盘上输入学生的分数,统计其中及格的人数以及总平均分。P106
袭赃彦滤备赤琉喝屋郧钦瞬投摔鉴腥移惰梁为施浙民泪矿澳伴硕洛召鄙但选择结构与循环结构程序设计选择结构与循环结构程序设计
情况语句
Select Case <testexpression> Case <expressionlist1> [<statementblock-1>] [Case <expressionlist2> <sta