第3章控制结构.ppt
《第3章控制结构.ppt》由会员分享,可在线阅读,更多相关《第3章控制结构.ppt(50页珍藏版)》请在三一文库上搜索。
1、台州学院计算机系,1,第3章 控制结构,台州学院计算机系,2,本章内容,3.1 程序结构与流程图 3.2 选择控制结构 3.2.1 单行结构条件语句 3.2.2 多行结构条件语句 3.2.3 多分支选择控制结构 3.3 循环控制结构 3.3.1 ForNext循环 3.3.2 WhileWend循环 3.3.3 DoLoop循环 3.3.4 多重循环,台州学院计算机系,3,3.1 程序结构与流程图,台州学院计算机系,4,3.1 程序结构与流程图,三种基本结构的共同特点: 只有一个入口,一个出口。 无死语句,所谓“死语句”是指始终不执行的语句。 无死循环,即循环次数是有限的。 顺序结构是程序中最
2、简单、最基本的结构。在顺序结构中,程序的执行过程是从上往下一行一行地执行。执行的顺序与程序中语句的排列顺序相同。,台州学院计算机系,5,3.2 程序结构与流程图,3.2.1 单行结构条件语句 3.2.2 多行结构条件语句 3.2.3 多分支选择控制结构,台州学院计算机系,6,3.2.1 单行结构条件语句,单行If语句的格式如下: If Then Else 该语句的功能是:当条件成立时执行语句块1,否则执行语句块2;Else和语句块2可以缺省。 说明: (1)单行If 语句必须在同一行内写完。 (2)“条件”可以是关系表达式或布尔表达式,还可以是任何计算数值的表达式,Visual Basic会将
3、其结果转换成True或False。如果该值是0,则被视为False,所有非0值被视为True。 (3)“语句块”可以是一条语句,也可以是多条语句;如果是多条语句,那么语句与语句之间用冒号分割。,台州学院计算机系,7,3.2.1 单行结构条件语句,【例3-1】编程,在文本框中输入你的身高,如果小于165,那么显示“你的身高不够”。,台州学院计算机系,8,3.2.1 单行结构条件语句,【例3-1】编程,在文本框中输入你的身高,如果小于165,那么显示“你的身高不够”。 在窗体上建立文本框控件Text1和命令按钮Command1。编制事件过程 Command1_Click 如下: Private S
4、ub Command1_Click() If Text1.Text 165 Then Print “你的身高不够“ End Sub,台州学院计算机系,9,3.2.1 单行结构条件语句,【例3-2】输入x,计算y的值,其中:,台州学院计算机系,10,3.2.1 单行结构条件语句,分析:该题是数学中的一个分段函数,它表示当时,用公式来计算y的值;当x 0时,用公式 y = 1 - 3 x 来计算y的值。在选择条件时,我们即可以选择作为条件,也可以选择 x 0作为条件。在这里,我们选作为选择条件。这时,当为真时,执行;为假时,执行y = 1 - 3 x。,台州学院计算机系,11,3.2.1 单行结构
5、条件语句,写出按钮Command1的单击Click事件代码为: Private Sub Command1_Click() Dim x As Single, y As Single x = Text1.Text If x = 2 Then y = x * x + 3 * x Else y = 1 - 3 * x Text2.Text = y End Sub,台州学院计算机系,12,3.2.2 多行结构条件语句,多行IF语句格式为: If Then ElseIf Then ElseIf Then Else End If 执行过程:Visual Basic首先测试条件1,如果它为False,Visu
6、al Basic就测试条件2,依次类推,直到找到一个为True的条件。当它找到一个为True的条件时,Visual Basic就会执行相应的语句块,然后执行End If后面的代码。作为选择,可以包含Else语句块,如果所有条件都为False,则执行Else语句块。,台州学院计算机系,13,3.2.2 多行结构条件语句,我们把例3-2用多行If语句完成,程序代码如下: Private Sub Command1_Click() Dim x As Single, y As Single x = Text1.Text If x = 2 Then y = x * x + 3 * x Else y = 1
7、 - 3 * x End If Text2.Text = y End Sub,台州学院计算机系,14,3.2.2 多行结构条件语句,【例3-3】输入学生成绩(百分制),判断该成绩的等级(优、良、中、及格、不及格)。 界面设计略,程序代码如下: Private Sub Command1_Click() Dim score As Single, temp As String score = Val(Text1.Text) temp = “成绩等级为:“ If score 0 Then Label2.Caption = “成绩出错“ ElseIf score 60 Then Label2.Capti
8、on = temp + “不及格“ ElseIf score = 69 Then Label2.Caption = temp + “及格“ ElseIf score = 79 Then Label2.Caption = temp + “中“ ElseIf score = 89 Then Label2.Caption = temp + “良“ ElseIf score = 100 Then Label2.Caption = temp + “优“ Else Label2.Caption = “成绩出错“ End If End Sub,台州学院计算机系,15,3.2.2 多行结构条件语句,【例3-4
9、】请参考图3-3,完成“健康称”程序的设计。计算公式为:标准体重=身高-105;体重高于标准体重*1.1为偏胖,提示“偏胖,注意节食”;体重低于标准体重*0.9为偏瘦,提示“偏瘦,增加营养”;其他为正常,提示“正常,继续保持”。,台州学院计算机系,16,3.2.2 多行结构条件语句,程序代码如下: Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = Text1.Text y = Text2.Text z = x 105 计算标准体重 If y z * 1.1 Then 体重高于标准体重*1.
10、1 Label5.Caption = “偏胖,注意节食“ ElseIf y z * 0.9 Then 体重低于标准体重*0.9 Label5.Caption = “偏瘦,增加营养“ Else 其他为正常 Label5.Caption = “正常,继续保持“ End If End Sub,台州学院计算机系,17,3.2.2 多行结构条件语句,【例3-5】编写程序求一元二次方程式的根,用InputBox函数输入a、b、c,计算结果通过MsgBox函数显示。 程序代码如下: Private Sub Form_Click() Dim a As Single, b As Single, c As Sin
11、gle Dim d As Single, x1 As Single, x2 As Single a = InputBox(“a=“) b = InputBox(“b=“) c = InputBox(“c=“) d = b * b - 4 * a * c If d 0 Then MsgBox (“方程无实根!“) Else If d = 0 Then x1 = -b / (2 * a) MsgBox (“X1=X2=“ & x1) Else x1 = (-b + Sqr(d) / (2 * a) x2 = (-b + Sqr(d) / (2 * a) MsgBox (“X1=“ & x1 & “
12、 X2=“ & x2) End If End If End Sub,台州学院计算机系,18,3.2.3 多分支选择控制结构,Select Case语句的语法格式如下: Select Case Case Case Case Else End Select 执行流程:先对“测试表达式”求值,然后将测试表达式的值按从上到下的顺序与每一个Case的表达式列表值进行比较。如果相符,就执行该Case分支的语句块,并把控制转到End Select后面的语句;如果没有找到相符,则执行与Case Else子句有关的语句块,然后把控制转到End Select后面的语句。,台州学院计算机系,19,3.2.3 多分支
13、选择控制结构,【例3-6】用Case语句实现例3-3所完成的功能。 程序代码如下: Private Sub Command1_Click() Dim score As Integer, temp As String score = Val(Text1.Text) temp = “成绩等级为:“ Select Case score Case 0 To 59 Label2.Caption = temp + “不及格“ Case 60 To 69 Label2.Caption = temp + “及格“ Case 70 To 79 Label2.Caption = temp + “中“ Case 8
14、0 To 89 Label2.Caption = temp + “良“ Case 90 To 100 Label2.Caption = temp + “优“ Case Else Label2.Caption = “成绩出错“ End Select End Sub,台州学院计算机系,20,3.2.3 多分支选择控制结构,【例3-7】输入年、月份,输出该月的天数。 分析:如果该月是1、3、5、7、8、10或12月份,那么就有31天;如果该月是4、6、9或11月份,那么就有30天;而如果是2月份,还要看该年是否为闰年,闰年29天,否则为28天。判断闰年的条件是(y代表年份): y Mod 4 = 0
15、 And y Mod 100 0 Or y Mod 400 = 0,台州学院计算机系,21,3.2.3 多分支选择控制结构,代码如下: Private Sub Command1_Click() Dim y As Integer, m As Integer, d As Integer y = InputBox(“请输入年份:“) m = InputBox(“请输入月份:“) Select Case m Case 1, 3, 5, 7, 8, 10, 12 d = 31 Case 4, 6, 9, 11 d = 30 Case 2 If y Mod 4 = 0 And y Mod 100 0 Or
16、 y Mod 400 = 0 Then d = 29 Else d = 28 End If End Select Print y; “年“; m; “月有“; d; “天“ End Sub,台州学院计算机系,22,3.2.3 多分支选择控制结构,【例3-8】将一个十六进制符号转换为十进制数值,运行效果如图3-4所示。,台州学院计算机系,23,3.2.3 多分支选择控制结构,代码如下: Private Sub Command1_Click() Dim s As String, n As Integer s = Text1.Text Select Case s Case “a“, “A“ n =
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 控制 结构
链接地址:https://www.31doc.com/p-2577398.html