22程序的顺序结构（二）

1、内江六中内江六中 技术组技术组 尤尤 丹丹 欢迎各位领导、老师的光临指导！欢迎各位领导、老师的光临指导！ 2 2.2 2.2 程序的顺序结构程序的顺序结构 Private Sub Command1_Click()Private Sub Command1_Click() Const PI As Single = 3.14 Const PI As Single = 3.14 Dim r As Single, s As Single Dim r As Single, s As Single r = r = InputBoxInputBox( r= , ( r= , 输入半径输入半径) s = PI

2、s = PI * * r r * * r r Print Print 圆的面积圆的面积 s= ; ss= ; s End SubEnd Sub 一、温故知新：一、温故知新： 一、温故知新：一、温故知新： InputBoxInputBox( r= , ( r= , 输入半径输入半径) s = PI s = PI * * r r * * r r Print Print 圆的面积圆的面积 s= ; ss= ; s 赋值语句赋值语句 输入数据的函数输入数据的函数 输出数据的语句输出数据的语句 二、知识应用：二、知识应用： 1、赋值语句、赋值语句 （2）作用：将表达式的值赋给左边的变量 （1）基本格式：

3、变量=表达式 二、知识应用：二、知识应用： 1、赋值语句、赋值语句 变量a的值为10，b的值为20； 请编写程序，交换a，b的值； a=10 b=20 c=a a=b b=c 学生活动一 二、知识应用：二、知识应用： 2 2、输出数据的语句、输出数据的语句 （1）基本格式：Print 输出内容 （2）作用：输出数据 二、知识应用：二、知识应用： 2 2、输出数据的语句、输出数据的语句 (1)输出内容是变量、表达式，输出它们的值。 (2)输出内容是字符串，则输出双引号内的内容。 (3)各输出内容之间用 ；分隔，则按紧凑格式输出。 (4)各输出内容之间用 ，分隔，则按分区格式输出。 二、知识应用：

4、二、知识应用： 2 2、输出数据的语句、输出数据的语句 请编写程序，一行输出5个*； Print * 学生活动二 二、知识应用：二、知识应用： 3、输入数据的函数、输入数据的函数 （2）作用：提供从键盘上输入数据的函数 （1）基本格式：InputBox（提示信息，标题） 二、知识应用：二、知识应用： 3、输入数据的函数、输入数据的函数 请编写程序，实现从键盘上 输入任意符号，并显示出来； x=InputBox(“输入”) Print x 学生活动三 三、课堂练习：三、课堂练习： 学生活动四 1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分； (1)分析问题 x y z s p 设置的

5、变量 语文： 英语： 平均分： 数学： 总分： 三、课堂练习：三、课堂练习： 学生活动四 1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分； (1)分析问题s=x+y+z p=s/3 列出数学公式 总分： 平均分： 三、课堂练习：三、课堂练习： 学生活动四 1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分； (2)设计算法 (自然语言描述) x,y,zx,y,z的值的值 s=x+y+z p=s/3 s,p的值 输入 计算 计算 输出 三、课堂练习：三、课堂练习： 学生活动四 1、请编写程序计算语文、数学、 英语三科成绩的总分、平均分； (3)编写程序 Private Sub

6、 Command1_Click() End Sub 三、课堂练习：三、课堂练习： 学生活动四 2、从键盘输入一个三位整数，将 它反向输出； 输入：456 输出：654 4656 5 4 四、知识梳理、总结：四、知识梳理、总结： 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 思考： 这个程序是按 什么顺序执行？ 开始开始 结束结束 语句语句1 1 语句语句2 2 语句语句N N 执行顺序：执行顺序： 当执行第一条语句后，必 须从第二条语句执行，顺序执 行所有的语句，直到执行完最 后一条语句为止。 程序特点：程序特点： 在这个结构内按由上到下 的书写顺序执行，它只有一个 入口和一个出口。 四、知识梳理、总结：四、知识梳理、总结： 五、知识扩展：五、知识扩展