2.2_程序的顺序结构

1、第二节 程序的顺序结构,第二章 程序设计基础,P32,VB程序一般包含哪几部分？(求圆的面积),知识回顾,一.居民生活消费支出的计算,2-1：根据国家营养学会推荐的食品定量标准及某年某县农村住户调查资料，该县农村住户基本食品消费项目、数量（每人每年）和单价如表下表所示。 （1）求基本食品消费支出 （2）如果按照联合国粮农组织提出的贫困标准，把基本食品消费支出占总的生活消费支出的比重定为60%，求总的生活消费支出。,阅读课本P32-40,1、读懂居民生活消费支出的程序 2、了解赋值语句 3、输入数据的函数 4、输出数据的方法,（1）分析问题 设基本食品消费支出为x，则 x=170*2.46+14

2、4*1.42+10*2.07 设总的生活消费支出为y，则 y=x / 60%,（2）设计算法 给消费的基本食品的数量赋值； 输入各食品单价； 计算基本食品消费支出x=170*2.46+10*2.07 计算总的生活消费支出y=x / 60% 输出基本食品消费支出x 输出总的生活消费支出y 结束,用计算机解决问题的过程,（3）编写程序 Private Sub Command1_Click() Const s1 As Integer = 170, s2 As Integer = 144, s3 As Integer = 3, s4 As Integer = 36, s5 As Integer = 1

3、8, s6 As Integer = 12, s7 As Integer = 6, s8 As Integer = 6, s9 As Integer = 24, s10 As Integer = 10 Dim d1 As Single, d2 As Single, d3 As Single, d4 As Single, d5 As Single, d6 As Single, d7 As Single,d8 As Single, d9 As Single, d10 As Single Dim x As Single, y As Single d1 = Val(InputBox(请输入粮食的单价：

4、) 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 +

5、s4 * d4 + s5 * d5 + s6 * d6 + s7 * d7 + s8 * d8 + s9 * d9 + s10 * d10 y = x / 0.6 Print 基本食品消费支出x; x Print 总的生活消费支出y; y End Sub （4）调试程序,顺序结构的运行流程图,什么是顺序结构？ 将语句逐条顺序排列，执行时按语句出现的顺序执行，这样的控制结构称为程序的顺序结构。,程序的顺序结构,顺序结构的特点：,二、顺序结构的三大基本语句,1.赋值语句 2.输入数据的函数InputBox() 3.输出数据的方法Print,功能：能将表达式的值赋给左边变量的语句 基本格式：变量 =

6、 表达式,注意：赋值符号要与数学中的等号相区别,赋值符号,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 = 40 T = a: a = b: b = T Print a=; a Print b=; b,赋值,计算,计数器,累加器,累乘器,交换器,说明： 提示信息：对输入数据的提示，显示在弹出的对话框中，不能省略。 标题：运行函数后弹出对话框的标题。

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

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

9、法。 基本格式： Print 输出内容,注意：输出内容可以是数、变量、表达式，也可以是字符串。,输出格式说明(2) 输出内容是多个时，输出内容之间可以用逗号或分号分隔; 分号：则后面一个输出内容紧跟前一个输出（紧凑格式） Print 早安;中国 结果为 早安中国 逗号，则按照分区(14个字符位置)格式输出（分区格式） Print 早安,中国 结果为 早安中国,3.输出数据的方法Print,功能：能将变量或表达式的值输出到窗体上的方法。 基本格式： Print 输出内容,注意：输出内容可以是数、变量、表达式，也可以是字符串。,输出格式说明(2) Print语句末尾带有分号或逗号：则下一个输出语句

10、中的输出内容不换行，直接在当前行输出。（句末标点格式） Print 早安;中国, Print x= ; Print 53, Print 早安,中国,3.输出数据的方法Print,功能：能将变量或表达式的值输出到窗体上的方法。 基本格式： Print 输出内容,注意：输出内容可以是数、变量、表达式，也可以是字符串。,输出格式说明(3) 如果输出内容后面没有符号，则表示下一个Print换行输出；如果Print中没有输出内容，则表示输出一个空行。 print x= ; 5 + 3, y= ; 5 - 3 Print Print China ,3.输出数据的方法Print,课堂练习选择题,下列赋值语句

11、中，（ ）是错误的。 A.X=X+1 B.X=X+Y C.X+Y=X D.X=4 答案：C赋值号左边的变量只能是变量，不能是常量、常数、表达式。,思考：两个数比较大小,若a=b，则 |a-b|=a-b，所以 (a+b)+|a-b|)/2=(a+b+a-b)/2=a， 若 ab，则 |a-b|=b-a，所以 (a+b)+|a-b|)/2=(a+b+b-a)/2=b， 因此，a、b的最大值=max=(a+b)+|a-b|)/2,If 语句： Dim a, b As Integer a = InputBox(a=) b = InputBox(b=) If a = b Then Print a Els

12、e Print b,课堂练习选择题,下列程序的功能是求两个数a,b的（ ） Private Sub Command1_Click() a = InputBox(a=, 输入) b = InputBox(b=, 输入) Max = (a + b) + Abs(a - b) )/ 2 Print Max=; Max End Sub A.最大值B.最小值C.中间值D.求不出最大值,D,课堂练习选择题,下列程序的功能是求两个数a,b的（ ） Private Sub Command1_Click() Dim a As Integer, b As Integer a = InputBox(a=, 输入)

13、b = InputBox(b=, 输入) Min = (a + b) / 2 - Abs(a - b) / 2 Print Min=; Min End Sub A.最大值B.最小值C.中间值D.求不出最小值,B,课堂练习选择题,下列程序的功能是求两个数a,b的（ ） Private Sub Command1_Click() a = Val(InputBox(a=, 输入) b = Val(InputBox(b=, 输入) Max = (a + b) / 2 + Abs(a - b) / 2 Print Max=; Max End Sub A.最大值B.最小值C.中间值D.求不出最大值,A,VB

14、数据类型转换函数：,练一练：试编写一个程序，实现输入长方体的长、 宽、高，求长方体的表面积和体积。,开始,输入a,输入b,输入c,根据公式：s=2*(a*b+a*c+b*c),根据公式：v=a*b*c,输出v,输出s,结束,Dim a, b, c, s, v As Single,a = InputBox(长=, 输入),b = InputBox(宽=, 输入),c = InputBox(高=, 输入),v = a * b * c,s = 2*(a * b + b * c + a * c),Print “表面积s=”; s,Print “体积v=”; v,从键盘上输入一个三位整数，然后将它反向输

15、出。例如输入456，输出应是654。,练习：,例题：求反向三位数-编写程序,开始,输入一个三位数r的值,a= r 100,结束,b= (r mod 100) 10,c= r mod 10,r = c*100+ b*10 + a,输出r的值,Private Sub Command1_Click(),Dim a as integer,b as integer, c as integer,r as integer,r=inputbox（“r=” ,“输入三 位数),a= r 100,b= (r mod 100) 10,c= r mod 10,r = c*100+ b*10 + a,Print “反向

16、三位数是”；r,End Sub,参考程序：,Dim a, b, c As Integer a = InputBox(a=, 请输入三位整数。) a1 = a 100 a2 = (a - a1 * 100) 10 a3 = a - a1 * 100 - a2 * 10 b = a3 * 100 + a2 * 10 + a1 print 这三位数反向输出为：; Str(b),探究:,当输入的三位数末位为0时(如230),运行程序的结果还是三位数吗?,参考程序：,Dim a, a1, a2, a3, b As Integer Dim c, d As String a = InputBox(a=, 请输入三位整数。) a1 = a 100 a2 = (a - a1 * 100) 10 a