高一理化生监理工程师考试建设工程合同管理试卷PPT学习教案

1、会计学1高一理化生监理工程师考试建设工程合高一理化生监理工程师考试建设工程合同管理试卷同管理试卷VB应用程序.VBP窗体模块.Frm类模块.Cls标准模块.Bas函数过程Sub过程事件过程函数过程Sub过程第1页/共45页第2页/共45页abcdefgS1S2S3)(21)()(zyxczcycxccareaxyzS=S1+S2+S3传统方法：下面的公式写三次传统方法：下面的公式写三次第3页/共45页第4页/共45页1 1函数过程的创建函数过程的创建 函数过程形式： Function 函数过程名函数过程名(参数列表(形参) As 类型 局部变量或常数定义局部变量或常数定义 语句块语句块 函数名

2、函数名 = 返回值返回值 函数过程体函数过程体 Exit Function 语句块语句块 函数名函数名 = 返回值返回值 End Function 自定义函数过程有两种方法：自定义函数过程有两种方法： (1)利用“工具工具”菜单下的菜单下的“添加过程添加过程”命令命令定义，生成一个函数的框架。 (2)利用代码窗口直接定义。第5页/共45页2.2.函数过程的调用函数过程的调用 函数过程调用函数过程调用同标准函数调用，形式形式：函数过程名函数过程名(参数列表参数列表) 参数列表参数列表：称为实参，它必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。Private Sub C

3、ommand1_Click()A=val ( Inputbaox(“”) )End sub第6页/共45页abcdefgS1S2S3xyz定义函数过程area：Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) = 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

4、SEnd Sub第7页/共45页例例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)第8页/共45页4.2.2 4.2.2 子子 过过 程程的创建和调用的创建和调用第9页/共45页2.2.子过程创建子过程创建 Sub 子过程名子过程

5、名(参数列表) 局部变量或常数定义 语句 Exit Sub 语句 End Sub3.3.子过程的调用子过程的调用 子过程名子过程名 参数列表 或 Call 子过程名子过程名(参数列表)第10页/共45页第11页/共45页第12页/共45页4.2.3 4.2.3 参数传递参数传递 指主调过程的实参主调过程的实参传递给被调过程的形参被调过程的形参。形参和实参对应关系：形参和实参对应关系：1）对应变量名不必相同，但变量个数相等；2）各实参的书写顺序必须和对应的形参顺序一致，且类型相符。1. 1. 传址与传值传址与传值 传址：传址： 形参得到的是实参的地址地址，当形参值的改变同时也改变实参的值也改变实

6、参的值。 传值：传值：ByVal 形参得到的是实参的值值，形参值的改变不会影响实参的值不会影响实参的值。第13页/共45页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

7、Swap2(x%, y%) t% = x: x = y: y = tEnd Suba的地址 10 10 10aa x x形参实参ByVal 传值传地址第14页/共45页4.3 变量、过程的作用域作用域：变量、过程随所处的位置不同，可被访问的范围。 1.1.过程的作用域过程的作用域( (了解了解) ) 窗体窗体/模块级模块级：加Private关键字的过程，只能被定义的窗体或模块中的过程调用。 全局级全局级：加Public关键字（缺省）的过程，可供该应用程序的所有窗体和所有标准模块中的过程调用。第15页/共45页2. 2. 变量的作用域变量的作用域 局部变量局部变量：在过程内用声明的变量，只能在本

8、过程中使用。 窗体窗体/模块级变量模块级变量：在“通用声明”段中用Dim语句或用Private语句 声明的变量,可被本窗体/模块的任何过程访问。 全局变量全局变量：在“通用声明”段中用Public语句声明的变量，可被本应用程序的任何过程或函数访问。第16页/共45页例如在下面一个标准模块文件中不同级的变量声明：option explicitPublic Pa As integer 全局全局变量变量Private Mb As string *10 窗体窗体/模块级变模块级变量量Sub F1( ) Dim Fa As integer 局部变量局部变量可以访问可以访问Pa,Mb,不能访问不能访问Fb

9、End SubSub F2( ) Dim Fb As Single 局部变量局部变量可以访问可以访问Pa,Mb,不能访问不能访问FaEnd Sub第17页/共45页第18页/共45页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过程的过程

