第3章 顺序结构的程序设计

1、计算机教研室计算机教研室2022-5-25第三章第三章 顺序结构的程序设计顺序结构的程序设计 PPT模板下载： 行业PPT模板： 节日PPT模板： PPT素材下载： PPT图表下载： 优秀PPT下载： PPT教程： Word教程： Excel教程： 资料下载： PPT课件下载： 范文下载： 试卷下载： 教案下载： 计算机教研室计算机教研室2022-5-252Contents算法及其描述算法及其描述 1Visual Basic语句书写规则语句书写规则 2赋值语句赋值语句 3其他常用语句和函数其他常用语句和函数 4计算机教研室计算机教研室2022-5-253本章重点：本章重点： 赋值语句、注释语句

2、、赋值语句、注释语句、PrintPrint方法、方法、inputBoxinputBox函数、函数、MsgBoxMsgBox函数和过程的使用。函数和过程的使用。本章难点：本章难点： Print方法与其相关函数方法与其相关函数Tab等的使用。等的使用。 计算机教研室计算机教研室2022-5-2543.1 算法及其描述算法及其描述3.1.1 3.1.1 算法的概念算法的概念1.1.算法及其特征：算法及其特征：所谓所谓算法算法，就是指计算机解决问题的，就是指计算机解决问题的有序步骤有序步骤。对于同一问题，可以有多种不同的算法。对于同一问题，可以有多种不同的算法。计算机教研室计算机教研室2022-5-2

3、55例：求例：求N N！步骤步骤1：输入：输入N的值。的值。步骤步骤2：设两个变量：设两个变量R、I， I为大于等于零的整数，为大于等于零的整数，RI！。令！。令I0，R1。步骤步骤3：I=I+1，R=RI。步骤步骤4：判断：判断IN是否成立。如果成立返回到第三步，如果是否成立。如果成立返回到第三步，如果不成立向下执行。不成立向下执行。步骤步骤5：输出：输出R，即，即N！计算机教研室计算机教研室2022-5-256一个正确有效的算法应具备如下一个正确有效的算法应具备如下特征特征：（1 1）有穷性有穷性：算法应该在有限步内结束。：算法应该在有限步内结束。（2 2）确定性确定性（唯一性）：只要初始

4、条件相同，（唯一性）：只要初始条件相同， 算法应该得到确定相同的结果。算法应该得到确定相同的结果。（3 3）有效性：有效性：算法的每一步必须是可执行的。算法的每一步必须是可执行的。（4 4）有零个或多个输入：有零个或多个输入：算法可以有或者没有算法可以有或者没有 输入数据。输入数据。（5 5）至少有一个输出：至少有一个输出：算法的目的就是求解问算法的目的就是求解问 题，必须向用户输出。题，必须向用户输出。计算机教研室计算机教研室2022-5-2572. 2. 算法的描述：算法的描述：目前计算机程序设计中常用以下方式来描述算法：目前计算机程序设计中常用以下方式来描述算法： 自然语言、流程图、自然

5、语言、流程图、N-SN-S图图（1 1）自然语言：是指人类在日常生活中进行交流的）自然语言：是指人类在日常生活中进行交流的语言。自然语言也可用于描述问题求解的算法，比较通语言。自然语言也可用于描述问题求解的算法，比较通俗，但存在如下的缺点：俗，但存在如下的缺点：文字冗长、有文字冗长、有二义性二义性、表达不确切，、表达不确切， 所以这种描述所以这种描述方法不推荐。方法不推荐。计算机教研室计算机教研室2022-5-258（2 2）流程图：）流程图：是描述算法过程的一种图形方法。直观、形象、易于是描述算法过程的一种图形方法。直观、形象、易于理解，理解，美国国家标准化协会美国国家标准化协会规定的流程图

6、表示的基本图规定的流程图表示的基本图形符号如下：形符号如下： （3 3）N-SN-S图：图： 是流程图的发展，它去掉了流程图中的流程线，全部是流程图的发展，它去掉了流程图中的流程线，全部算法都表示在一个矩形框内。算法都表示在一个矩形框内。开始或结束开始或结束 输入输出输入输出 条件判断条件判断 处理过程处理过程 流程线流程线计算机教研室计算机教研室2022-5-259开始输入NI=0R=1I=I+1R=R*II=4 GOTO ENDIF N=4 GOTO ENDINPUT rINPUT rPRINT 3.14159PRINT 3.14159* *r r* *r r N=N+1N=N+1GOTO

