选择结构与循环结构程序设计.ppt
《选择结构与循环结构程序设计.ppt》由会员分享,可在线阅读,更多相关《选择结构与循环结构程序设计.ppt(26页珍藏版)》请在三一文库上搜索。
1、,第五章 选择结构与循环结构程序设计,本章主要内容 5.1 选择机构程序设计 5.2 For循环结构程序设计 5.3 While循环结构程序设计 5.4 Do循环结构程序设计 5.5 多重循环 5.6 程序举例,5.1 选择结构程序设计,单行结构条件语句 格式:If Then Else 功能:若条件成立或为非0值,则执行“语句1”,否则执行语句2。 其中:“条件”通常是关系表达式或逻辑表达式。 “语句1”和“语句2”可以是简单句或复合句。 Else子句为可选项。,例51 输入三个数,输出其中最大值。,Private Sub Command1_Click() Dim a!, b!, c!, ma
2、x! 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,例52 编程求符号函数sign(x)的值。 P102,块结构条件语句,格式:If condition1 Then ElseIf condition2 Then . Else End If,功能:若“条件1”成立,执行“语句块1”;否则若“条件2”成立,
3、执行“语句块2”;若上述条件均不成立,执行“语句块n”。 例53 输入系数a,b和c,求二次方程ax2+bx+c=0的实根。编程如下: 例54 给出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 = (
4、-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语句,格式:GoTo 功能:把控制转移到“标号”所在的程序行,并从该行开始往下执行。 说明:1、标号实一个标识符或整型数; 2、程序必须给GoTo语句提供唯一的转向入口
5、,入口处格式为:: 3、不能用GoTo语句转向另一个过程。 例55:设计一个程序,从键盘上输入学生的分数,统计其中及格的人数以及总平均分。P106,情况语句,Select Case Case Case Case Else End Select,功能:根据“测试表达式”的值,从多个语句块中选择符合条件的一个语句块执行。 说明: 1、“测试表达式”的值与“表达式表列”的值均不匹配的时候,执行case else 子句。 2、测试表达式可以是数值表达式或字符串表达式。 3、Case子句可以是一行或多行语句。 4、“表达式表列”中的表达式必须与测试表达式的类型一致。 5、“表达式表列”称为域值,可以是下
6、列形式之一:,1), 当“测试表达式”的值与其中之一相同,就执行该Case子句中的语句块。 2) To 当“测试表达式”的值落在表达式1和表达式2之间(含自身),则执行该Case子句中的语句块。表达式1 当“测试表达式”的值满足“关系表达式”指定条件时,执行该Case子句中的语句块。,例56 从键盘上输入学生成绩,然后在文件框中显示其等级(按5级计分值输出不及格、及格、中等、良好、优秀)。,Private Sub Command1_Click() Dim score As Integer, strx As String start: score = InputBox(“请输入学生成绩”) Se
7、lect Case score Case 0 To 59: strx$ = “不及格” Case 60 To 69:strx$ = “及格” Case 70 To 79:strx$ = “中等” Case 80 To 89:strx$ = “良好” Case 90 To 100:strx$ = “优秀” Case Else MsgBox “请输入0100范围内的整数”, “错误提示” GoTo start End Select Text1.Text = score Text2.Text = strx$ End Sub,例57 商店售货,按购买货物的款数多少分别给予不同优惠折扣如下,编程计算购物
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 选择 结构 循环 程序设计
链接地址:https://www.31doc.com/p-2186188.html