程序的基本结构循环结构

1、.1 .2 程序的基本结构程序的基本结构 1、顺序结构：按照由上到下的顺序一行一行、顺序结构：按照由上到下的顺序一行一行 的执行。程序中没有分支，没有重复。的执行。程序中没有分支，没有重复。 2、选择结构：也叫、选择结构：也叫分支结构分支结构，根据不同的条，根据不同的条 件判断来决定程序走向结构。件判断来决定程序走向结构。 3、循环结构：根据条件判断，需要重复执行、循环结构：根据条件判断，需要重复执行 某一段代码的程序。程序中可能存在分支某一段代码的程序。程序中可能存在分支 和重复。和重复。 .3 顺序结构的特点：顺序结构的特点： 1. 执行过程是按顺序从第一条语句执行到最 后一条语句。 2.

2、 在程序运行的过程中，顺序结构程序中的 任何一条语句都要运行一次，而且也只能 运行一次。 顺序结构顺序结构 .4 顺序结构是最简单的程序结构，它是由若干个依次执行顺序结构是最简单的程序结构，它是由若干个依次执行 的处理步骤组成的。如图，的处理步骤组成的。如图，A语句和语句和B语句是依次执行语句是依次执行 的，只有在执行完的，只有在执行完A语句后，才能接着执行语句后，才能接着执行B语句。语句。 顺序结构顺序结构 .5 举例： 输入两个数，然后交换这两个数，再输出它 们交换后的结果。 （1）分析问题。分析问题。 要交换两个数，要利用几个变量来保存数据？ 1、顺序结构、顺序结构 .6 （2）分析程序

3、的执行步骤，画出流程图。 第一步：输入两个变量a、b的值。 第二步：利用第三个变量c来进行交换，交换的过程 如下： c=a a=b b=c 第三步：输出交换后a、b的值。 顺序结构顺序结构 .7 （3）讲解程序的编写。 Private Sub command1_Click（） Dim a as single, b as single, c as single a=val(InputBox（输入第一个数a：）) b=val(InputBox（输入第二个数b：）) Print 交换前：a=;a, b=; b c=a a=b b=c MsgBox 交换后a= 是偶数。 Else Print N;是奇

4、数。 End If End Sub 选择结构选择结构 .12 课堂练习 1、输入课本33页代码，进行连个数的交换 2、编写代码：输入一个数，判断它的奇偶性。 .13 If 语句：单分支、双分支与多分支语句语句：单分支、双分支与多分支语句 单分支形式：If then 语句或与语句组 End If 如： If (N mod 2 = 0) Then Print N; 是偶数。 Else 选择结构的分支语句选择结构的分支语句 .14 双分支形式：If then 语句或与语句组1 Else 语句或与语句组2 End If 如：如： If (N mod 2=0) Then Print N; 是偶数。 El

