2.2-程序的顺序结构粤教版

程序的顺序结构广东版教材高中信息技术（选修1）《算法与程序设计》第二章程序设计基础第二节回顾上一节课常量、变量、表达式的概念？VB中的常用基本数据类型有哪些？在vb中，表达式3*8/2\8*3的值是（）

A0 B3 C4.5 D9代数式的vb表达式是：

(-b+sqr(b*b-4*a*c))/(2*a)A

一.居民生活消费支出的计算2-1：根据国家营养学会推荐的食品定量标准及某年某县农村住户调查资料，该县农村住户基本食品消费项目、数量（每人每年）和单价如表下表所示。（1）求基本食品消费支出（2）如果按照联合国粮农组织提出的贫困标准，把基本食品消费支出占总的生活消费支出的比重定为60%，求总的生活消费支出。项目粮食蔬菜油脂薯类肉类豆干蛋类鱼虾乳类水果数量（kg）1701443361812662410单价（元/kg）2.461.429.411.1412.742.496.679.322.642.07（1）分析问题设基本食品消费支出为x，则

x=170*2.46+144*1.42…+10*2.07

设总的生活消费支出为y，则

y=x/60%（2）设计算法①给消费的基本食品的数量赋值；②输入各食品单价；③计算基本食品消费支出x=170*2.46…+10*2.07④计算总的生活消费支出y=x/60%⑤输出基本食品消费支出x⑥输出总的生活消费支出y⑦结束用计算机解决问题的过程（3）编写程序PrivateSubCommand1_Click() Consts1AsInteger=170,s2AsInteger=144,s3AsInteger=3,s4AsInteger=36,s5AsInteger=18,s6AsInteger=12,s7AsInteger=6,s8AsInteger=6,s9AsInteger=24,s10AsInteger=10 Dimd1AsSingle,d2AsSingle,d3AsSingle,d4AsSingle,d5AsSingle,d6AsSingle,d7AsSingle,d8AsSingle,d9AsSingle,d10AsSingle DimxAsSingle,yAsSingle d1=Val(InputBox("请输入粮食的单价：")) d2=Val(InputBox("请输入蔬菜的单价：")) d3=Val(InputBox("请输入油脂类的单价：")) d4=Val(InputBox("请输入薯类的单价：")) d5=Val(InputBox("请输入肉类的单价：")) d6=Val(InputBox("请输入干豆类的单价：")) d7=Val(InputBox("请输入蛋类的单价：")) d8=Val(InputBox("请输入鱼虾的单价：")) d9=Val(InputBox("请输入乳类的单价：")) d10=Val(InputBox("请输入水果的单价：")) x=s1*d1+s2*d2+s3*d3+s4*d4+s5*d5+s6*d6+s7*d7+s8*d8+s9*d9+s10*d10 y=x/0.6

Print"基本食品消费支出x＝";x

Print"总的生活消费支出y＝";yEndSub（4）调试程序开始语句1语句2……语句n结束顺序结构的运行流程图按由上到下的书写顺序执行只有一个入口和一个出口什么是顺序结构？将语句逐条顺序排列，执行时按语句出现的顺序执行，这样的控制结构称为程序的顺序结构。程序的顺序结构顺序结构de特点：二、顺序结构的三大基本语句1.赋值语句2.输入数据的函数InputBox()3.输出数据的方法Print功能：能将表达式的值赋给左边变量的语句基本格式：变量=表达式

注意：赋值符号要与数学中的等号相区别赋值符号1.赋值语句例子：

r=InputBox("r=","输入半径")

将赋值符号右边的InputBox

("r=","输入半径")的值赋给变量r思考下列语句（1）A=1234（2）B=1000（3）C=A+B（4）B=B+1（5）A=A+10（6）A=A*10（7）A=30，B=40T=A，A=B，B=TA=?，B=?赋值计算计数器累加器累乘器交换器说明：

①提示信息：对输入数据的提示，显示在弹出的对话框中，不能省略。②标题：运行函数后弹出对话框的标题。③默认值：默认的输入数据值。④坐标位置：运行函数后弹出的对话框左上角在屏幕上的坐标位置。

功能：提供从键盘输入数据的函数基本格式：

InputBox(“提示信息”,”标题”,默认值,坐标位置)不可以省略可以省略2.输入数据的函数InputBox()功能：提供从键盘输入数据的函数基本格式：

