《计算机应用基础》课程教学资源（PPT课件讲稿，VB相关）程序结构_程序结构

4.1.4程序结束语句 格式： End 功能：用于结束程序的运行 为了保持程序的完整性并使程序能够正常结 束，在程序中应当含有End语句，并且通过 End语句来结束程序的运行，而不仅仅是通 过窗口的关闭按钮来结束程序的运行

1 4.1.4 程序结束语句 格式： End 功能：用于结束程序的运行 为了保持程序的完整性并使程序能够正常结 束，在程序中应当含有End语句，并且通过 End语句来结束程序的运行，而不仅仅是通 过窗口的关闭按钮来结束程序的运行

3.1.1程序语句书写规则 Visual Basic程序语句书写规则如下： (1)语句输入时不区分字母大小写， 条语句通常写在 行中，一行最多允许有255个字符： (2)若在一个代码行中输入多条语句，需用冒号“：”分 隔，如：=a:a=b:b=t; (3)对很长的代码行在行尾可以使用“空格”和下划线 66 ”组成连接符，将上、下两行连接成一个语句行； (4)在选择或循环结构的程序中要注意代码按照缩进格式 来写，以使代码具有较好的可读性，如以下是一个选择 结构的示例代码： If a<b then T=a'缩进了2个字符 Else t=b 缩进了2个字符 End if 合

2 3.1.1程序语句书写规则 Visual Basic程序语句书写规则如下： （1）语句输入时不区分字母大小写，一条语句通常写在一 行中，一行最多允许有255个字符； （2）若在一个代码行中输入多条语句，需用冒号“：”分 隔，如：t=a:a=b:b=t ； （3）对很长的代码行在行尾可以使用“空格”和下划线 “_”组成连接符，将上、下两行连接成一个语句行； （4）在选择或循环结构的程序中要注意代码按照缩进格式 来写，以使代码具有较好的可读性，如以下是一个选择 结构的示例代码： If a<b then T=a ' 缩进了2个字符 Else t=b ' 缩进了2个字符 End if

3.1.2编程时几个常用语句 1.程序注释语句 注释语句是一种非执行语句，在程序代码中起到解释、说明的作用， 以提高程序的可读性，注释语句以Rem或单引号“”开头，有以下两 种定义格式： 【格式一】Rem注释内容 【格式二】'注释内容 【说明】 （1)注释语句可单独占一行，也可以放在语句的后面； (2)若在语句行后面使用Rem关键字，则必须使用冒号“：”与语句隔 开； (3)若在语句行后面使用“”关键字，则不必使用冒号“：”与语句隔 开； (4)单引号必须是英文半角的单撇号。 如下示例所示： Rem程序功能：统计学生人数 开发者：王大学 开发日期：2009年10月31日 Dimn?s integer,声明一个整刑变量m

3 3.1.2 编程时几个常用语句 1. 程序注释语句 注释语句是一种非执行语句，在程序代码中起到解释、说明的作用， 以提高程序的可读性，注释语句以Rem或单引号“'”开头，有以下两 种定义格式： 【格式一】Rem 注释内容 【格式二】' 注释内容 【说明】 （1）注释语句可单独占一行，也可以放在语句的后面； （2）若在语句行后面使用Rem关键字，则必须使用冒号“：”与语句隔 开； （3）若在语句行后面使用“'”关键字，则不必使用冒号“：”与语句隔 开； （4）单引号必须是英文半角的单撇号。 如下示例所示： Rem 程序功能：统计学生人数 ' 开发者：王大学 ' 开发日期：2009年10月31日 Dim n as integer ' 声明一个整型变量n

2.暂停语句Stop Stop语句用来暂停程序的执行，相当于在代码中设置 断点，主要用于调试程序。 【格式】Stop 【说明】 Stop语句的主要作用是把解释程序置为中断 (Break)模式，以便对程序进行检查和调试。 ● 可以在程序的任何地方放置Stop语句，当执行Stop 语句时，系统将自动打开立即窗口。 Stop语句不会关闭任何文件或清除变量。 如果在可执行文件(.exe)中含有Stop语句，则将 关闭所有的文件而退出程序。因此，当程序调试结 束后，在生成可执行文件(.exe)之前，应清除代 码中所有的Stop语句

