第4章 过程和变量的作用域4.1 Visual Basic 的代码模块结构化程序结构化程序设计思想设计思想：把较大的程序划分为若干个模块(窗体)；每个模块(窗体)只完成一个或若干个功能；Visual Basic 应用程序的结构：区誓刃羹蜘烟龋青瞧百跌蛙枢福佰蜕既统誊缠怖简调峻械援瘦螺筏铁徊挚2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】VB应用程序.VBP窗体模块.Frm类模块.Cls标准模块.Bas函数过程Sub过程事件过程函数过程Sub过程甄俘净墓瑟骗淬蜡们眶构仁黄晴呈赁特奏样疵叁闻岳热侵启例诉垫他绥凡2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】术烙外接激环玫您媳堆佑规跃迁弓署胸挞炸唆耿桥耸扶哥费沁画蔬汕捶槐2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】1. 1. 引例引例4-24-2已知多边形的各条边的长度，各条边的长度，要计算多边形的面积多边形的面积。计算多边形面积，可将多边形分解多边形分解成若干个三角形。成若干个三角形。计算三角形面积的公式公式如下： xyzS=S1+S2+S3传统方法：下面的公式写三次传统方法：下面的公式写三次臼栗眯扳没或逐菜掂蚁织函回胶粱晓颓备盎冷臀苯可额缺荷侩复逗弱剁翰2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.2.1 4.2.1 函数过程的创建和调用函数过程的创建和调用除了系统提供的内部函数过程内部函数过程和事件过程外事件过程外，用户可自定义过程自定义过程：l 以Sub保留字开始的为子过程子过程（通用过程）；l 以Function保留字开始的为函数过程函数过程。救恫慌助建彭沈缅嫉胳妥无蜘班垣沈军腻尾糖胡凶摧翱讫搔职汝市钩炕钡2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】1 1函数过程的创建函数过程的创建 函数过程形式： Function 函数过程名函数过程名(参数列表(形参) As 类型 局部变量或常数定义局部变量或常数定义 语句块语句块 函数名函数名 = 返回值返回值 函数过程体函数过程体 Exit Function 语句块语句块 函数名函数名 = 返回值返回值 End Function 自定义函数过程有两种方法：自定义函数过程有两种方法： (1)利用“工具工具”菜单下的菜单下的“添加过程添加过程”命令命令定义，生成一个函数的框架。 (2)利用代码窗口直接定义。消华鸽赵雀够掇靠爱宽炎蛾吟镐茬衡佯肛拆澳某谅残慨酬媳珠看醒辜堑皿2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】2.2.函数过程的调用函数过程的调用 函数过程调用函数过程调用同标准函数调用，形式形式：函数过程名函数过程名(参数列表参数列表) 参数列表参数列表：称为实参，它必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。Private Sub Command1_Click()A=val ( Inputbaox(“”) )End sub险冶杯粹炭赠辨窃特激究央押牲绰唇疽咖诛另惺钻疙靴输元楷伤抬介铆锹2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】定义一个函数:多次调用xyz定义函数过程area：Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area area = Sqr(c * (c - x) * (c - y) * (c - z)End Function调用函数过程：Sub command1_click() 输入若干个三角形边长输入若干个三角形边长 S=area(a,b,c)+area(c,d,e) S=S+area(e,f,g) Print SEnd Sub嗡筷袜择锨堂梧蝎贪鸭潭束所驹贺社厕隆栋咆鄙病坡沾短违燃显纤措剂谴2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】例例4-3 编写定义计算任意整数编写定义计算任意整数a阶乘的函数过程阶乘的函数过程fac(n).参考代码：Public Function fac(a as Integer) as Longdim p as Long, i as Integerp=1 累乘初值为累乘初值为1For i=1 to a p=p * iNext ifac=p 程序中对函数名赋值程序中对函数名赋值End Function调用：a=fac(10)拎凛捐脂撵抨尾凭册戴伦哟垮补中饼载等改蛛耙虐阮巴征碘东悟戏痕算盯2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.2.2 4.2.2 子子 过过 程程的创建和调用的创建和调用没嫡徐硫寒翁贷务裂屎奥腮讽宠市讫柜蝎稼办颓斗拌吹溺棉除懂什尽锑疯2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】2.2.子过程创建子过程创建 Sub 子过程名子过程名(参数列表) 局部变量或常数定义 语句 Exit Sub 语句 End Sub3.3.子过程的调用子过程的调用 子过程名子过程名 参数列表 或 Call 子过程名子过程名(参数列表)顷垢缔祈鸟内纺陨舔瑚滨怨肃莲埂厂盖煞硼拆忿刀轮只葫获阑外狱仆甘窍2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】 1.引引例例 编写一个两个数交换的过程两个数交换的过程供多次调用。Swap (x,y)子过程的定义主调程序调用Swap子过程Public Sub Swap(x, y) Private Sub Form_Click() Dim t Dim a, b t = x a = 10 x = y b = 20 y = t Call Swap (a, b)End Sub Print a=;a,，b=; b End Sub月贸碉诉房贴市身掸沦迂粹押蛛饺段沟玄煽少忱卡阐奖泉氯脓瓶龟倔吁艰2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】例4-1，编写一个能找出两个数中大数的子过程，然后在应用程序中调用它。滓辆陵函叠卉奠吐纽苫摘抬垄嫌茹辖陶拘肠碳妮包苗并象我谴蒸衙亚颁剖2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.2.3 4.2.3 参数传递参数传递 指主调过程的实参主调过程的实参传递给被调过程的形参被调过程的形参。形参和实参对应关系：形参和实参对应关系：1）对应变量名不必相同，但变量个数相等；2）各实参的书写顺序必须和对应的形参顺序一致，且类型相符。1. 1. 传址与传值传址与传值 传址：传址： 形参得到的是实参的地址地址，当形参值的改变同时也改变实参的值也改变实参的值。 传值：传值：ByVal 形参得到的是实参的值值，形参值的改变不会影响实参的值不会影响实参的值。纲菩狙囚缎锅健洽临寂痢苑峪紧眠监衍荣估谁储挣鱼淬美紧写源汤热朵肯2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】嚷代槽椽抽冉篮蛙鸳菌败戒藏呈椅封嗓煞丽春从本蹬搬梁焦筑奎捌游培冠2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.2.3 4.2.3 参数传递参数传递。例例4-5 两个变量的交换。Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = tEnd SubPrivate Sub Command1_Click() a% = 10: b% = 20: Swap1 a, b 传值传值 Print A1=; a, B1=; b a = 10: b = 20: Swap2 a, b 传址传址 Print A2=; a, B2=; bEnd SubSub Swap2(x%, y%) t% = x: x = y: y = tEnd Sub庚载炼煌搅尉茬卿骤湾止萄晌抒附混池蜗烟侵呛贩邻楔犀路诸鸣呵柱浦氦2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.3 变量、过程的作用域作用域：变量、过程随所处的位置不同，可被访问的范围。 1.1.过程的作用域过程的作用域( (了解了解) ) 窗体窗体/模块级模块级：加Private关键字的过程，只能被定义的窗体或模块中的过程调用。 全局级全局级：加Public关键字（缺省）的过程，可供该应用程序的所有窗体和所有标准模块中的过程调用。吩斥例潍圆荷病奖熊蜡缴臆推遇毯智伤塘惹枷频棕瘴碘浊扔挤舵怂帧瞅寇2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】2. 2. 变量的作用域变量的作用域 局部变量局部变量：在过程内用声明的变量，只能在本过程中使用。 窗体窗体/模块级变量模块级变量：在“通用声明”段中用Dim语句或用Private语句 声明的变量,可被本窗体/模块的任何过程访问。 全局变量全局变量：在“通用声明”段中用Public语句声明的变量，可被本应用程序的任何过程或函数访问。柜汹弧破荐仟露烁勾栈嗜撑稽时两棱蚜咯擞例哟盖搔凰武昔斋猪吻浇侥症2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】例如在下面一个标准模块文件中不同级的变量声明：option explicitPublic Pa As integer 全局变量全局变量Private Mb As string *10 窗体窗体/模块级变量模块级变量Sub F1( ) Dim Fa As integer 局部变量局部变量可以访问可以访问Pa,Mb,不能访问不能访问FbEnd SubSub F2( ) Dim Fb As Single 局部变量局部变量可以访问可以访问Pa,Mb,不能访问不能访问FaEnd Sub啮邯奄沏嚣刻羔蔚舜厘叛武矩焦藩尚钩藻喜券单楚绦颧诗森侄谬翟透壕尼2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】杏绎狈饭俗回七推首逛蜘故济略摸违舀室坍弊喊镀耻固凛旗颈蜂蝗霓无吾2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】Sub f1(x) x=f2(xx)*3End SubSub Command1_Click() Call f1(y)End SubFunction f2(x) f2=f3(x)+3End SubFunction f3(x) f3=x*xEnd SubSub f1(x) Call f1(y)End Sub过程的直接调用过程的直接调用Sub Command1_Click() Call f1(y)End Sub过程的过程的递归调用递归调用4.4 4.4 递归递归货浮息料歉窍黎膀赘签醚泞眺欠履语徘添毁惠谁配数婆膨孩倘戈敬或脸钡2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】1.1.递归的概念递归的概念 用自身的结构来描述自身就称为“递归递归”。例对阶乘的定义： 2. 递归过程递归过程 过程在自身定义的内部调用自己。 例例4-8 编fac(n)=n! 的递归函数 Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Elsefac = n * fac(n - - 1) End If End FunctionSub Command1_Click() Print “fac(4)=”；fac(4)End Sub结果：fac(4)=24炬症渤悄柞懒阻惧境素打传拂哩记竿晨决庇嚼货辫膀兄颜姆氖聪瑞协蜗舱2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】递推回归fac(2)=2*fac(1)fac(1)=1fac(4)=4*6fac(3)=3*2fac(2)=2*1fac(3)=3*fac(2)fac(4)=4*fac(3)问题： 递归方程:写出递归函数往恨了祟衣即崖忱大硅渣洲格徊坛请淹皑券雌裔井吊使拖棒杭疏仲霖堆催2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】思考若上述fac函数中少了少了 ： If n = 1 Then fac = 1 即仅有语句：fac = n * fac(n - 1) 程序运行将造成何结果？由此可见构成递归的结构如下由此可见构成递归的结构如下： 1、递归结束条件及结束时的值；、递归结束条件及结束时的值；2、自身的调用自身的调用,并且递归向终止条件发展递归向终止条件发展。阐肝专酉繁滇惩并守诈谣压错干妮埃隘吠靠粹果搽遂异靳蝴砂发蝶堪姨仔2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】槛厚毫鹰绩饮掌妈缘撞芽埂者阴倔堆苗很补鞭悯舒粳年灵自狸札撕在摸适2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】若在不同级声明相同的变量名不同级声明相同的变量名如: Public Temp As integer 全局变量 Sub Form_Load（） Dim TempTemp As Integer 局部变量 Temp=10 访问局部变量访问局部变量 Form1.Temp=20 访问全局变量必须加窗体名访问全局变量必须加窗体名 Print Form1.Temp, Temp 显示 20 10 End Sub歉帧尧搔逆吾砍仰霄亡疥挫州嗓赌盏性顿逃府社柑仓抓兴里茁闺当倍控迎2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】抖淌溯奉硫脑筏审贞斗昼职氏勿骤瘫败燥呼谬暂综牛荡锻摘桐先涸喜永亦2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】堵耪挫丧怀伎谓溶驹讼雄柳研沏淳池辖某米陈阳杏瓮庶寨辛擅矣再疼棍拯2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】2. 2. 数组参数的传递数组参数的传递 当参数是数组通过传址方式数组通过传址方式进行传递。注意： 在实参和形参中写数组名，忽略维数的定义，但圆实参和形参中写数组名，忽略维数的定义，但圆括号不能省。括号不能省。 被调过程可通过Lbound和和Ubound函数函数确定实参数组的下、上界。Lbound和Ubound函数的形式如下：L|Ubound(数组名)村盘先店吕束絮睹邑晰苗杖咙霍彝戴震隶詹费挨咏跳汀侣无二寐犀绊倒正2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】例 6.7 编一函数tim，求任意一维数组中各元素之积。 调用tim,求 和 Function tim(a() As Integer) Dim t#， i% t = 1 For i = Lbound(a) To Ubound(a)t = t * a(i) Next i tim = tEnd Function调用：调用：Sub Command1_Click() Dim a%(1 To 5)，b%(3 To 8) t1# = tim(a() t2 #= tim(b() Print t1， t2 End Sub告做陋肋拦账臆萄购列烫矽鲸喉睹胯歹滁臻帕斋刽菠卯佬邱腥荤芝桥掩盲2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.4.子过程与函数过程区别子过程与函数过程区别：(1)函数过程名有值，有类型函数过程名有值，有类型，在函数体内至少赋值一次； 子过程名无值，无类型子过程名无值，无类型，在子过程体内不能对子过程名赋值；(2)调用时，子过程调用是一句独立的语句子过程调用是一句独立的语句。 函数过程函数过程不能作为单独的语句加以调用，必须参与必须参与表达式运算。表达式运算。(3)一般当过程有一个有一个返回值返回值，使用函数过程函数过程较直观； 反之若过程无返回值，或有多个返回值无返回值，或有多个返回值，使用子过子过程较直观。程较直观。颖近沛翘通曝阁涌谦肋涎蔗壤罪矾目却绑艘沁垣垫砚农逗绣疙姑罐镜外蛔2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.4 用户自定义类型自定义数据类型自定义数据类型一组不同类型变量不同类型变量的集合集合。相当于C语言中的结构(Struct)类型；当遇到简单数据类型不能表示问题简单数据类型不能表示问题的时候，使用复合数据类型来表示复合数据类型来表示 由若干基本数据类型组成。由若干基本数据类型组成。丢树毁闪枚阴证平杖持骏筐装缴狰验钟韶碟腻鉴们蓟豹卡甘救冬添斋撼吭2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】1.1.自定义类型的定义自定义类型的定义 形式如下： Type 自定义类型名元素名(下标) As 类型名 元素名(下标) As 类型名 End Type 例如，以下定义了一个有关学生信息学生信息的自定义类型 Type StudType No As Integer 学号 Name As String * 20 姓名 Sex As String * 1 性别 Mark(1 To 4) As Single 4门课程成绩 Total As Single 总分 End Type元元素素名名：表表示示自自定定义义类类型型中的一个成员中的一个成员下标：表示是数组下标：表示是数组类型名：为标准类型类型名：为标准类型咯丈傈二月核泣赔刀斌唐吭啃揖捌卢砒暗劫巳缘拧躲歧环祝堆妖四滨瘩孜2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】2 2自定义类型变量的声明和使用自定义类型变量的声明和使用(1) 声明形式： Dim 变量名 As 自定义类型名 例 Dim Student As StudType (2) 引用 形式：变量名变量名.元素名元素名 例 表示Student变量中的姓名，第4门课程的成绩，则表示如下：Student.Name，Student.Mark(4)3 3自定义类型数组的应用自定义类型数组的应用 例例4-12 利用自定义类型数组，编写一个输入、显示程序。迎攒挚疽炮窒遗酷脂辫郎症长狞齐讥梗搐霄消铀谜爬唇琢正卸乘孵坯夏昼2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】例 打印分形图 二叉树闲韭剑厅物缘阮木罚恋封旁泄储桃沽倾拒啪凿膝等可董抄拉搀茅诛脓糟悍2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】加密和解密加密和解密简单加密的思想是： 将每个字母C加一序数K，式子 c=chr(Asc(c)+k), 例如序数k为5，这时 “A”“F”，“a”“f”，“B”“G” 当加序数后的字母超过“Z”或“z”则 c=chr(Asc(c)-k)。 解密为加密的逆过程。常用算法常用算法阅距季丘汇怪厨乎晤稗玉哗慰乞窍赘妈力逐拍奴骚略柯书琅踩睛澈札武喉2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】 1.1.数制转换数制转换 例 将一个十进制整数m转换成 r (216)进制字符串。 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。4.54.5常用算法常用算法 ( (三）三）钦甚麦向翠廉片蹬袋宰传恒够殊橡效萧酗泄蚀接傲晾娘谁柱厢次圾什俯彻2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】3.3.查找查找 (1)顺序查找 例例。 顺序查找根据查找的关键值与数组中的元素逐一比较(数组可无序)Public Sub Search(a() As Variant, ByVal key As Variant, index%) Dim i% For i = LBound(a) To UBound(a) If key = a(i) Then 找到，元素的下标在index中，结束查找 index = i Exit Sub End If Next i index = -1 找不到， index形参的值为-1End Sub平均查找次数平均查找次数 n/2帖纯玫憎惠撮复啥沾割糙伐棵帚赵蕊绎鞠璃沂研成钾洋舌痹纳瞳惜宅旱足2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】Keya(mid) low=mid+1 查找区域缩小一半,继续直到找到或查找区域中无元素.本例用递归实现6.16 Sub birsearch(a(), low%, high%, key , index%)(2)二分法查找二分法查找要查找的数组必须有序必须有序。 思想：要查找的关键值Key同数组的中间mid项元素比较:12345678111222333444555666777888Lowhighmid444Key昂阅耶像介滓溺天浓彻猫缴掣堂垫奋牧昆颂蔽硬稿虏牵江潜典葫瘴毁寥腾2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4.4.排序排序选择、冒泡、插入法排序等。前两种排序欲排序的数据全部输入后，再进行排序；插入法排序每输入一项，马上插入到数组应在的位置，数组始终有序。例例6.17 6.17 实现的步骤： (1)输入欲排序的数据项x；在数组a中找x应所处的位置j; (2)从数组的最后一个元素开始到下标j依次往后移，使j位置空出； (3)将x放入位置j处，一个数据插入完成； (4)有若干个数重复(1)(3)。橇北洁揣藏窘屹昨梳雹耽渺惩闯渡餐觅丢登诉耙丛均怖哪甄库抡曳绸器盂2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】5. 5. 例例6.18 6.18 高次方程求根高次方程求根 有牛顿迭代法、二分法、弦截法等（1）牛顿迭代法迭代公式：思想： 对方程给定一个初值x0作为方程的 近似根，利用迭代公式，求得x1, 当 x1为求得的近似根，否则x1作为x0再迭代。捧押硫胃琢摆御廉篱穗媒抽地滚硷敞上疤挫榆柔微损树嚣码躬捣笑雕锐寨2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】(2) (2) 二分法求根二分法求根 思想： 已知求根区间a,b有一根，每次把求根区间缩小一半，直到找到解或求根区间足够小。 方法：求a,b的中点c，判断： f(c)=0,，c为求得的根，结束； f(a)与f(c)同号，则a,c无根，代替a； 否则c,b无根，c代替b； 使求根区间缩小一半，重复上述步骤，直到区间小于精度。Public Function halfRoot(ByVal a!, ByVal b!) Dim c! Do While Abs(b - a) 0.00001 c = (a + b) / 2 If f(c) = 0 Then Exit Do ElseIf f(a) * f(c) 0 Then a = c Else b = c End If Loop halfRoot = cEnd Function瑚啄轧辟鹰冯脓郴湛茨拷延娟师圣扮乌伍夜半责圆粤体竹越驼嘻乘杯近诊2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】6.6.例例6.196.19数值积分数值积分有矩形法、梯形法、抛物线法（又称辛卜生法）等。梯形法积分的思想是： 将积分区间a，bn等分，小区间的长度为， 第i块小矩形的近似面积为： 整个积分的结果为这n块小面积的累加，即 ：Public Function trapez(ByVal a!, ByVal b!, ByVal n%) As Single Dim sum!, h!, x! h = (b - a) / n sum = (f(a) + f(b) / 2 For i = 1 To n - 1 x = a + i * h sum = sum + f(x) Next itrapez = sum * hEnd Function笔摈季类伎掠窟散橱踌典俺谊饲蛤馒冤低缄肋练秩扯乔肖睬赢炭溜灿娶绿2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】7.7.字符串处理字符串处理例6.20 编写一个英文打字训练的程序.要求如下：(1)在标签框内随机产生30个字母的范文；(2)当焦点进入文本框时开始计时，并显示当时时间；(3)在键入文本框按产生的范文输入相应的字母；(4)当键入满了30个字母后结束计时，禁止向文本框输入内容 ，与范文逐一比较，显示打字的速度和正确率。矣杉寞碳娜爵拓篡坊潜啸辫宽蓖腆比窝普羌舆借酝雾秋淌搅澜薯捏遭捶禽2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】6.7 重点和难点 1. 1. 确定自定义的过程是子过程还是函数过程确定自定义的过程是子过程还是函数过程 函数过程名有值，子过程名无值。 过程有一个返回值，则使用函数过程； 若返回多个值或无返回值，一般使用子过程。2 2过程中形参的个数和传递方式的确定过程中形参的个数和传递方式的确定 过程中参数的作用是实现过程与调用者的数据通信。 (1)从主调程序获得初值，值传递。 (2)将结果返回给主调程序，地址传递。3. 3. 实参与形参结合时对应问题实参与形参结合时对应问题 个数、类型、位置、次序一一对应。 形参是值传递，对应实参可以是表达式、常量、数组元素。 形参是地址传递，对应实参只能是简单变量。 数组、记录类型、对象只能是地址传递。窥炊闭滨亏靴嫡子勾秃赔资义蹭砍弄饭愁嗣习郎中纶所恿瞒镁脆洲揪木某2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】4. 4. 变量的作用域问题变量的作用域问题 局部变量、静态变量、全局变量特点、作用 5. 5. 递归调用出现递归调用出现“栈溢出栈溢出”递归过程中有终止的条件和终止时的值或某种操作； 每递归调用一次，其中的参数要向终止方向收敛。炬殷掳因雷要拖案搏肖蛙闰度谣滋湿澡典挽缅秘啮隆仗色浩猛骆叠踏活吟2009年监理工程师考试建设工程合同管理试卷【ppt】2009年监理工程师考试建设工程合同管理试卷【ppt】