7、 REDOGOTO REDOENDEND10 LET N=110 LET N=12020 IF N=4 GOTO 70 IF N=4 GOTO 7030 INPUT r30 INPUT r40 PRINT 3.1415940 PRINT 3.14159* *r r* *r r 50 N=N+150 N=N+160 60 GOTO 20GOTO 2070 END 70 END 计算机教研室计算机教研室2022-5-25203.3 3.3 赋值语句赋值语句1 1、赋值语句的格式：、赋值语句的格式：格式格式1 1： 变量名变量名= =表达式表达式格式格式2 2： 对象名对象名.属性名属性名= =表达

8、式表达式其基本格式为：其基本格式为：LET LET 变量名变量名= =表达式表达式在实际应用时，在实际应用时，LETLET通常可被省略通常可被省略 变量名变量名: :是我们定义的变量是我们定义的变量 表达式表达式: :可以是变量、常量、算术表达式和逻辑表可以是变量、常量、算术表达式和逻辑表达式。达式。 例如：例如：LET X=1234LET X=1234：LET Y= “LET Y= “中华人民共和国中华人民共和国” X=1234X=1234：Y=“Y=“中华人民共和国中华人民共和国”计算机教研室计算机教研室2022-5-2521 赋值语句的作用是：赋值语句的作用是： 首先首先计算计算“=”=

9、”右边表达式的值，然后将该值右边表达式的值，然后将该值赋给赋给“=”=”左边的变量或对象的属性。左边的变量或对象的属性。在格式在格式2 2中，若对象名省略，则中，若对象名省略，则默认对象为当前窗体默认对象为当前窗体。例如：例如：lx=2 x=2 把把2 2赋给赋给x xly=xy=x* *3 3 计算计算x x* *3 3的值，得的值，得6 6，把，把6 6赋给赋给y ylx=x+1 x=x+1 计算计算x+1x+1的值，得的值，得3 3，把，把3 3赋给赋给x xla$= Hello a$= Hello 把把“Hello”Hello”赋给赋给a$a$lText1.Text=Text1.Tex

10、t=你好！你好！ 把把“你好！你好！”赋给赋给Text1Text1的的TextText属性属性计算机教研室计算机教研室2022-5-2522赋值语句使用时主要注意如下事项：赋值语句使用时主要注意如下事项： 1)1)数值变量的数值变量的初始值一律为初始值一律为0 0。即程序中如果出现一。即程序中如果出现一个没有赋值的变量个没有赋值的变量a a，它自动有一个初始值，它自动有一个初始值0 0。 如果有：如果有：PRINT aPRINT a 输出的值为输出的值为0 0。 字符串变量的隐含初始值为字符串变量的隐含初始值为“空串空串”，即不含任何，即不含任何字符，长度为字符，长度为0 0 。 2 2）一个

11、变量在程序执行期间可以先后有多个不同的）一个变量在程序执行期间可以先后有多个不同的值，但在每一个值，但在每一个瞬时瞬时一个变量只能有一个变量只能有一个唯一的值一个唯一的值。 3)3)若将一个变量的值赋给另一个变量，前一变量的若将一个变量的值赋给另一个变量，前一变量的值保持值保持不变不变。（如。（如a=2: a=2: b=ab=a ）计算机教研室计算机教研室2022-5-2523 4 4）赋值语句的双重功能）赋值语句的双重功能 计算后赋值，计算后赋值， 存在赋值号两边的数据类型不同的情况：存在赋值号两边的数据类型不同的情况： Dim A as integerDim A as integer A=

