模块

null本章内容本章内容 模块对象概述 VBA程序基础 选择语句 循环语句 数组 过程 一、模块对象概述 一、模块对象概述 模块( 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块)是Access数据库7个对象之一，其实质就是没有界面的VBA程序。 模块具有很强的通用性，窗体、报表等对象都可以调用模块内部的过程。 模块包含若干由VBA代码组成的过程。每个过程完成一个相对独立的操作，不涉及界面，是“纯”程序段。 VBA是VB的子集。VBA是VB与office 结合起来形成的Visual basic for application。 模块的基本概念 模块的基本概念模块是ACCESS的一个重要对象，它以VBA语言为基础编写，以函数过程（Fuction)或子过程(sub)为单元的集合方式存储。模块类模块标准模块窗体模块报表模块基于窗体或报表的模块不基于任何控件的模块， 一般存放公共变量或过程， 以供别的窗体或报表模块调用。举例：计算圆面积窗体、标准窗体1与标准窗体2…模块 宏 VBA模块 宏 VBA宏无需编程，利用系统提供的操作完成对数据库的顺序操作。每个宏都可转化成对应的VBA程序，宏的本质是系统利用VBA编制的函数。方便用户不再编程序。 宏转换为模块的方法：选中要转化的宏→菜单“工具”→宏→将宏转化为Visual Basic代码。 对数据的一些特殊分析需要自行 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 函数，此时需要利用VBA编写程序。 VBA程序的执行速度比宏快。 模块：与宏一样是Access的一个对象。是存放VBA程序的容器。是将 VBA 声明 无利益冲突声明中华医学会杂志社职业健康检查不够规范教育部留学服务中心亲友住房声明 和过程作为一个单元进行保存的集合。 模块与过程模块与过程模块实际上放置VBA代码的容器，一个模块包含一个声明区域（声明模块所使用的变量、常量、自定义类型），包含一个或多个子过程或函数过程。 Sub过程（又称为子过程），其格式如下： Sub 过程名 [程序代码] End Sub 调用子过程用Call过程名 Function过程（又称函数过程），其格式如下： Function过程名 [程序代码] End Function 函数过程和子函数可以返回一个值，所以在表达式中可将其当作变量使用， 二、VBA程序基础 二、VBA程序基础 面向对象编程基础 VBA环境的进入 模块和过程的创建 数据类型、常量、变量与表达式 VBA的常用内部函数 数据的输入与输出 面向对象程序设计的基本概念面向对象程序设计的基本概念1、对象和集合 一个对象就是一个实体。如：一辆自行车 对象的属性：即，自行车的颜色和尺寸 引用方法：对象.属性 对象的方法：即，对象可以执行的行为，如自行车行走。 引用方法：对象.方法 ACCESS中除提供了数据库的7个对象外，还提供了一个DoCmd对象，它主要用来在VBA编程中实现对ACCESS的操作。如：DoCmd.OpenReport “教师信息” 面向对象程序设计的基本概念（续）面向对象程序设计的基本概念（续）2、事件和事件过程 事件是Access窗体或报表及其上的控件等对象可以“辨识”的动作。如：单击鼠标，打开窗体和报表等。 在ACCESS数据库系统中可以通过两种方式来处理窗体、报表或控件的事件响应：使用宏对象和编写VBA代码，完成指定动作，这样的代码过程，也称为事件响应过程。 例： 单击“test”按钮，弹出下图所示对话框！ 进入VBA编程环境—VBE 进入VBA编程环境—VBE打开窗体或报表，单击工具栏上“代码”工具按钮进入。 定位到控件上，打开属性窗口，选中某个事件，设置属性为“事件过程”，点击“…”按钮后选择“代码生成器”进入。 新建模块。 打开一个已有的标准模块。 在数据库对象窗体中，单击“工具”菜单中“宏”级联菜单的“Visual Basic 编辑器”选项即可进入。 提示：进入VBE环境后，可以使用ALT+F11组合键在数据库窗口和VBE之间切换。 模块和过程的创建模块和过程的创建1. 新建模块 模块由过程组成，而过程由程序员编写程序形成。 [例1] 创建一个名为“模块入门”的新模块 模块和过程的创建（续）模块和过程的创建（续）2. 过程 过程由VBA语句组成，是一段相对独立的代码。 过程与过程之间相互隔离，系统不会从一个过程自动执行到另一个过程，但一个过程可以通过调用执行另一个过程。 过程不是Access的一个独立对象，不能单独保存，只能存在于模块中。 过程以Sub <过程名>()的形式开头（圆括号内放置该过程被调用时需接受的参数），以End Sub结束。模块和过程的创建（续）模块和过程的创建（续）3. 新建过程 [例2] 在“模块入门”模块中创建一个Hello过程 VBA程序的语句VBA程序的语句 定义（声明）语句执行语句条件结构顺序结构循环结构VBA语句VBA程序的语句（续）VBA程序的语句（续）一、程序语句书写 1、语句书写规定 可以用续行符“下划线”_将语句连续写在下一行。 可以使用“冒号” : 将几个语句分隔写在一行中。 当输入一行语句并按下回车后，该行代码若红色显示，表示有误。 提示：模块的内容是由VBA语言编写的代码。 2、注释语句（两种方式） :rem docmd.openreport “学生” ‘ docmd.openreport “学生” VBA程序的语句（续）VBA程序的语句（续）二、声明语句 声明语句用于命名和定义常量、变量、数组和过程。 如：const PI=3.14159 Dim I as integer VBA程序的语句（续）VBA程序的语句（续）三、赋值语句 1、[let] 变量名=值或表达式(将右边的值赋给左边) 例如： message=“hello” 2、Dim txtage as integer Txtage=21 例如： Sub test() Dim a As Integer a = 21.3 MsgBox a End SubVBA程序的语句（续）VBA程序的语句（续）四、标号或goto 语句 转到某一条语句上。 如：goto AA … AA：… 建议避免使用标号，标号一般系统用在出错处理时。 如 ： on error goto 标号 ‘跳转到标号处继续执行 on error goto 0 ‘关闭错误处理 on error resume next ‘ 忽略错误继续执行 数据类型、常量、变量与表达式 数据类型、常量、变量与表达式 1. VBA的数据类型 数据类型、常量、变量与表达式（续） 数据类型、常量、变量与表达式（续） 2. 标识符 标识符：程序中常量、变量、过程等对象的名字 VBA标识符规定： 第一个字符必须是字母 包含的字符数不超过255个 不得与VBA的关键字同名，如不能使用Sub、For等 不能使用下列字符：! @ & $ # （空格） 从增强程序可读性角度出发，标识符应使人望文生义，了解其代表的内涵数据类型、常量、变量与表达式 （续） 数据类型、常量、变量与表达式 （续） 3. 常量 常量：VBA在运行时其值始终保持不变的量 字符串常量放在一对"内，日期/时间型常量放在一对#内。如"中国" 、#9/1/2005#等。 符号常量：用标识符保存一个常量值 使用Const语句定义符号常量，如 Const Pai = 3.141569 Const TermBeginDate = #9/1/2005# 数据类型、常量、变量与表达式（续） 数据类型、常量、变量与表达式（续） 4. 变量 变量：程序运行期间值可以改变的量 变量在使用前应该用Dim语句进行声明 Dim <变量1> As <类型1>[, <变量2> As <类型2>[,...]] Dim StudentName As String Dim Grade As Integer, AvgGrade As Single Dim Passed As Boolean, ExamDate As Date 默认情况下，变量可以不经声明即可使用，该变量被自动声明为Variant类型(变体型) 数据类型、常量、变量与表达式（续） 数据类型、常量、变量与表达式（续） 强制实现变量先定义后使用：在代码窗口中执行“工具”/“选项”命令 数据类型、常量、变量与表达式（续） 数据类型、常量、变量与表达式（续） 5. 运算符 算术运算符： -(取负)、^、*、/、\、Mod、+、- 关系运算符：>、>=、=、<=、<、<>(不等于) 其值为一个布尔量(True或False) 连接运算符：+、& 其中，“+”用于连接字符串，“&”可将几个不同类型的值连接成一个字符串。 逻辑运算符：Not、And、Or、Xor、Eqv、Imp 数据类型、常量、变量与表达式 （续） 数据类型、常量、变量与表达式 （续） [例3]输出当天日期及距2008年元旦的天数 在“模块入门”模块中添加如下Today()过程： 运行结果 Sub Today() MsgBox "今天的日期是" & Date & "，距2008年1月1日还有" & (#1/1/2008# - Date) & "天" End Sub数据类型、常量、变量与表达式 （续） 数据类型、常量、变量与表达式 （续） 6. 表达式 表达式：用运算符将常量、变量、函数等连接起来的式子，书写在一行上。 表达式可分为： 算术表达式，如 Count=Count+1 关系表达式，如 C<>20 逻辑表达式，如 Age<=5 Or Age>=60VBA的常用内部函数 VBA的常用内部函数 内部函数(标准函数)的调用格式：函数名(参数) 例如，求Sin(30°) VBA表达式为：Sin(3.14 * 30 / 180) 根据函数返回值的类型，可以将函数分为： 数值型函数 字符串函数 日期/时间函数 类型转换函数VBA的常用内部函数（续） VBA的常用内部函数（续） [例4] 求8x2-10x-75=0的两个实根 数据输入、输出数据输入、输出1. 数据输入函数 InputBox() InputBox(Prompt[,Title][,Default][,Xpos][,Ypos]) 说明： Prompt参数必不可少，用于显示输入提示文本 Title参数用于指定对话框标题，缺省标题为 “Microsoft office Acces” Default参数为对话框提供一个默认值 Xpos、Ypos参数决定对话框出现在屏幕上的位置，缺省时出现在屏幕中央 数据输入、输出（续）数据输入、输出（续） [例5] 数据输入、输出（续）数据输入、输出（续）InputBox()函数返回值的类型由接受返回值变量的类型决定。 例如， D = InputBox("测试", , 1) D为整型变量时，D输出的是默认数值1； D为日期型变量时，D输出的是默认日期 1899-12-31 D为Boolean变量时， D输出的默认值为True数据输入、输出（续）数据输入、输出（续）2. MsgBox()函数 MsgBox(Prompt[,Buttons][,Title]) 说明： Prompt参数必不可少，用于输出结果或提示性文本 Buttons是一个或一组按钮，缺省为一个“确定”按钮 Title参数用于指定消息对话框标题，缺省为 “Microsoft office Acces” 数据输入、输出（续）数据输入、输出（续）[例6] 数据输入、输出（续）数据输入、输出（续）3. Debug窗口（“立即窗口” ） [例7] 视图数据的输入、输出 数据的输入、输出 [例8] 调试工具的使用 调试工具的使用 继续中断重新设置切换断点逐语句逐过程快速监视监视窗口立即窗口本地窗口跳出null“立即”窗口：用来检测有问题的或新编写的代码。 一般使用 Debug.Print 变量名来观察变量值。 “监视”窗口：用来显示被监视的表达式值。可监视多个表达式。必须先添加“监视表达式”和“监视类型”。 “本地”窗口：用来显示当前过程中所有变量的值。当程序的执行从一个过程切换到另一个过程时， “本地”窗口的内容会发生改变，它只反映当前过程中可用的变量。 8.3 选择语句 8.3 选择语句 8.3.1 If…Then…语句 8.3.2 If…Then…Else…语句 8.3.3 块状选择语句 8.3.4 选择语句嵌套 8.3.5 Select Case语句8.3.1 If…Then…语句 8.3.1 If…Then…语句 格式： If <关系表达式或逻辑表达式> Then <语句> 关系表达式或逻辑表达式成立时执行Then后的语句，否则直接执行If的下一条语句。 <语句>可以一条语句，也可以是若干条用冒号“:”隔开的VBA语句组。 8.3.1 If…Then…语句(续) 8.3.1 If…Then…语句(续) 【例】如果学生的分数在60分以上，定为“及格”,否则定为“不及格”。 Sub stumark1（） Dim Mark As Integer Mark = Val(InputBox("请输入学生成绩")) If Mark >= 60 Then MsgBox ("及格") Else MsgBox ("不及格") End If End sub8.3.1 If…Then…语句 （续）8.3.1 If…Then…语句 （续） [例9]随机出一道两位数 加法 100以内进位加法和退位减法100以内进位加法题100以内进位加法100以内进位加法竖式整数加法运算定律推广到小数说课 题让 小学 小学生如何制作手抄报课件柳垭小学关于三违自查自纠报告小学英语获奖优质说课课件小学足球课教案全集小学语文新课程标准测试题 生回答 Sub test() Dim A As Integer, B As Integer, Sum As Integer Randomize Timer A = 10 + Rnd * 89: B = 10 + Rnd * 89 Sum = InputBox(A & "+" & B & "=?", "两位数加法") If Sum = A + B Then MsgBox "答案正确！" If Sum <> A + B Then MsgBox "答错了！正确答案是" & A + B End Sub判断变量X是否为不小于10的整数： If X>=10 and X=Int(X) Then ...8.3.2 If…Then…Else…语句 8.3.2 If…Then…Else…语句 格式： If <关系或逻辑表达式> Then <语句1> Else <语句2> If后的表达式成立时执行Then后的语句，不成立时执行Else后的语句；然后程序继续执行If后的其他语句。 8.3.2 If…Then…Else…语句 8.3.2 If…Then…Else…语句 [例10] Sub Passed() Dim Grade As Integer Grade = InputBox("请输入考试分数：") If Grade >= 60 Then MsgBox ("合格") Else MsgBox ("不合格") End Sub本例的If语句也可改写成： If Grade < 60 Then MsgBox ("不合格") Else MsgBox ("合格") 8.3.3 块状选择语句 8.3.3 块状选择语句 格式： If <关系或逻辑表达式> Then <语句组> End If 或 If <关系或逻辑表达式> Then <语句组1> Else <语句组2> End IfIf Grade >= 60 Then MsgBox ("合格") Else MsgBox ("不合格") End If注意：Then后不能有其他语句(单引号引导的注释语句除外) 8.3.4 选择语句嵌套 8.3.4 选择语句嵌套 [例11] 8.3.4 选择语句嵌套 8.3.4 选择语句嵌套 指出下面条件语句中隐含的错误： If Grade < 60 Then Evalu = "不合格" If Grade < 90 Then Evalu = "合格" Else Evalu = "优秀" End If8.3.5 Select Case语句8.3.5 Select Case语句Select Case语句是多分支选择语句，格式： Select Case <测试表达式> Case <表达式1> <语句1> Case <表达式2> <语句2> … [Case Else <语句n+1>] End Select 当测试表达式的值满足某个表达式时，程序就执行该语句。 如果没有一个表达式的值能满足测试表达式，则执行Case Else后的语句。 8.3.5 Select Case语句8.3.5 Select Case语句[例12] Sub Grade1() Dim Grade As Integer, Evalu As String Grade = InputBox("请输入考试分数：") Select Case Grade Case 100: Evalu = "满分" Case 90 To 99: Evalu = "优秀" Case 80 To 89: Evalu = "良好" Case 70 To 79: Evalu = "中" Case 60 To 69: Evalu = "合格" Case Is < 60: Evalu = "不合格" Case Else: Evalu = "数据错误" End Select MsgBox Grade & "分的等级为" & Evalu End Sub8.3.5 Select Case语句8.3.5 Select Case语句说明： 测试表达式不一定是关系表达式或逻辑表达式，可以是任意类型，但Case子句中的表达式类型必须与之相一致。 如果Case子句中的表达式是一个常量，则该常量直接写在Case之后，如Case 100。 如果Case子句后的表达式是一个范围，可用To从小到大指定，如Case 90 To 99、Case “A” To “Z”；或者使用Is <关系运算符> <表达式> 如，Case Is > 3 And <88.4 循环语句 8.4 循环语句 VBA提供了4类循环语句： For...Next循环、Do While...Loop循环、 For Each...Next循环、While...End循环 最常用的是For...Next和Do While...Loop循环 8.4.1 For...Next循环 8.4.2 Do While...Loop循环 8.4.3 双重循环和多重循环为什么需要循环为什么需要循环 程序设计中，常常有这样一种问题：计算和处理方法完全一样，而每次使用的数据都按照一定的规律进行改变。如计算1+2+3+…+10=? si从1 、2、3... 到10将I的只把i的每个值都加起来null计算1+2+3+…+10=? ①0+1=1 ② 1+2=3 ③ 3+3=6 ④ 6+4=10 ⑤ 10+5=15 … … ⑩ 45 +10=558.4.1 For...Next循环 8.4.1 For...Next循环 For...Next循环一般用于循环次数已知的过程 语法格式： For <循环变量>=初值 To 终值 [Step <步长值>] [循环体] Next [循环变量] 注释：① “step 步长“缺省时，默认为”step 1” ②“循环变量”缺省时，默认为 For 后面设置的循环变量。求1+2+…+10求1+2+…+10Sub sum( ) S=0 For i=1 to 10 step 1 s=s+i ‘将目前s的值加上i后，再赋给s Next End sub 执行次数：10次 思考：如何求1+3+5+….99 如何求2+4+8+100执行过程执行过程循环前：s=0 循环开始： ①i=1,s=s+i=0+1=1 ②i=2,s=s+i=1+2=3 ③i=3,s=s+i=3+3=6 ④i=4,s=s+i=6+4=10 ⑤i=5,s=s+i=10+5=15 … i=10,s=s+i=45+10=55例:分析以下程序段，循环结束后k为?,变量s为?例:分析以下程序段，循环结束后k为?,变量s为? sub a( ) Const pi=3.14 T=F(5) dim a(3,5) as integer S=0 for k=1 to 10 step 2 S=S+1 k=k*2 next k end sub①K=1, s=s+1=1, k=k*2=2，k=k+2=4 ②k=4, s=s+1=2, k=k*2=8，k=k+2=10 ③k=10, s=s+1=3, k=k*2=16，k=k+2=18 ④k=10, s=s+1=3, k=k*2=16，k=k+2=18 ⑤k=18>10，循环结束8.4.1 For...Next循环 8.4.1 For...Next循环 [例13] 编写Even()过程，输出10~20的所有偶数 8.4.1 For...Next循环 8.4.1 For...Next循环 [例14]思考：可否将循环修改为：For I = 10 To 1 step -1 ？为什么？ 用随机函数模拟入学分数 分值在300~399之间 8.4.1 For...Next循环 8.4.1 For...Next循环 [例15]通过键盘输入一个自然数X，判断它是否为质数 质数：除1以外，只能被1和自己所整除的自然数do…while/until…loopdo…while/until…loop Do while 条件式 ‘条件为真时执行语句， 循环体 ‘为假时结束循环 loop Do until 条件式 ‘条件为真时结束循环， 循环体 ‘为假时执行语句 [条件语句序列 exit do 结束条件语句序列] loop 当型循环直到型循环用do while… loop 用do until…loop 用do while… loop 用do until…loop Dim i as integer Dim s as integer i=1 S=0 Do While i<=10 s=s+i i=i+1 loopDim i as integer Dim s as integer i=1 S=0 Do until i>10 s=s+i i=i+1 loop重做1+2+..+108.4.2 Do While...Loop循环 8.4.2 Do While...Loop循环 Do While...Loop通常用于循环次数未知的过程 语法格式： Do While <循环条件表达式> [循环体] [条件语句序列 exit do 结束条件语句序列] Loop 循环体中必须有“破坏”循环条件成立的语句，以免“死循环” 强制终止循环的语句是Exit Do，跳出循环后执行Loop后的语句。 8.4.2 Do While...Loop循环 8.4.2 Do While...Loop循环 [例16] -1为结束输入的标志 8.4.2 Do While...Loop循环 8.4.2 Do While...Loop循环 例16也可使用For...Next循环语句：将循环终值设为一个足够大的数，一旦输入-1即跳出循环。 8.4.3 双重循环和多重循环 8.4.3 双重循环和多重循环 双重循环：循环语句的循环体本身也是一个循环 对于一个m行n列的表格来说，常常需要用双重循环才能访问到表中的每一个数据。 对于一个外层循环有m次、内层循环有n次的双重循环，其核心循环体将重复执行m×n次。 多重循环指三重循环或更多层次嵌套的循环8.4.3 双重循环和多重循环 8.4.3 双重循环和多重循环 [例17]在立即窗口中输出10以内的平方根表 Format()函数是打印项的格式函数，"0.00"表示小数保留两位，同时在没有整数部分、小数部分时用0填补。 8.4.3 双重循环和多重循环 8.4.3 双重循环和多重循环 [例18]求Sum ，直到某项的绝对值小于10-4 8.5 数组 8.5 数组 8.8.1 数组概念 8.8.2 一维数组 8.8.3 二维数组 8.8.1 数组概念8.8.1 数组概念数组是一种数据存储结构，它用一个标识符保存若干个数据，用不同的下标予以区分。 数组具有以下特性(数组中的每个数据称为元素)： 每个元素类型相同，占用同样大小的存储空间 数组中的元素在内存中连续存放 通过下标可访问数组中的每个元素。下标的类型可以是整数，常量、变量或算术表达式。 数组分为一维数组、二维数组和多维数组 8.8.2 一维数组8.8.2 一维数组一维数组中的元素呈直线状排列，每个下标对应一个元素。 数组在使用前必须先行定义，语法格式是： Dim <数组名>([<下界>] To 上界) As 数据类型 若省略下标下界，则数组的最小下标为0 例如： Dim A(10) As Double A数组共有11个元素(下标的起止范围是0~10) 8.8.2 一维数组8.8.2 一维数组说明： 定义数组时，下标的下界值和上界值必须是常量或符号常量，不能使用变量。 引用数组元素时，下标不得超出所定义的下界和上界，否则程序的执行将被中断，同时系统报错。 使用数组时，用LBound()和UBound()函数可得到该数组下标的下界和上界值。8.8.3 二维数组8.8.3 二维数组二维数组中数据排列呈平面状，可保存一个二维表的信息。 数组元素使用行下标和列下标定位，定义格式： Dim <数组名>([<下界> To] 上界,[<下界> To] 上界) As 数据类型 如果省略下标的下界值，则下界值默认为0 例如，Dim A(3,4) As Integer ，声明的A数组 有45=20个元素。 二维数组的操作通常需要与双重循环相结合。8.6 过程 8.6 过程 8.6.1 Sub过程 8.6.2 Function过程 8.6.3 过程调用中的参数传递方式 8.6.4 数组参数的传递方法 8.6.1 Sub过程8.6.1 Sub过程VBA模块的过程可分为Sub过程和Function过程两大类。区别在于前者没有返回值而后者有。 1. Sub过程的语法格式 [Private][Public][Static]Sub <过程名> (参数表) 语句 End Sub Private表示本过程为模块级过程 Public表示本过程是全局过程，在整个应用程序的各个模块中均有效。默认值是Public过程。 Static表示本过程中声明的局部变量均为静态变量，变量的值在整个程序运行期间予以保留。 8.6.1 Sub过程8.6.1 Sub过程被另一个过程调用时，参数表用于接纳所需的数据；如果没有参数可传递，被调用过程就是无参过程。 2. 过程的调用 过程在执行中可以调用另外一个过程，同时将参数传递过去；调用完毕再回到本过程继续执行。 过程的调用方法： Call <过程名>(参数表) 或 <过程名> 参数表 8.6.1 Sub过程8.6.1 Sub过程[例24] 8.6.1 Sub过程8.6.1 Sub过程[例25] 调用DataPlus过程时，X、Y是实参，A、B是形参调用DataSub过程时，形参与实参的名称一样，都是X和Y实参：主调过程的参数 形参，被调过程的参数 8.6.2 Function过程8.6.2 Function过程Function过程是用户自定义函数，语法格式： [Private][Public][Static]Function <过程名> (参数表) As [类型] 语句 End Function Function过程亦称函数过程，与Sub过程的区别在于具有返回值。 Function过程的返回值通过过程名带回。 8.6.3 过程调用中的参数传递方式 8.6.3 过程调用中的参数传递方式 参数的传递方式有两种：按地址传递和按值传递 1. 按地址传递 形参与实参在内存中占用相同的存储单元。当被调过程的形参值发生变化时，实参值也产生同样的变化。 默认的参数传递方式是按地址。如果要显式指定按地址传递方式，可在每个形参前增加关键字ByRef。 8.6.3 过程调用中的参数传递方式 8.6.3 过程调用中的参数传递方式 [例28] 分析输出结果 8.6.3 过程调用中的参数传递方式 8.6.3 过程调用中的参数传递方式 2. 按值传递 实参和形参是两个不同的变量，占用不同的内存单元。实参将其值赋给形参，以后形参的变化不会影响到实参的值。 要按值传递，必须在形参前冠以关键字ByVal。 8.6.3 过程调用中的参数传递方式 8.6.3 过程调用中的参数传递方式 [例29] 分析输出结果