4 2. 暂停语句Stop Stop语句用来暂停程序的执行，相当于在代码中设置 断点，主要用于调试程序。 【格式】Stop 【说明】 ⚫ Stop语句的主要作用是把解释程序置为中断 （Break）模式，以便对程序进行检查和调试。 ⚫ 可以在程序的任何地方放置Stop语句，当执行Stop 语句时，系统将自动打开立即窗口。 ⚫ Stop语句不会关闭任何文件或清除变量。 ⚫ 如果在可执行文件（.exe）中含有Stop语句，则将 关闭所有的文件而退出程序。因此，当程序调试结 束后，在生成可执行文件（.exe）之前，应清除代 码中所有的Stop语句

3程序结束语句 格式： End 功能：用于结束程序的运行 为了保持程序的完整性并使程序能够正常结 束，在程序中应当含有End语句，并且通过 End语句来结束程序的运行，而不仅仅是通 过窗口的关闭按钮来结束程序的运行

5 3 程序结束语句 格式： End 功能：用于结束程序的运行 为了保持程序的完整性并使程序能够正常结 束，在程序中应当含有End语句，并且通过 End语句来结束程序的运行，而不仅仅是通 过窗口的关闭按钮来结束程序的运行

End终止程序的运行 End Sub终止一个过程 End Function终止一个函数 End If终止条件语句 End Type终止类型声明 End Select终止情况语句图3-1顺序结构程序 流程图 End Property终止属性过程 End With终止With语句

6 End 终止程序的运行 End Sub 终止一个过程 End Function 终止一个函数 End If 终止条件语句 End Type 终止类型声明 End Select 终止情况语句图3-1顺序结构程序 流程图 End Property 终止属性过程 End With 终止With语句

4G0T0语句 格式： GoT0行标签|行号 功能：无条件地转移到行标签或行号指定的 行处开始执行。 ■行标签：一个以冒号结尾的标识符。 ■行号：一个整型数

7 4 GoTo语句 格式： 功能：无条件地转移到行标签或行号指定的 行处开始执行。 ◼ 行标签：一个以冒号结尾的标识符。 ◼ 行号：一个整型数。 GoTo 行标签 | 行号

G0To语句示例： 10: MyString="aaaaaaaaaaaaaaa" GoTo LastLine 20 MyString "bbbbbbbbbbbbbbb" LastLine: Print MyString

8 GoTo语句示例： 10: MyString = "aaaaaaaaaaaaaaa" GoTo LastLine 20 MyString = "bbbbbbbbbbbbbbb" LastLine: Print MyString

3.1.3顺序结构程序设计 计算机在执行顺序结构的程序时，按语句 出现的先后次序从上到下（或从左到右）依 次执行。用传统流程图表示的顺序结构如下 图。 A B

9 3.1.3 顺序结构程序设计 计算机在执行顺序结构的程序时，按语句 出现的先后次序从上到下（或从左到右）依 次执行。用传统流程图表示的顺序结构如下 图

【例3.1】从键盘上输入圆的半径，计算圆的面积和周长并 输出 打开“代码设计”窗口，添加窗体的Activate事件代码如下： Private Sub Form_Activate( Dim r As Single,s As Single,.IAs Single'声明3个变量 Const piAs Single=3.14159'声明符号常量pi r=InputBox("请输入圆的半径："，"数据输入") s=pi*r2'计算圆面积 I=2*pi*r'计算圆周长 Print'输出一个空行，为了使输出结果比较清楚 Print"圆面积="；s Print Print"圆周长="；l End Sub 10

10 【例3.1】 从键盘上输入圆的半径，计算圆的面积和周长并 输出 打开“代码设计”窗口，添加窗体的Activate事件代码如下： Private Sub Form_Activate() Dim r As Single, s As Single, l As Single ' 声明3个变量 Const pi As Single = 3.14159 ' 声明符号常量pi r = InputBox("请输入圆的半径：", "数据输入") s = pi * r ^ 2 ' 计算圆面积 l = 2 * pi * r ' 计算圆周长 Print ' 输出一个空行，为了使输出结果比较清楚 Print "圆面积="; s Print Print "圆周长="; l End Sub