12、3.5A=3.5 Print A Print A 赋值号赋值号左边左边为为整型变量整型变量只能存放整型数据只能存放整型数据 而赋值号而赋值号右边右边为浮点数，两边的数据类型不同，为浮点数，两边的数据类型不同，必须要进行类型转换必须要进行类型转换。 计算机教研室计算机教研室2022-5-2524注意：赋值语句的类型转换！注意：赋值语句的类型转换！数值数值变量变量= =数值数值表达式表达式 如如 A% = 10 / 3 AA% = 10 / 3 A中的结果为中的结果为3 3数值数值变量变量字符串字符串表达式表达式 当右边表达式为数字字符串，当右边表达式为数字字符串，自动转换成数值。自动转换成数值。

13、 n%=“123” n%=“123” n n中的结果是中的结果是123123，它与，它与n%=Val(“123”)n%=Val(“123”)等效等效 但当表达式有但当表达式有非数字字符非数字字符或空串时，则或空串时，则出错！出错！ n%=”AB123”n%=”AB123” 出现出现“类型不匹配类型不匹配”的错误的错误 n%=” n%=” 出现出现“类型不匹配类型不匹配”的错误的错误计算机教研室计算机教研室2022-5-2525数值数值变量变量= =逻辑型逻辑型表达式表达式 当当逻辑型逻辑型表达式赋值给数值型变量：表达式赋值给数值型变量： 逻辑型常量逻辑型常量True-True- -1-1，逻辑

14、型常量，逻辑型常量False-False- 0 0 Dim A As Boolean, B As Single Dim A As Boolean, B As Single A = True A = True ：B = AB = A Print B Print B逻辑型逻辑型变量变量= =数值数值表达式表达式反之当反之当数值型数值型表达式赋值给表达式赋值给逻辑型逻辑型时时, ,非非0 0数值转数值转化为化为TrueTrue，0 0值时转化为值时转化为FalseFalse Dim A As Boolean, B As Boolean Dim A As Boolean, B As Boolean A

15、 = 1990 A = 1990 ：B = 0B = 0 Print A, B Print A, B计算机教研室计算机教研室2022-5-2526任何任何非字符串非字符串类型的表达式赋值给类型的表达式赋值给字符串型字符串型时，时，自动转换为字符型自动转换为字符型。 Dim A As String, B As Single Dim A As String, B As Single A A 是字符串，而是字符串，而B B是单精度的数是单精度的数 B = 3.1415926B = 3.1415926 A = B A = B 此时此时A A是字符串是字符串“3.14159263.1415926 Pri

16、nt B Print B Print A Print A计算机教研室计算机教研室2022-5-25275)5)赋值号赋值号与与关系运算符关系运算符的等于号都用的等于号都用“= =”表示，表示，VBVB系统会根据所处的位置自动判断。系统会根据所处的位置自动判断。6)6)赋值号赋值号左边左边只能是只能是变量变量，右边右边可以为可以为变量、常量变量、常量或其它的表达式或其它的表达式。 如：如：x=y x=y ： x=x+1 x=x+1 ：X+1=y X+1=y 错误错误7)7)不能在一个语句中同时给不能在一个语句中同时给多个多个变量赋值。变量赋值。如：如： x=y=z=1x=y=z=1 ( (错错)

17、 ) x=y=1 ( x=y=1 (错错) )计算机教研室计算机教研室2022-5-25283.4 3.4 其他常用语句其他常用语句1. 1. 注释语句注释语句 格式：格式： RemRem 注释内容注释内容 或或 注释内容注释内容 (1)(1)注释语句是注释语句是非执行语句非执行语句。 (2)(2)任何字符均可放在注释语句中作为任何字符均可放在注释语句中作为注释内容注释内容。2. 2. 暂停语句暂停语句 格式：格式：Stop Stop 3. 3. 结束语句结束语句 格式：格式：EndEnd 通常用来结束一个程序的执行通常用来结束一个程序的执行. .计算机教研室计算机教研室2022-5-2529

18、3.5 3.5 输入输出语句与函数输入输出语句与函数 常用的常用的输入输入方式有：方式有： 输入数据的输入数据的inputBoxinputBox函数以及函数以及文本框文本框控件。控件。 常用的常用的输出输出方式有：方式有： 文本框文本框控件、控件、标签标签控件、控件、PrintPrint方法、方法、MsgBoxMsgBox函数和过程等。函数和过程等。计算机教研室计算机教研室2022-5-2530 1 1、 PrintPrint方法的一般格式：方法的一般格式： 对象名称对象名称. . PrintPrint SpcSpc(n) | (n) | TabTab(n) (n) 表达式列表表达式列表 对象

