2.2程序的顺序结构(二) 公开课课件

欢迎各位领导、老师的光临指导！
2.2 程序的顺序结构
2
一、温故知新：
Private Sub Command1_Click() Const PI As Single = 3.14 Dim r As Single, s As Single r = InputBox(" r= ", "输入半径") s = PI * r * r Print "圆的面积 s= "; s
二、知识应用：
2、输出数据的语句
学生活动二
请编写程序，一行输出5个*；
Print "*****"
二、知识应用：
3、输入数据的函数
（1）基本格式：InputBox（提示信息，标题） （2）作用：提供从键盘上输入数据的函数
二、知识应用：
学生活动三
3、输入数据的函数
请编写程序，实现从键盘上 输入任意符号，并显示出来；
1、赋值语句
变量a的值为10，b的值为20； 请编写程序，交换a，b的值；
a=10
c=a
a=b
b=20
b=c
二、知识应用：
2、输出数据的语句
（1）基本格式：Print 输出内容 （2）作用：输出数据
二、知识应用：
2、输出数据的语句
(1)输出内容是变量、表达式，输出它们的值。 (2)输出内容是字符串，则输出双引号内的内容。 (3)各输出内容之间用 ；分隔，则按紧凑格式输出。 (4)各输出内容之间用 ，分隔，则按分区格式输出。
End Sub
一、温故知新：
s = PI * r * r
赋值语句
InputBox(" r= ", "输入半径")
输入数据的函数
Print "圆的面积 s= "; s
输出数据的语句
二、知识应用：
1、赋值语句
（1）基本格式：变量=表达式 （2）作用：将表达式的值赋给左边的变量
二、知识应用：
学生活动一
程序特点：
在这个结构内按由上到下 的书写顺序执行，它只有一个 入口和一个出口。
五、知识扩展：
鸡兔同笼问题： 有若干只鸡和兔在同一个笼子里，
从上面数有a个头，从下面数有b只脚， 求笼中各有几只鸡和兔？
感谢领导、老师们的光临指导 谢谢同学们的认真
1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分；
Private Sub Command1_Click()
(3)编写程序
End Sub
三、课堂练习：
学生活动四
2、从键盘输入一个三位整数，将 它反向输出； 输入：456 输出：654
456 654
四、知识梳理、总结：
Dim a As Integer Dim b As Integer
思考：
Dim c As Integer a = InputBox("a=") b = InputBox("b=")
这个程序是按 什么顺序执行？
c=a
a=b
b=c
Print "a="; a, "b="; b
四、知识梳理、总结：Fra bibliotek开始 语句1 语句2
… 语句N 结束
执行顺序：
当执行第一条语句后，必 须从第二条语句执行，顺序执 行所有的语句，直到执行完最 后一条语句为止。
x=InputBox(“输入”) Print x
三、课堂练习：
学生活动四
1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分；
①设置的变量
语文： x
(1)分析问题 数学： 英语：
y z
总分： s
平均分： p
三、课堂练习：
学生活动四
1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分；
②列出数学公式
(1)分析问题 总分： s=x+y+z 平均分： p=s/3
三、课堂练习：
学生活动四
1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分；
①输入 x,y,z的值
(2)设计算法 ②计算 s=x+y+z (自然语言描述) ③计算 p=s/3
④输出 s,p的值
三、课堂练习：
学生活动四