粤教版信息技术选修1 2.2程序的顺序结构课件（共16张ppt）

课件16张PPT。程序的三种结构
顺序结构
选择结构
循环结构顺序结构的主要的三种语句形态赋值语句
输入（函数）
输出（过程）输入数据的两种方式1. 利用文本框输入的方式
如：r=val(text1.text)
2. 利用弹出对话框的方式输入
如：R=Inputbox(“输入圆的半径”）输出数据的两种主要方式1. 利用改变对象属性的方法
如： Text1.text=str(x*3.1416*r)
label1.caption=“春节快乐”
2. 利用消息对话框的方法
如：Msgbox(“Hello”)格式1 (单分支结构) : IF <表达式> Then
语句块
End If
例：有两个数x 和y，比较它们的大小，若x小于y,则交换x和y 值，使得x大于y。
Private sub form_click( )
x = inputbox (“请输入x”)
y = inputbox (“请输入y”)
If x < y Then
t = x
x = y
y = t
End if
print “x”; x , ”y”;y
End sub

格式2 (双分支结构) :IF <表达式> Then
<语句块1>
Else
<语句块2>
End If
例：输出x、y两个数中值较大的一个。
Private sub form_click( )
x = inputbox (“请输入x”)
y = inputbox (“请输入y”)
If x > y Then
print x
else
print y
end if
End sub 练习题：1.分析下面一段VB程序，该程序运行后y的值是（ ）
x = 3
IF x > 3 Then
y = x * x
Else
y = 2 * x
End if
A. 2 B. 3 C. 9 D.6
2. 若整形变量a的值为2，b的值为3，则在下列程序段运行后整形变量c的值为（ ）
If a > 5 Then
If b < 4 Then c = a – b else c = b – a
Else
If b > 3 Then c = a * b else c = a mod b
End If
A. 2 B. -1 C. 1 D. 6
求下列程序运行结果：
Private Sub Command1_click ( )
Dim m , n As Integer
m = 10
If m > = 8 then
n = 6 * m
Else
n = 2 * m
End if
Print “n = ” ; n
End sub
输出：2. Private Sub Command1_click ( )
Dim a , b ，m As Integer
a = 3 ：b = 2 ：c = 1 (在VB中，将多个语句合在一行上的并行符是 ：)
If a < b then
m = a
Else
m = b
End if
If c < m Then
m = c
End if
Print “m = ” ; m
End sub
输出：m = 1
3. Private Sub Command1_click ( )
If （ 3- 2 ） > 2 then
a = 10
Else
If （10 / 2） = 6 Then
a = 20
Else
a = 30
End if
End if
Print a
End sub
输出：30
格式3 (双分支结构) :
IF 条件1 Then
语句块1
Else If 条件2 Then
语句块2
……
[ Else
语句块 n+1 ]
End If
程序运行到Else If 语句时，依次判断条件，如果找到一个满足的条件，则执行它下面的语句块，然后跳到End If，执行后面的程序。如果列出的条件都不满足，则执行Else 语句后面的语句块；如果列出的条件都不满足，又没有Else 子句，则直接跳过End If ,不执行任何语句块。例题分析：
输入一学生的成绩，评定其等级。方法是：
90－100分为“优秀”，80－90分为“良好”，70－79分为“中等”，60－69分为“及格”，60分以下为“不及格”。
Private Sub Form _ click ( )
Dim x as single
x = 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 sub
当对一个表达式的不同取值情况作不同处理时，除了可以用ElseIf 语句外，还可以用Select Case 语句，有称为情况语句来实现，具体格式如下：
Select Case 测试表达式
case 表达式列表1
语句块1
case 表达式列表2
语句块2
……
case 表达式列表n
语句块n
[ case else
语句块n + 1]
End select
下面用Select Case 语句来改写成绩鉴定程序,代码如下:
Private Sub Form _ click ( )
Dim x as single
x = inputbox(“请输入要评估的成绩”)
Select Case x
Case Is > = 90
Print “优秀”
Case Is > = 80
Print “良好”
Case Is > = 70
Print “中等”
Case Is > = 60
Print “及格”
Case Else
Print “不及格”
End Select
End sub

例题:
写出下列程序运行结果：
a = 24
b = 328
Select Case b 10
Case 0
c = a * 10 + b
Case 1 To 9
c = a * 100 + b
Case 10 to 99
c = a * 1000 + b
End select
Print c
输出：