第3章 程序结构w 3.1 程序流程控制 w 3.2 基于模块建立程序 w 3.3 过程与函数 w 3.4 常用内置函数 w 3.5 面向对象编程3.1 程序流程控制w 3.1.1 分支结构 w 3.1.2 循环结构 w 3.1.3 嵌套控制结构 返回首页3.1.1 分支结构w 分支结构的作用是使程序依照条件而走不同的支 路。Visual Basic 支持的分支结构有： If.Then.If.Then.Else.Select Case 1If.Then. 语句（如图31所示） w 用 If.Then 结构可以有条件地执行其结构内的一 条或多条语句。 w 当有条件地执行一条语句时，语法格式：If 条件表达式 Then 单条语句w 当有条件地执行多条语句时，语法格式：If 条件表达式 Then 多条语句End If If.Then.图3-1 基本分支结构2If.Then.Else. 语句（如图32所示） w 可以使用 If.Then.Else.语句建立多个分支流程，并根 据条件选择其中一个分支。其语法结构是：If 条件1 Then语句块1ElseIf 条件2 Then语句块2 .Else语句块nEnd If图3-2 扩充分支结构 图3-3 多分支结构3Select Case 语句（如图33所示） w Select Case的语法结构是：Select Case 测试条件 Case 表达式1语句块1 Case表达式2语句块2 Case Else语句块nEnd Select返回本节3.1.2 循环结构w 循环的作用是允许某个程序段被重复执行。 Visual Basic 支持的循环结构有： DoLoopForNextFor Each.Next 1Do.Loop 循环 w Do.Loop 语句是通过计算条件表达式以决定是否继续循 环。其中，条件必须是一个值为 True（非零）或 False （零）的表达式。形式一：Do While 条件表达式+语句块Loop形式二： Do 语句块Loop While 条件表达式图3-4 Do While .Loop循环图3-5 Do .Loop While循环表3-1 DoLoop的其他两种形式循环零次或多次至少循环一次Do Until 条件表达 式 语句块 LoopDo 语句块 Loop Until 条件表达 式2For.Next 循环 w For 循环的语法如下：For 计数器 = 初始值 To 终止值 Step 增 量 语句块Next 计数器w 其中，参数计数器、初始值、终止值和增量都必 须是数值型的变量。3For Each.Next循环w 语法格式是：For Each 元素 In 集合语句块Next 元素4中途退出循环 w 从Do.Loop中退出的语句是：Exit Dow 从For循环中退出的语句是：Exit Forw 一般情况下，Exit Do或Exit For是嵌在分支语句 中使用的。返回本节3.1.3 嵌套控制结构w 嵌套控制结构就是把控制结构放入另一个控制结 构之内，例如在 For.Next 循环块中放入 If.Then. 块。在 Visual Basic 中，控制结构的 嵌套层数没有限制。返回本节3.2 基于模块建立程序w 在Visual Basic中，基本模块是以文件形式体现的 ，有3种类型：标准模块、窗体模块和类模块， 可以把它们看作为文件级模块。文件级模块中包 含有：过程、函数、属性、方法、事件等内容， 可以把它们看作为单元级模块。 （1）程序按功能执行步骤划分成诸多语句块。 （2）对于每个逻辑语句块应该给出必要注释，由 此使程序更加便于理解。 （3）程序中的逻辑语句块的划分往往和程序的流 程控制结构有关。 返回首页3.3 过程与函数w 3.3.1 通用过程 w 3.3.2 函数过程 w 3.3.3 事件过程 w 3.3.4 调用其他模块中的公用子过程 w 3.3.5 过程编辑的可视化工具 w 3.3.6 向过程传递参数的方法及规则 返回首页3.3.1 通用过程w 定义通用过程的语法是：Private|PublicStatic Sub 过程名 ( 形式参数列表)语句块End Subw 调用通用过程的语法是：Call 过程名(实际参数列表)或：过程名 实际参数列表图3-6 例3-8设计窗体 返回本节3.3.2 函数过程w 函数过程的语法是：Private|PublicStaticFunction 函数 名 (形式参数列表) As 类型语句块End Functionw 调用函数过程的基本语法是：变量 = 函数名(实际参数列表)图3-7 例3-9设计界面返回本节3.3.3 事件过程w 事件过程可以在“代码编辑器”窗口中创建。通过 从“代码编辑器”的“对象框”中选择一个对象，从 “过程框”中选择一个过程，可以获得一个事件过 程模板，如图38所示。定义事件过程的语法如 表32所示。 w Visual Basic程序设计是基于事件的。因此，创建 事件过程也就成为了建立应用程序时的一项主要 任务。其中，事件过程和通用过程、函数过程的 关系如图39所示。事件过程与通用过程具有相 同的定义格式。因此，事件过程也可以当作通用 过程在程序中使用语句调用。图3-8 在“代码编辑器”中创建事件过程表3-2 定义事件过程语法控件事件的语法窗体事件的语法Private Sub控件名_事件名 (形式 参数列表 ) 语句块 End SubPrivate Sub Form_事件名 (形式 参数列表 ) 语句块 End Sub图3-9 事件过程对通用过程、函数过程的调用返回本节3.3.4 调用其他模块中的公用子过程w 窗体模块、类模块中的公用子过程是作为该窗体 对象的方法存在的，它们是封装后的对象提供给 外部的与操作有关的通信接口，因此，外部调用 时需要通过包含此过程的对象来引用。 w 标准模块中的公用过程是结构化功能子模块，如 果过程名是惟一的（如果过程仅出现在一个地方 ，这个过程就是惟一的），则不必在调用时加模 块名。 返回本节3.3.5 过程编辑的可视化工具1添加过程对话框 w 通过菜单命令“工具添加过程”打开添加过程 对话框，如图310所示。 2代码编辑窗 w 通过菜单命令“视图代码窗口”或“工程资源管理 器”上的“查看代码”按钮可以打开所选模块的“代 码编辑窗”。图3-10 通过“添加过程”对话框创建过程返回本节3.3.6 向过程传递参数的方法及规则1按值传递参数（如图311所示） 2按地址传递参数（如图312所示） 3使用可选的参数（如图314、315所示） 4使用不定数量的参数图3-11 按值传递不会改变实 际参数的值图3-12 按地址传递将会影响实 际参数的值 图3-14 忽略可选参数时的结果图3-15 选取可选参数时的结果返回本节3.4 常用内置函数w 3.4.1 数学函数 w 3.4.2 字符串函数 w 3.4.3 转换函数 w 3.4.4 判断函数 w 3.4.5 其他函数 返回首页3.4.1 数学函数w 数学函数主要用来完成数学运算，常用的有以下 几个： （1）Sin(x)：返回X的正弦值，X的单位为弧度。 （2）Cos(x)：返回X的余弦值，X的单位为弧度。 （3）Tan(x)：返回X的正切值，X的单位为弧度。 （4）Atan(x)：返回X的反正切值，返回值单位为 弧度。 （5）Log(x)：返回X的自然对数。 （6）Exp(x)：返回以e为底的X的指数值。 （7）Sqrt(x)：返回参数X的平方根值。 （8）Abs(x)：返回X的绝对值。 （9）Hex(x)：以字符串形式返回X的十六进制值。 （10）Oct(x)：以字符串形式返回X的八进制值。 （11）Rnd(x)：产生一个介于01之间的单精度随 机数。 （12）Int(x)：去掉小数部分，返回整数。 （13）Fix(x)：该函数和Int(x)类似，去掉小数部分 ，返回整数。 返回本节3.4.2 字符串函数（1）InStr(起始位置,字符串1,字符串2,比较类型 )：根据比较类型模式确定字符串2在字符串1中 第一次出现的位置。 （2）InStrRev(字符串1,字符串2起始位置,比较类 型)：与InStr()函数功能相似，只是从字符串1 的后面开始向前查找。 （3）LTrim(字符串)：去掉字符串左边的空白部分 。 （4）Rtrim(字符串)：去掉字符串右边的空白部分 。 （5）Trim(字符串)：去掉字符串的左右空格，若 为Null时，返回Null。 （6）Left(字符串,个数)：取出字符串左边指定个数 的字符，若个数大于或等于字符串长度，全取。 （7）Right(字符串,个数)：取出字符串右边指定个 数的字符，若个数大于或等于字符串长度，全取 。 （8）Mid(字符串,起始位置,个数)：取字符串由起 始位置开始的指定个数的字符。 （9）Len(字符串或字符变量)：计算字符长度，若 字符串为空时，返回Null。 （10）Ucase(字符串)：将字符串的小写字母转换为大写字 母，其他字符不变。（11）Lcase(字符串)：将字符串中的大写字母转换为小写 字母。 （12）Space(个数)：返回指定个数的空字符串。 （13）String(个数,字符)：返回包含重复字符的字符串，长 度由“个数”指定。 （14）StrComp(字符串1,字符串2,比较类型)：按比较类型 比较两个字符串，返回值为：相等时为0；小于时为1 ； 大于时为1。 （15）StrReverse(字符串)：将给定字符串逆序输出。若为 空串，返回空串，若为Null，则会出错。 返回本节3.4.3 转换函数w 转换函数一般用来实现不同类型数据之间的转换 。Visual Basic 提供的常用转换函数有以下几个 。 （1）Str（数值表达式）：把数值转换为字符串。 （2）Val(字符串)：把字符串转换为数字数值，忽 略字符串中的非数字字符。返回本节3.4.4 判断函数（1）IsArray(变量名)：判断变量是否为数组，返 回Boolean值。 （2）IsDate(表达式)：判断表达式是否为日期，返 回Boolean 值。 （3）IsEmpty(变量)：判断变量是否已被初始化。 （4）IsNumeric(表达式)：判断表达式是否为数字 型。 （5）Iff(表达式,真部分,假部分)：计算真假两部分 的值，再计算表达式的值。 返回本节3.4.5 其他函数（1）Date：取当前系统日期。 （2）Time：取当前系统时间。 （3）Hour：返回023之间的整数，表示一天之 中的某一钟点。 （4）Day：返回131之间的整数，表示一个月中 的某一日。 （5）Dir(路径,属性)：返回与定义的模式或文件 属性匹配的表示文件、目录、文件夹、驱动器卷 标的字符串。它支持通配符。 返回本节3.5 面向对象编程w 3.5.1 类与对象 w 3.5.2 属性、方法与事件 w 3.5.3 对象之间的关系 w 3.5.4 使用对象 返回首页3.5.1 类与对象1类的概念 w “类”所要反映的是一个具有群体特征的事物的数 据特征与功能特征。 w “类”数据特征被当作为“类”的属性，“类”功能特 征被当作为“类”的方法。在 Visual Basic 中，有 关类的描述保存在类型库中，可以通过对象浏览 器查看。2对象的概念 w 对象是“类的实例”，是类的具体化的结果，它对 应于个体。通过类的具体化可以得到对象，这意 味着