InputBox(“提示信息”,”标题”,默认值,坐标位置)不可以省略可以省略例：InputBox(“A=”,“输入”,12,100,20)提示信息标题默认值对话框左上角坐标2.输入数据的函数InputBox()功能：提供从键盘输入数据的函数基本格式：

InputBox(“提示信息”,”标题”,默认值,坐标位置)不可以省略可以省略2.输入数据的函数InputBox()例:r=InputBox(“R=”,“输入三位数")提示信息标题功能：能将变量或表达式的值输出到窗体上的方法。基本格式：Print输出内容注意：输出内容可以是数、变量、表达式，也可以是字符串。输出内容说明(1)输出内容是数、变量、表达式(先计算，后输出计算值)

Print5＋3

结果为

8

Print"x=“;5＋3 结果为

x=8输出内容是引号引起来的字符串

→原样输出

Print"你好"

结果为你好3.输出数据的方法Print功能：能将变量或表达式的值输出到窗体上的方法。基本格式：Print输出内容注意：输出内容可以是数、变量、表达式，也可以是字符串。输出格式说明(2)输出内容是多个时，输出内容之间可以用逗号或分号分隔;①分号：则后面一个输出内容紧跟前一个输出（紧凑格式）

Print"早安";"中国"

结果为早安中国②逗号，则按照分区(14个字符位置)格式输出（分区格式）

Print"早安","中国"

结果为早安中国3.输出数据的方法Print功能：能将变量或表达式的值输出到窗体上的方法。基本格式：Print输出内容注意：输出内容可以是数、变量、表达式，也可以是字符串。输出格式说明(2)③Print语句末尾带有分号或逗号：则下一个输出语句中的输出内容不换行，直接在当前行输出。（句末标点格式）Print"早安";"中国",

Print"x=";

Print5＋3,Print"早安","中国"

3.输出数据的方法Print功能：能将变量或表达式的值输出到窗体上的方法。基本格式：Print输出内容注意：输出内容可以是数、变量、表达式，也可以是字符串。输出格式说明(3)④如果输出内容后面没有符号，则表示下一个Print换行输出；如果Print中没有输出内容，则表示输出一个空行。print"

x=";

5+3,"

y=";

5-3PrintPrint"

China"

3.输出数据的方法Print课堂练习@选择题下列赋值语句中，（）是错误的。 A.X=X+1 B.X=X+Y C.X+Y=X D.X=4>6

[答案：C]赋值号左边的变量只能是变量，不能是常量、常数、表达式。课堂练习@选择题下列程序的功能是求两个数a,b的（）PrivateSubCommand1_Click()a=InputBox("a=","输入")b=InputBox("b=","输入")Max=(a+b)/2+Abs(a-b)/2Print"Max=";MaxEndSubA.最大值

B.最小值

C.中间值

D.求不出最大值课堂练习@选择题下列程序的功能是求两个数a,b的（）PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("a=","输入",0)b=InputBox("b=","输入",0)Min=(a+b)/2-Abs(a-b)/2Print"Min=";MinEndSubA.最大值

B.最小值

C.中间值

D.求不出最大值课堂练习@选择题下列程序的功能是求两个数a,b的（）PrivateSubCommand1_Click()a=Val(InputBox("a=","输入"))b=Val(InputBox("b=","输入"))Max=(a+b)/2+Abs(a-b)/2Print"Max=";MaxEndSubA.最大值

B.最小值

C.中间值

D.求不出最大值语句x=x+1的含义是x与x+1相等。()课堂练习@判断题实践P37P40-(2)练一练：试编写一个程序，实现输入长方体的长、宽、高，求长方体的表面积和体积。开始输入a输入b输入c根据公式：s=2*(a*b+a*c+b*c)根据公式：v=a*b*c输出v输出s结束Dima,b,c,s,vAsSinglea=InputBox("长=","输入")b=InputBox("宽=","输入")c=InputBox("高=","输入")v=a*b*cs=2*(a*b+b*c+a*c)Print“表面积s=”;sPrint“体积v=”，v从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应是654。作业例题：求反向三位数-编写程序开始输入一个三位数r的值a=r\100结束b=(rmod100)\10c=rmod10r=c*100+b*10+a输出r的值PrivateSubCommand1_Click()Dimaasinteger,basinteger,casinteger,rasintegerr=inputbox（“r=”,“输入三位数")a=r\100b=(rmod100)\10c=rmod10r=c*100+b*10+aPrint“反向三位数是”；rEnd