10、的递归调用递归调用4.4 4.4 递归递归第19页/共45页1.1.递归的概念递归的概念 用自身的结构来描述自身就称为“递归递归”。例对阶乘的定义： )!2() 1()!1()!1(!nnnnnn2. 递归过程递归过程 过程在自身定义的内部调用自己。 例例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 Function11)fac(*11)fac(nnnnnSub Command1_Click() Prin

11、t “fac(4)=”；fac(4)End Sub结果：fac(4)=24第20页/共45页递推回归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)11)fac(*11)fac(nnnnnn问题： 递归方程:写出递归函数第21页/共45页第22页/共45页第23页/共45页若在不同级声明相同的变量名不同级声明相同的变量名如: Public Temp As integer 全局变量 Sub Form_Load（） Dim TempTemp As Integer 局部变量 Temp

12、=10 访问局部变量访问局部变量 Form1.Temp=20 访问全局变量必须加访问全局变量必须加窗体名窗体名 Print Form1.Temp, Temp 显示 20 10 End Sub第24页/共45页第25页/共45页第26页/共45页2. 2. 数组参数的传递数组参数的传递 当参数是数组通过传址方式数组通过传址方式进行传递。注意： 在实参和形参中写数组名，忽略维数的定义，但圆实参和形参中写数组名，忽略维数的定义，但圆括号不能省。括号不能省。 被调过程可通过Lbound和和Ubound函数函数确定实参数组的下、上界。Lbound和Ubound函数的形式如下：L|Ubound(数组名)第

13、27页/共45页例 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 Function511iiat832iibt调用：调用：Sub Command1_Click() Dim a%(1 To 5)，b%(3 To 8) t1# = tim(a() t2 #= tim(b() Print t1， t2 End Sub第28页/共45页4.4.子过程与函数过程区别

14、子过程与函数过程区别：(1)函数过程名有值，有类型函数过程名有值，有类型，在函数体内至少赋值一次； 子过程名无值，无类型子过程名无值，无类型，在子过程体内不能对子过程名赋值；(2)调用时，子过程调用是一句独立的语句子过程调用是一句独立的语句。 函数过程函数过程不能作为单独的语句加以调用，必须参与必须参与表达式运算。表达式运算。(3)一般当过程有一个有一个返回值返回值，使用函数过程函数过程较直观； 反之若过程无返回值，或有多个返回值无返回值，或有多个返回值，使用子过子过程较直观。程较直观。第29页/共45页第30页/共45页1.1.自定义类型的定义自定义类型的定义 形式如下： Type 自定义类

15、型名元素名(下标) 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元素名：表示自定义类型元素名：表示自定义类型中的一个成员中的一个成员下标：表示是数组下标：表示是数组类型名：为标准类型类型名：为标准类型第31页/共45页2 2自定义类型变量的声明和使用自定义类型变量

16、的声明和使用(1) 声明形式： Dim 变量名 As 自定义类型名 例 Dim Student As StudType (2) 引用 形式：变量名变量名.元素名元素名 例 表示Student变量中的姓名，第4门课程的成绩，则表示如下：Student.Name，Student.Mark(4)3 3自定义类型数组的应用自定义类型数组的应用 例例4-12 利用自定义类型数组，编写一个输入、显示程序。第32页/共45页例 打印分形图 二叉树第33页/共45页加密和解密加密和解密简单加密的思想是： 将每个字母C加一序数K，式子 c=chr(Asc(c)+k), 例如序数k为5，这时 “A”“F”，“a”

17、“f”，“B”“G” 当加序数后的字母超过“Z”或“z”则 c=chr(Asc(c)-k)。 解密为加密的逆过程。常用算法常用算法第34页/共45页 1.1.数制转换数制转换 例 将一个十进制整数m转换成 r (216)进制字符串。 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。4.54.5常用算法常用算法 ( (三）三）第35页/共45页3.3.查找查找 (1)顺序查找 例例。 顺序查找根据查找的关键值与数组中的元素逐一比较(数组可无序)Public Sub Search(a() As Variant, ByVal key As Variant, index%) Dim i% F

18、or 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第36页/共45页Keya(mid) low=mid+1 查找区域缩小一半,继续直到找到或查找区域中无元素.本例用递归实现6.16 Sub birsearch(a(), low%, high%, key , index%)(2)二分法查找二分法查找要查找的数组必须有序必须有序。 思想：要查找

19、的关键值Key同数组的中间mid项元素比较:12345678111222333444555666777888Lowhighmid444Key第37页/共45页4.4.排序排序选择、冒泡、插入法排序等。前两种排序欲排序的数据全部输入后，再进行排序；插入法排序每输入一项，马上插入到数组应在的位置，数组始终有序。例例6.17 6.17 实现的步骤： (1)输入欲排序的数据项x；在数组a中找x应所处的位置j; (2)从数组的最后一个元素开始到下标j依次往后移，使j位置空出； (3)将x放入位置j处，一个数据插入完成； (4)有若干个数重复(1)(3)。第38页/共45页)( )(1iiiixfxfxx

20、5. 5. 例例6.18 6.18 高次方程求根高次方程求根 有牛顿迭代法、二分法、弦截法等（1）牛顿迭代法迭代公式：思想： 对方程给定一个初值x0作为方程的 近似根，利用迭代公式，求得x1, 当 x1为求得的近似根，否则x1作为x0再迭代。01xx x0 x1 )( xf 第39页/共45页(2) (2) 二分法求根二分法求根 思想： 已知求根区间a,b有一根，每次把求根区间缩小一半，直到找到解或求根区间足够小。 方法：求a,b的中点c，判断： f(c)=0,，c为求得的根，结束； f(a)与f(c)同号，则a,c无根，代替a； 否则c,b无根，c代替b； 使求根区间缩小一半，重复上述步骤，直到区间小于精度。 x b a a c f(x) Public Function halfRoot(ByVal a!, ByVal b!) Dim c! Do While Abs(b - a) 0.00001 c = (a + b) / 2