2.3.1顺序结构.ppt

《普通高中信息技术选修一：算法与程序设计》

睢 宁 县 双 沟 中 学 邢 学 云

1
VB程序一般包含哪几部分？(求圆的面积)
数据类型说明部分
数据的输入部分
数据的处理部分
数据的输出部分
Dim a,r As Single
r=InputBox(“r=”,”输入r的值”)
s=*r*r
Print “圆的面积s=”;s

2
：变量=表达式
赋值语句
例如：
（1）A=B
（2）A=123
（3）A=A+10
：这里的“=”是赋值符号，它的含义是将
表达式的值赋给左边的变量。赋值语句具有赋值
与计算双重功能，并且是先计算后赋值 。

3
动一动
1号瓶子里面装的是红色墨水， 2号瓶子里面装的是蓝色墨水，如果我们要交换两个瓶子里的液体，该怎么办？

4
试一试
开 始
输入a和b
c = a
a = b
b = c
输出a和b
结 束
根据刚才的实践，如果交换两个变量（a和b）怎么做？试试用流程图来表示算法。

5
探一探
Private Sub cmdChange_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

Print "交换后a=" & a & "b="&
End Sub
根据刚才的流程图，交换两个变量的程序代码如右：

6
顺序结构有如下特点：
(1). 程序执行时按由上到下的语句书写顺序执行。
(2).它只有一个入口和一个出口。
这是一种最简单、最基本的结构。
顺序结构的运行流程图
综上所述：
S1
S2
Sn
结束
Sn
…

7
练一练（一）
写出下列程序段的运行结果。
 x = 17 :  y = 5 
x = x + y :  y = x – y
 x = x – y
 Print x 
输出：________
5

8
写出下列程序段的运行结果。
 pi =  
d = Val(InputBox("d="))
 r = d / 2
 
s = pi * r * r
 
Print "s="; s 
输入：4 
输出：________
练一练（二）


9
拓展练****完善程序段）
从键盘上输人一个三位数，然后将它反向输出。例如输入123，输出结果为321
  a =Val(InputBox("请输入一个三位数"))
 
bw = a \ 100 
sw = (a – bw * 100) \ 10
 
gw =   ①   
b = gw * 100 + sw * 10 + bw
 Print   ②
a Mod 10
b
贪粥们召赛办官至锗闭品渔锹极羔莽划察刽现乱司锹