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

5.1 选择结构程序设计 单行结构条件语句 格式：If 条件 Then 语句1[Else语句2] 功能：若条件成立或为非0值，则执行“语句1”，否则执行语句2。 其中：“条件”通常是关系表达式或逻辑表达式。 “语句1”和“语句2”可以是简单句或复合句。 Else子句为可选项。 例5－1 输入三个数，输出其中最大值。 块结构条件语句 Goto语句 情况语句 例5－6 从键盘上输入学生成绩，然后在文件框中显示其等级（按5级计分值输出不及格、及格、中等、良好、优秀）。 例5－7 商店售货，按购买货物的款数多少分别给予不同优惠折扣如下，编程计算购物款数。 IIf函数 5.2 For循环结构程序设计 5.3 While循环结构程序设计 例5－10 小红今年12岁，她父亲比她大30岁，编程计算出她父亲在几年后比她年龄大一倍，那时父女的年龄各为多少？ 5、4 Do循环结构程序设计 功能： 例5－11 编写程序，对任意输入的正整数n(n=3)判断其是否为素数。 例5－12 输入两个正整数，求它们的最大公约数 5.5 多重循环 §5.6 程序举例 * * 第五章 选择结构与循环结构程序设计 本章主要内容 5.1 选择机构程序设计 5.2 For循环结构程序设计 5.3 While循环结构程序设计 5.4 Do循环结构程序设计 5.5 多重循环 5.6 程序举例 Private Sub Command1_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 Sub Command1_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 Sub Command2_Click() End End Sub 格式：GoTo 标号 功能：把控制转移到“标号”所在的程序行，并从该行开始往下执行。 说明：1、标号实一个标识符或整型数； 2、程序必须给GoTo语句提供唯一的转向入口，入口处格式为：标号:语句 3、不能用GoTo语句转向另一个过程。 例5－5：设计一个程序，从键盘上输入学生的分数，统计其中及格的人数以及总平均分。P106 Select Case testexpression Case expressionlist1 [statementblock-1] [