程序的基本结构循环结构ppt课件

case 表达式列表1
语句组1
[case
表达式列表2
语句组2]
......
[case else
语句组n]
end select
编辑课件
19
用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 = "绕太阳运行" case Is >=7.91 lblshow.caption = "绕地球运行" case else lblshow.caption = "数据输入错误" End select
编辑课件
10
选择结构
（3）讲解程序的编写。 Private Sub command1_Click（） N=InputBox（"输入一个正整数："） If N mod 2 = 0 Then Print N;" 是偶数。" Else Print N;"是奇数。" End If End Sub
编辑课件
11
编辑课件
4
1、顺序结构
举例： 输入两个数，然后交换这两个数，再输出它
们交换后的结果。 （1）分析问题。
要交换两个数，要利用几个变量来保存数据？
编辑课件
5
顺序结构
（2）分析程序的执行步骤，画出流程图。
第一步：输入两个变量a、b的值。 第二步：利用第三个变量c来进行交换，交换的过程
如下： c=a a=b b=c 第三步：输出交换后a、b的值。
Else
编辑课件
13
选择结构
双分支形式：If <条件> then 语句或与语句组1
Else 语句或与语句组2
如：
End If
If (N mod 2=0) Then
Print N;" 是偶数。"
Else
Print N;"是奇数。"
End If
编辑课件
14
双分支结构举例：课本34页
输入飞船速度，判断飞船是否能升空。
（飞船运行状态判断： 只有当飞船的速度达到第一宇宙速度（7.9千米/秒） 时，才可以在地球吸引力作用下，绕地球近似做匀速圆周运动。）
代码如下： private Sub cmdOk_Click（）
Dim v As Single v = Val(InputBox("输入速度（km/s）")) If v >= 7.91 Then
顺序结构的特点：
1. 执行过程是按顺序从第一条语句执行到最 后一条语句。
2. 在程序运行的过程中，顺序结构程序中的 任何一条语句都要运行一次，而且也只能 运行一次。
编辑课件
3
顺序结构
顺序结构是最简单的程序结构，它是由若干个依次执行 的处理步骤组成的。如图，A语句和B语句是依次执行 的，只有在执行完A语句后，才能接着执行B语句。
（1）分析问题。 提示要判断一个正整数是偶数还是奇数， 判断的条件是什么？
编辑课件
9
选择结构
（2）分析程序的执行步骤，画出流程图。
第一步：输入一个正整数N； 第二步：判断N是否能被2整除，即判断条件
N mod 2 = 0是否成立； 第三步：若判断条件成立，则输出该正整数
是偶数，否则输出该正整数是奇数
课堂练习
1、输入课本33页代码，进行连个数的交换 2、编写代码：输入一个数，判断它的奇偶性。
编辑课件
12
选择结构的分支语句
If 语句：单分支、双分支与多分支语句
单分支形式：If <条件> then 语句或与语句组
End If
如：
If (N mod 2 = 0) Then Print N;" 是偶数。"
飞船离开地球的控制，围绕太阳转
v>16.67
飞船挣脱太阳引力飞出太阳系
编辑课件
16
选择结构
多分支形式：If <条件> then 语句或与语句组1 Else 语句或与语句组2 .......
End If
编辑课件
17
用If 多分支 语句判断飞船飞行状况
• Private Sub command_Click（）
2.3 程序的基本结构
编辑课件
1
程序的基本结构
1、顺序结构：按照由上到下的顺序一行一行 的执行。程序中没有分支，没有重复。
2、选择结构：也叫分支结构，根据不同的条 件判断来决定程序走向结构。
3、循环结构：根据条件判断，需要重复执行 某一段代码的程序。程序中可能存在分支 和重复。
编辑课件
2
顺序结构
编辑课件
7
2、选择结构
在处理实际问题时，只有顺序结构是不够的，经 常会遇到一些条件的判断，流程根据条件是否成 立有不同的流向。如下图所示，程序根据给定的 条件P是否成立而选择执行A操作或B操作
这种先根据条件做出判断，再 决定执行哪一种操作的结构称 为分支结构，也称为选择结构。
编辑课件
8
选择结构
应用举例：判断输入的一个正整数，是偶数 还是奇数。
lblshow.Caption = "飞船成功飞行!" Else
lblshow.Caption = "飞船不能升空!" End If
End sub
编辑课件
15
表2-11 飞船的飞行状况
飞船速度（v）(单位：km/s)
飞行状况
7.9≦v<11.9
飞船绕地球近似做匀速圆周运动
11.19≦v≦16.67
编辑课件
6
顺序结构
（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= " & a & "b = " & b ,vbokonly,"交换结果" End Sub
• Dim v As Single
•
v = Val(InputBox("输入速度（km/s）："))
•
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
编辑课件
18
当程序出现多分支选择时，用if语句会比较繁琐，而使用多
分支选择select case 语句就方便多了。
• 语法格式：
select case 表达式