高一理化生監(jiān)理工程師考試建設(shè)工程合同管理試卷PPT學(xué)習(xí)教案

1、會(huì)計(jì)學(xué)1高一理化生監(jiān)理工程師考試建設(shè)工程合高一理化生監(jiān)理工程師考試建設(shè)工程合同管理試卷同管理試卷VB應(yīng)用程序.VBP窗體模塊.Frm類模塊.Cls標(biāo)準(zhǔn)模塊.Bas函數(shù)過(guò)程Sub過(guò)程事件過(guò)程函數(shù)過(guò)程Sub過(guò)程第1頁(yè)/共45頁(yè)第2頁(yè)/共45頁(yè)abcdefgS1S2S3)(21)()(zyxczcycxccareaxyzS=S1+S2+S3傳統(tǒng)方法：下面的公式寫三次傳統(tǒng)方法：下面的公式寫三次第3頁(yè)/共45頁(yè)第4頁(yè)/共45頁(yè)1 1函數(shù)過(guò)程的創(chuàng)建函數(shù)過(guò)程的創(chuàng)建 函數(shù)過(guò)程形式： Function 函數(shù)過(guò)程名函數(shù)過(guò)程名(參數(shù)列表(形參) As 類型 局部變量或常數(shù)定義局部變量或常數(shù)定義 語(yǔ)句塊語(yǔ)句塊 函數(shù)名

2、函數(shù)名 = 返回值返回值 函數(shù)過(guò)程體函數(shù)過(guò)程體 Exit Function 語(yǔ)句塊語(yǔ)句塊 函數(shù)名函數(shù)名 = 返回值返回值 End Function 自定義函數(shù)過(guò)程有兩種方法：自定義函數(shù)過(guò)程有兩種方法： (1)利用“工具工具”菜單下的菜單下的“添加過(guò)程添加過(guò)程”命令命令定義，生成一個(gè)函數(shù)的框架。 (2)利用代碼窗口直接定義。第5頁(yè)/共45頁(yè)2.2.函數(shù)過(guò)程的調(diào)用函數(shù)過(guò)程的調(diào)用 函數(shù)過(guò)程調(diào)用函數(shù)過(guò)程調(diào)用同標(biāo)準(zhǔn)函數(shù)調(diào)用，形式形式：函數(shù)過(guò)程名函數(shù)過(guò)程名(參數(shù)列表參數(shù)列表) 參數(shù)列表參數(shù)列表：稱為實(shí)參，它必須與形參個(gè)數(shù)相同，位置與類型一一對(duì)應(yīng)?？梢允峭愋偷某Ａ俊⒆兞?、表達(dá)式。Private Sub C

3、ommand1_Click()A=val ( Inputbaox(“”) )End sub第6頁(yè)/共45頁(yè)abcdefgS1S2S3xyz定義函數(shù)過(guò)程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調(diào)用函數(shù)過(guò)程：Sub command1_click() 輸入若干個(gè)三角形邊長(zhǎng)輸入若干個(gè)三角形邊長(zhǎng) S=area(a,b,c)+area(c,d,e) S=S+area(e,f,g) Print

4、SEnd Sub第7頁(yè)/共45頁(yè)例例4-3 編寫定義計(jì)算任意整數(shù)編寫定義計(jì)算任意整數(shù)a階乘的函數(shù)過(guò)程階乘的函數(shù)過(guò)程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 程序中對(duì)函數(shù)名賦值程序中對(duì)函數(shù)名賦值End Function調(diào)用：a=fac(10)第8頁(yè)/共45頁(yè)4.2.2 4.2.2 子子 過(guò)過(guò) 程程的創(chuàng)建和調(diào)用的創(chuàng)建和調(diào)用第9頁(yè)/共45頁(yè)2.2.子過(guò)程創(chuàng)建子過(guò)程創(chuàng)建 Sub 子過(guò)程名子過(guò)程

5、名(參數(shù)列表) 局部變量或常數(shù)定義 語(yǔ)句 Exit Sub 語(yǔ)句 End Sub3.3.子過(guò)程的調(diào)用子過(guò)程的調(diào)用 子過(guò)程名子過(guò)程名 參數(shù)列表 或 Call 子過(guò)程名子過(guò)程名(參數(shù)列表)第10頁(yè)/共45頁(yè)第11頁(yè)/共45頁(yè)第12頁(yè)/共45頁(yè)4.2.3 4.2.3 參數(shù)傳遞參數(shù)傳遞 指主調(diào)過(guò)程的實(shí)參主調(diào)過(guò)程的實(shí)參傳遞給被調(diào)過(guò)程的形參被調(diào)過(guò)程的形參。形參和實(shí)參對(duì)應(yīng)關(guān)系：形參和實(shí)參對(duì)應(yīng)關(guān)系：1）對(duì)應(yīng)變量名不必相同，但變量個(gè)數(shù)相等；2）各實(shí)參的書寫順序必須和對(duì)應(yīng)的形參順序一致，且類型相符。1. 1. 傳址與傳值傳址與傳值 傳址：傳址： 形參得到的是實(shí)參的地址地址，當(dāng)形參值的改變同時(shí)也改變實(shí)參的值也改變實(shí)

6、參的值。 傳值：傳值：ByVal 形參得到的是實(shí)參的值值，形參值的改變不會(huì)影響實(shí)參的值不會(huì)影響實(shí)參的值。第13頁(yè)/共45頁(yè)4.2.3 4.2.3 參數(shù)傳遞參數(shù)傳遞。例例4-5 兩個(gè)變量的交換。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形參實(shí)參ByVal 傳值傳地址第14頁(yè)/共45頁(yè)4.3 變量、過(guò)程的作用域作用域：變量、過(guò)程隨所處的位置不同，可被訪問(wèn)的范圍。 1.1.過(guò)程的作用域過(guò)程的作用域( (了解了解) ) 窗體窗體/模塊級(jí)模塊級(jí)：加Private關(guān)鍵字的過(guò)程，只能被定義的窗體或模塊中的過(guò)程調(diào)用。 全局級(jí)全局級(jí)：加Public關(guān)鍵字（缺省）的過(guò)程，可供該應(yīng)用程序的所有窗體和所有標(biāo)準(zhǔn)模塊中的過(guò)程調(diào)用。第15頁(yè)/共45頁(yè)2. 2. 變量的作用域變量的作用域 局部變量局部變量：在過(guò)程內(nèi)用聲明的變量，只能在本

8、過(guò)程中使用。 窗體窗體/模塊級(jí)變量模塊級(jí)變量：在“通用聲明”段中用Dim語(yǔ)句或用Private語(yǔ)句 聲明的變量,可被本窗體/模塊的任何過(guò)程訪問(wèn)。 全局變量全局變量：在“通用聲明”段中用Public語(yǔ)句聲明的變量，可被本應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn)。第16頁(yè)/共45頁(yè)例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明：option explicitPublic Pa As integer 全局全局變量變量Private Mb As string *10 窗體窗體/模塊級(jí)變模塊級(jí)變量量Sub F1( ) Dim Fa As integer 局部變量局部變量可以訪問(wèn)可以訪問(wèn)Pa,Mb,不能訪問(wèn)不能訪問(wèn)Fb

9、End SubSub F2( ) Dim Fb As Single 局部變量局部變量可以訪問(wèn)可以訪問(wèn)Pa,Mb,不能訪問(wèn)不能訪問(wèn)FaEnd Sub第17頁(yè)/共45頁(yè)第18頁(yè)/共45頁(yè)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過(guò)程的直接調(diào)用過(guò)程的直接調(diào)用Sub Command1_Click() Call f1(y)End Sub過(guò)程的過(guò)程

10、的遞歸調(diào)用遞歸調(diào)用4.4 4.4 遞歸遞歸第19頁(yè)/共45頁(yè)1.1.遞歸的概念遞歸的概念 用自身的結(jié)構(gòu)來(lái)描述自身就稱為“遞歸遞歸”。例對(duì)階乘的定義： )!2() 1()!1()!1(!nnnnnn2. 遞歸過(guò)程遞歸過(guò)程 過(guò)程在自身定義的內(nèi)部調(diào)用自己。 例例4-8 編fac(n)=n! 的遞歸函數(shù) 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結(jié)果：fac(4)=24第20頁(yè)/共45頁(yè)遞推回歸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問(wèn)題： 遞歸方程:寫出遞歸函數(shù)第21頁(yè)/共45頁(yè)第22頁(yè)/共45頁(yè)第23頁(yè)/共45頁(yè)若在不同級(jí)聲明相同的變量名不同級(jí)聲明相同的變量名如: Public Temp As integer 全局變量 Sub Form_Load（） Dim TempTemp As Integer 局部變量 Temp

12、=10 訪問(wèn)局部變量訪問(wèn)局部變量 Form1.Temp=20 訪問(wèn)全局變量必須加訪問(wèn)全局變量必須加窗體名窗體名 Print Form1.Temp, Temp 顯示 20 10 End Sub第24頁(yè)/共45頁(yè)第25頁(yè)/共45頁(yè)第26頁(yè)/共45頁(yè)2. 2. 數(shù)組參數(shù)的傳遞數(shù)組參數(shù)的傳遞 當(dāng)參數(shù)是數(shù)組通過(guò)傳址方式數(shù)組通過(guò)傳址方式進(jìn)行傳遞。注意： 在實(shí)參和形參中寫數(shù)組名，忽略維數(shù)的定義，但圓實(shí)參和形參中寫數(shù)組名，忽略維數(shù)的定義，但圓括號(hào)不能省。括號(hào)不能省。 被調(diào)過(guò)程可通過(guò)Lbound和和Ubound函數(shù)函數(shù)確定實(shí)參數(shù)組的下、上界。Lbound和Ubound函數(shù)的形式如下：L|Ubound(數(shù)組名)第

13、27頁(yè)/共45頁(yè)例 6.7 編一函數(shù)tim，求任意一維數(shù)組中各元素之積。 調(diào)用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調(diào)用：調(diào)用：Sub Command1_Click() Dim a%(1 To 5)，b%(3 To 8) t1# = tim(a() t2 #= tim(b() Print t1， t2 End Sub第28頁(yè)/共45頁(yè)4.4.子過(guò)程與函數(shù)過(guò)程區(qū)別

14、子過(guò)程與函數(shù)過(guò)程區(qū)別：(1)函數(shù)過(guò)程名有值，有類型函數(shù)過(guò)程名有值，有類型，在函數(shù)體內(nèi)至少賦值一次； 子過(guò)程名無(wú)值，無(wú)類型子過(guò)程名無(wú)值，無(wú)類型，在子過(guò)程體內(nèi)不能對(duì)子過(guò)程名賦值；(2)調(diào)用時(shí)，子過(guò)程調(diào)用是一句獨(dú)立的語(yǔ)句子過(guò)程調(diào)用是一句獨(dú)立的語(yǔ)句。 函數(shù)過(guò)程函數(shù)過(guò)程不能作為單獨(dú)的語(yǔ)句加以調(diào)用，必須參與必須參與表達(dá)式運(yùn)算。表達(dá)式運(yùn)算。(3)一般當(dāng)過(guò)程有一個(gè)有一個(gè)返回值返回值，使用函數(shù)過(guò)程函數(shù)過(guò)程較直觀； 反之若過(guò)程無(wú)返回值，或有多個(gè)返回值無(wú)返回值，或有多個(gè)返回值，使用子過(guò)子過(guò)程較直觀。程較直觀。第29頁(yè)/共45頁(yè)第30頁(yè)/共45頁(yè)1.1.自定義類型的定義自定義類型的定義 形式如下： Type 自定義類

15、型名元素名(下標(biāo)) As 類型名 元素名(下標(biāo)) As 類型名 End Type 例如，以下定義了一個(gè)有關(guān)學(xué)生信息學(xué)生信息的自定義類型 Type StudType No As Integer 學(xué)號(hào) Name As String * 20 姓名 Sex As String * 1 性別 Mark(1 To 4) As Single 4門課程成績(jī) Total As Single 總分 End Type元素名：表示自定義類型元素名：表示自定義類型中的一個(gè)成員中的一個(gè)成員下標(biāo)：表示是數(shù)組下標(biāo)：表示是數(shù)組類型名：為標(biāo)準(zhǔn)類型類型名：為標(biāo)準(zhǔn)類型第31頁(yè)/共45頁(yè)2 2自定義類型變量的聲明和使用自定義類型變量

16、的聲明和使用(1) 聲明形式： Dim 變量名 As 自定義類型名 例 Dim Student As StudType (2) 引用 形式：變量名變量名.元素名元素名 例 表示Student變量中的姓名，第4門課程的成績(jī)，則表示如下：Student.Name，Student.Mark(4)3 3自定義類型數(shù)組的應(yīng)用自定義類型數(shù)組的應(yīng)用 例例4-12 利用自定義類型數(shù)組，編寫一個(gè)輸入、顯示程序。第32頁(yè)/共45頁(yè)例 打印分形圖 二叉樹第33頁(yè)/共45頁(yè)加密和解密加密和解密簡(jiǎn)單加密的思想是： 將每個(gè)字母C加一序數(shù)K，式子 c=chr(Asc(c)+k), 例如序數(shù)k為5，這時(shí) “A”“F”，“a”

17、“f”，“B”“G” 當(dāng)加序數(shù)后的字母超過(guò)“Z”或“z”則 c=chr(Asc(c)-k)。 解密為加密的逆過(guò)程。常用算法常用算法第34頁(yè)/共45頁(yè) 1.1.數(shù)制轉(zhuǎn)換數(shù)制轉(zhuǎn)換 例 將一個(gè)十進(jìn)制整數(shù)m轉(zhuǎn)換成 r (216)進(jìn)制字符串。 方法：將m不斷除 r 取余數(shù)，直到商為零，以反序得到結(jié)果。4.54.5常用算法常用算法 ( (三）三）第35頁(yè)/共45頁(yè)3.3.查找查找 (1)順序查找 例例。 順序查找根據(jù)查找的關(guān)鍵值與數(shù)組中的元素逐一比較(數(shù)組可無(wú)序)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 找到，元素的下標(biāo)在index中，結(jié)束查找 index = i Exit Sub End If Next i index = -1 找不到， index形參的值為-1End Sub平均查找次數(shù)平均查找次數(shù) n/2第36頁(yè)/共45頁(yè)Keya(mid) low=mid+1 查找區(qū)域縮小一半,繼續(xù)直到找到或查找區(qū)域中無(wú)元素.本例用遞歸實(shí)現(xiàn)6.16 Sub birsearch(a(), low%, high%, key , index%)(2)二分法查找二分法查找要查找的數(shù)組必須有序必須有序。 思想：要查找

19、的關(guān)鍵值Key同數(shù)組的中間mid項(xiàng)元素比較:12345678111222333444555666777888Lowhighmid444Key第37頁(yè)/共45頁(yè)4.4.排序排序選擇、冒泡、插入法排序等。前兩種排序欲排序的數(shù)據(jù)全部輸入后，再進(jìn)行排序；插入法排序每輸入一項(xiàng)，馬上插入到數(shù)組應(yīng)在的位置，數(shù)組始終有序。例例6.17 6.17 實(shí)現(xiàn)的步驟： (1)輸入欲排序的數(shù)據(jù)項(xiàng)x；在數(shù)組a中找x應(yīng)所處的位置j; (2)從數(shù)組的最后一個(gè)元素開(kāi)始到下標(biāo)j依次往后移，使j位置空出； (3)將x放入位置j處，一個(gè)數(shù)據(jù)插入完成； (4)有若干個(gè)數(shù)重復(fù)(1)(3)。第38頁(yè)/共45頁(yè))( )(1iiiixfxfxx

20、5. 5. 例例6.18 6.18 高次方程求根高次方程求根 有牛頓迭代法、二分法、弦截法等（1）牛頓迭代法迭代公式：思想： 對(duì)方程給定一個(gè)初值x0作為方程的 近似根，利用迭代公式，求得x1, 當(dāng) x1為求得的近似根，否則x1作為x0再迭代。01xx x0 x1 )( xf 第39頁(yè)/共45頁(yè)(2) (2) 二分法求根二分法求根 思想： 已知求根區(qū)間a,b有一根，每次把求根區(qū)間縮小一半，直到找到解或求根區(qū)間足夠小。 方法：求a,b的中點(diǎn)c，判斷： f(c)=0,，c為求得的根，結(jié)束； f(a)與f(c)同號(hào)，則a,c無(wú)根，代替a； 否則c,b無(wú)根，c代替b； 使求根區(qū)間縮小一半，重復(fù)上述步驟，直到區(qū)間小于精度。 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