5、se Print N;是奇数。 End If 选择结构 .15 双分支结构举例：课本双分支结构举例：课本34页页 输入飞船速度，判断飞船是否能升空。输入飞船速度，判断飞船是否能升空。 （飞船运行状态判断： 只有当飞船的速度达到第一宇宙速度（7.9千米/秒） 时，才可以在地球吸引力作用下，绕地球近似做匀速圆周运动。） 代码如下：代码如下： private Sub cmdOk_Click（） Dim v As Single v = Val(InputBox(输入速度（输入速度（km/s）) If v = 7.91 Then lblshow.Caption = 飞船成功飞行飞船成功飞行! Else

6、lblshow.Caption = 飞船不能升空飞船不能升空! End If End sub .16 表表2-11 飞船的飞行状况飞船的飞行状况 飞船速度（飞船速度（v）(单位：单位：km/s)飞行状况飞行状况 7.9v16.67飞船挣脱太阳引力飞出太阳系 .17 选择结构 多分支形式：If then 语句或与语句组1 Else 语句或与语句组2 . End If .18 用用If 多分支多分支 语句判断飞船飞行状况语句判断飞船飞行状况 Private Sub command_Click（）（） Dim v As Single v = Val(InputBox(输入速度（输入速度（km/s）：

7、）：) If v 16.67 Then Print 飞船挣脱太阳吸引力飞出太阳系飞船挣脱太阳吸引力飞出太阳系 Else If v = 11.19 Then Print 飞船离开地球的控制飞船离开地球的控制,围绕太阳转围绕太阳转 Else If v = 7.91 Then Print 飞船绕地球近似做匀速圆周运动飞船绕地球近似做匀速圆周运动; Else Print 输入数据错误输入数据错误 End If End If End If End sub .19 当程序出现多分支选择时，用当程序出现多分支选择时，用if语句会比较繁琐，而使用多语句会比较繁琐，而使用多 分支选择分支选择select cas

8、e 语句就方便多了。语句就方便多了。 语法格式： select case 表达式 case 表达式列表1 语句组1 case 表达式列表2 语句组2 . case else 语句组n end select .20 用用select case 语句判断飞船飞行状况语句判断飞船飞行状况 Private sub cmdOk_click Dim v as single v = val(InputBox(输入速度v(km/s) select case v case Is 16.67 lblshow.caption = 太阳飞出太阳系 case Is =11.19 lblshow.caption = 绕太

9、阳运行 case Is =7.91 lblshow.caption = 绕地球运行 case else lblshow.caption = 数据输入错误 End select End sub .21 课后练习课后练习-用用select case语句编写以下代码语句编写以下代码 例子： 输入一学生的成绩，评定其等次。方法是： 90100分为优秀，8089分为良好， 7079分为中等，6069分为及格，60分以 下为不及格。 .22 课后练习课后练习-用用select case 语句编写成绩等次：语句编写成绩等次： private sub command_click dim x as single

10、 x = val(inputbox(输入一个分数：输入一个分数：) select case x case is =90 lblshow.caption = 优秀优秀 case is =80 lblshow.caption = 良好良好 case is =70 lblshow.caption = 中等中等 case is =60 lblshow.caption = 及格及格 case else lblshow.caption = 不及格不及格 end select end sub .23 代码如下：代码如下： private Sub command_Click（） Dim x As Single

11、 x = Val(InputBox(输入一个分数：输入一个分数：) If x = 90 Then Print 优秀优秀 Else If x = 80 Then Print 良好良好 Else If x = 70 Then Print 中等中等 Else If x = 60 Then Print 及格及格 Else Print 不及格不及格 End If End If End If End If end sub .24 课后练习课后练习 用用If和和select case多分支语句编写程序代码：多分支语句编写程序代码： 输入一学生的成绩，评定其等次。方法是： 90100分为优秀，8089分为良好

12、，7079 分为中等，6069分为及格，60分以下为不 及格。 （代码编写参照课本36页） .25 小结分支结构的特点: 分支结构是根据不同的条件判断来决定程 序执行走向的结构。 在程序运行的过程中，在分支结构内，无 论P条件是否成立，只能执行A操作或B操 作之一，不可能既执行A操作又执行B操作， 也不可能A操作和B操作都不执行。 选择结构选择结构 .26 有时在解决一些问题时， 经常需要重复执行一些操作， 如计算123+100的 和，我们可以利用循环结构 控制程序按照一定的条件或 者次数重复执行。 需要重复执行同一操作 的结构称为循环结构，即从 某处开始，按照一定条件反 复执行某一处理步骤，

13、反复 执行的处理步骤称为循环体循环体。 循环结构循环结构 .27 应用举例：累加求和。 题目：计算123+10的和。 （1）分析问题。 提示进行累加运算，可先设累加变量的 值为0，还要准确理解循环次数次数，避免出现 多一次循环或少一次循环的情况。 循环结构循环结构 .28 （2）分析程序的执行步骤，画出流程图。 第一步：使累加变量S的值为0； 第二步：循环变量i的初值为1，终值为10， 步长值为1； 第三步：判断循环条件i10是否成立，成立， 则输出累加变量S的值，否则S=S+i，i=i+1， 重复第三步。 循环结构循环结构 .29 题目：计算题目：计算123+10的和的和。 计算步骤：设循环

14、次数为计算步骤：设循环次数为i,累加量为累加量为s=0(初始值初始值) 循环次数： s i=1: 1 i=2: 1+2=3 i=3: 3+3=6 i=4: 6+4=10 i=5: 10+5=15 i=6: 15+6=21 i=7: 21+7=28 i=8: 28+8=36 i=9: 36+9=45 i=10: 45+10=55 i=11(i10) End(退出 ) 循环体:s=s+i 循环次数：i=i+1 .30 （3）讲解程序的编写。 Private Sub command1_Click（） Dim i As Integer,s As Integer S = 0 For i = 1 To 1

15、0 Step 1 S = S + i Next i Print 1+2+3+10的和是; S End Sub 循环结构循环结构:用用for.Next 语句语句 .31 （4）讲解程序的编写。 Private Sub command1_Click（） Dim i As Integer, s As Integer i = 0 s = 0 Do While s = 1000 i = i + 1 s = s + i Loop lblSum.Caption = i sum End sub .34 用VB的循环语句求1到10的与奇数和奇数和 Private Sub Command1_Click() Dim i As Integer, sum As Integer, aa As Double aa = 1 For i = 1 To 10 If i Mod 2 = 0 Then aa = aa * i Else sum = sum + i End If Next i Print aa, sum End Sub .35 小结循环结构的特点: 循环结构中通常都有一个起循环计数作用 的变量，这个变量的取值一般都包含在执 行或终止循环的条件中。 循环结构主要用在一些有规律的重复计算 的算法中，例如累加求和、累乘求积等问 题。 循环结构循环结构 .36 小结顺序、分支和循环三种 程序基本