19、对象：窗体（窗体（FormForm）、图形框（）、图形框（PictureBoxPictureBox）或或 打印机打印机 。缺省对象为窗体。缺省对象为窗体。SpcSpc( (n n) )函数：函数：插入插入n n个空格个空格。TabTab(n)(n)函数：函数：左端开始右移动左端开始右移动n n列列。 Print tab(25);”ABC”Print tab(25);”ABC”表达式表达式列表列表：是：是一个或多个一个或多个表达式。表达式。若若为多个表达式，则各表达式之间用为多个表达式，则各表达式之间用“，”或或“；”隔开隔开。省略省略此项，则输出一空行。此项，则输出一空行。3.5.1 Prin

20、t3.5.1 Print方法和方法和ClsCls方法方法计算机教研室计算机教研室2022-5-2531 分号分号：紧凑输出紧凑输出，直接将插入点定位在上一个被，直接将插入点定位在上一个被显示字符显示字符之后之后，即紧跟前面字符后输出。，即紧跟前面字符后输出。 逗号逗号：分区打印分区打印，定位在下一个打印区开始处，定位在下一个打印区开始处( (每每个打印区个打印区1414列）。列）。 注：注： PrintPrint语句句尾无分号或逗号，表示输出后换语句句尾无分号或逗号，表示输出后换行。应用于行。应用于ForFor循环控制，起到循环控制，起到换行换行作用。作用。计算机教研室计算机教研室2022-5

21、-2532 PrintPrint方法练习：方法练习： Form1.PrintForm1.Print 欢迎使用欢迎使用Visual Basic Visual Basic Print 1; 2; 3Print 1; 2; 3 Print 4, 5, Print 4, 5, Print Print Print hello; Spc(10); world Print hello; Spc(10); world Print hello; Tab(10); world Print hello; Tab(10); world Print Tab(25); hello ; Tab(30); world Pri

22、nt Tab(25); hello ; Tab(30); world Print Tab(25); 700 Print Tab(25); 700 计算机教研室计算机教研室2022-5-2533Print 12345678901234567890 Print 12345678901234567890 输出此串以标识列号输出此串以标识列号 Print Hello; Tab(20); World; Print Hello; Tab(20); World; 第第2 2个字符串从第个字符串从第2020列开始输出列开始输出 Print Tab(4); Hello; Tab; world;Print Tab

23、(4); Hello; Tab; world; 第第2 2个个TabTab省略了参数省略了参数, , 所以第所以第2 2个字符串从下一个个字符串从下一个 输出区输出区, , 即第即第1515列开始输出列开始输出计算机教研室计算机教研室2022-5-2534在窗体上显示图形: Private Sub Form_Click() For i = 1 To 5 循环变量控制行数 Print Tab(i); String(6 - i, ); Spc(6); String(i, ) Next i End Sub计算机教研室计算机教研室2022-5-2535例例3-1.3-1.在窗体上输出图书销售排行榜，在

24、窗体上输出图书销售排行榜，主要用到主要用到TabTab函数。函数。 PrintPrint Font.Size = 14 Font.Size = 14 Font.Name = Font.Name = 楷体楷体 Print Tab(25); Year(Now) & Print Tab(25); Year(Now) & 年年 & & Month(Now) & Month(Now) & 月份图书销售排行月份图书销售排行 CurrentY = 700 CurrentY = 700 Font.Size = 9 Font.Size = 9 Font.Name

25、= Font.Name = 宋体宋体 计算机教研室计算机教研室2022-5-2536 Print Tab(15); Print Tab(15); 书名书名; Tab(55); ; Tab(55); 出版社出版社; ; Tab(75); Tab(75); 销售数量销售数量 Print Tab(14); String(75, _) Print Tab(14); String(75, _) 从第从第1414列列开始输出由开始输出由7575个个_组成的字符串组成的字符串 Print Tab(15); Print Tab(15); 内科学内科学; Tab(55); ; Tab(55); 清华大清华大学出

26、版社学出版社; Tab(75); 5000; Tab(75); 5000 Print Tab(15); Visual BasicPrint Tab(15); Visual Basic程序程序; ; Tab(55); Tab(55); 清华大学出版社清华大学出版社; Tab(75); 4700; Tab(75); 4700 Print Tab(15); Print Tab(15); 大学计算机基础大学计算机基础; Tab(55); ; Tab(55); 清华大学出版社清华大学出版社; Tab(75); 4500; Tab(75); 4500计算机教研室计算机教研室2022-5-2537计算机教研

27、室计算机教研室2022-5-2538例例3-2 Print3-2 Print输出格式控制输出格式控制 Private Sub Form_Click()Private Sub Form_Click() Print 12345678901234567890 Print 12345678901234567890 Print Hello, World Print Hello, World Print Hello; world Print Hello; world Print Hello;Print Hello; Print world Print world End SubEnd Sub计算机教研室计

28、算机教研室2022-5-2539计算机教研室计算机教研室2022-5-25402. Cls2. Cls方法方法 作用：作用：清除清除FormForm或或PictureBoxPictureBox中由中由PrintPrint方法和方法和图形方法图形方法在运行时所生成的在运行时所生成的文本或图形。文本或图形。 格式：格式： 对象名称对象名称. Cls. Cls 举例举例：Form.clsForm.cls或或PictureBox.clsPictureBox.cls 计算机教研室计算机教研室2022-5-2541 3.5.2 InputBox3.5.2 InputBox函数函数 作用：作用：产生产生一个

29、对话框，等待用户输入一个对话框，等待用户输入数据数据，“确定确定”后函后函数返回输入的值，为数返回输入的值，为字符型字符型。 格式：格式： inputBoxinputBox( (提示提示 ，标题标题，缺省缺省，x x 坐标位置坐标位置，y y坐标位置坐标位置) 计算机教研室计算机教研室2022-5-2542 例如：有下列语句如下例如：有下列语句如下: : Dim x% Dim x% x x= = Val(InputBox(“ Val(InputBox(“请输入一个数请输入一个数”, “, “输入框输入框”, 100), 100) 语句执行后打开如下对话框：语句执行后打开如下对话框：缺省值缺省值

30、标题标题提示提示计算机教研室计算机教研室2022-5-2543例例3-3 3-3 编写程序，计算一个球的体积和表面积。编写程序，计算一个球的体积和表面积。Private Sub Form_Load() AutoRedraw = True Form_Load中，只有将中，只有将AutoRedraw 设置设置为为True时，时，Print方法才能生效方法才能生效 Print 计算一个球的体积和表面积计算一个球的体积和表面积 Print 单击窗体开始单击窗体开始End Sub计算机教研室计算机教研室2022-5-2544Private Sub Form_Click() Dim Pi As Singl

31、e, R As Single, S As Single, V As Single Pi = 3.14159 R = Val(InputBox$(输入球半径输入球半径, 球的体积和球的体积和表面积表面积) S = 4 * Pi * R * R V = 4 / 3 * Pi * R 3 Print 球的体积球的体积; V Print 球的面积球的面积; S End Sub 计算机教研室计算机教研室2022-5-2545 3.5.3 MsgBox3.5.3 MsgBox函数和过程函数和过程 作用：作用： 弹出信息框，向用户提示错误或警告信息，弹出信息框，向用户提示错误或警告信息， 并并等待等待用户选

32、择信息框中的某一按钮用户选择信息框中的某一按钮 函数函数形式形式： 变量变量% = = MsgBox MsgBox( (提示提示,按钮按钮，标题，标题) 过程过程形式形式： MsgBoxMsgBox 提示提示,按钮类型按钮类型,标题标题 区别区别： MsgBoxMsgBox函数函数 返回返回整形值整形值 MsgBoxMsgBox过程过程 无返回值无返回值计算机教研室计算机教研室2022-5-2546 MsgBoxMsgBox函数函数举例：举例：Private SubPrivate Sub Form_Click()Form_Click() msg1=“ msg1=“继续执行吗？继续执行吗？” msg