选择结构-循环结构程序的设计.pptVIP

;;5.1 选择结构程序设计;例5－1 输入三个数，输出其中最大值。;块结构条件语句;功能：若“条件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、“测试表达式”的值与“表达式表列”的值均不匹配的时候，执行case else 子句。 2、测试表达式可以是数值表达式或字符串表达式。 3、Case子句可以是一行或多行语句。 4、“表达式表列”中的表达式必须与测试表达式的类型一致。 5、“表达式表列”称为域值，可以是下列形式之一： ;1）表达式1[,表达式2]…… 当“测试表达式”的值与其中之一相同，就执行该Case子句中的语句块。 2）表达式1 To 表达式2 当“测试表达式”的值落在表达式1和表达式2之间（含自身），则执行该Case子句中的语句块。表达式1表达式2。 3）Is 关系表达式 当“测试表达式”的值满足“关系表达式”指定条件时，执行该Case子句中的语句块。;例5－6 从键盘上输入学生成绩，然后在文件框中显示其等级（按5级计分值输出不及格、及格、中等、良好、优秀）。;例5－7 商店售货，按购买货物的款数多少分别给予不同优惠折扣如下，编程计算购物款数。;IIf函数;5.2 For循环结构程序设计;说明： 1、循环变量??数值变量。 2、初值、终值、步长：数值表达式，值若为实数，则自动取整。步长在不同情况下可为正、负，若省略则为1。 3、循环体：需重复执行的语句，可以是一句或多句。 4、Exit For：用于退出循环。 5、Next：循环终端语句。其后的循环变量与For语句中的“循环变量”必须相同。 6、循环次数＝Int(终值－初值)/步长 ＋1 循环可以嵌套，三种形式见P113～114;例5－8 求自然数n的阶乘。;例5－9 输入一个班的学生成绩，统计其中及格的学生人数，并计算出全班的平均分数。;5.3 While循环结构程序设计;例5－10 小红今年12岁，她父亲比她大30岁，编程计算出她父亲在几年后比她年龄大一倍，那时父女的年龄各为多少？; 5、4 Do循环结构程序设计;功能：;例5－11 编写程序，对任意输入的正整数n(n=3)判断其是否为素数。;例5－12 输入两个正整数，求它们的最大公约数;5.5 多重循环;§5.6 程序举例