2019年監(jiān)理工程師考試建設(shè)工程合同管理試卷ppt課件

1、第4章 過程和變量的作用域 4.1 Visual Basic 的代碼模塊 結(jié)構(gòu)化程序設(shè)計(jì)思想： 把較大的程序劃分為若干個(gè)模塊(窗體)； 每個(gè)模塊(窗體)只完成一個(gè)或若干個(gè)功能； Visual Basic 應(yīng)用程序的結(jié)構(gòu)： VB應(yīng)用程序 .VBP 窗體模塊 .Frm 類模塊 .Cls 標(biāo)準(zhǔn)模塊 .Bas 函數(shù)過程Sub過程事件過程函數(shù)過程Sub過程 1. 1. 引例引例4-24-2 已知多邊形的各條邊的長度，已知多邊形的各條邊的長度， 要計(jì)算多邊形的面積。要計(jì)算多邊形的面積。 計(jì)算多邊形面積，可將多邊形分解計(jì)算多邊形面積，可將多邊形分解 成若干個(gè)三角形。成若干個(gè)三角形。 計(jì)算三角形面積的公式如下

2、：計(jì)算三角形面積的公式如下： a b c de f g S1 S2 S3 )( 2 1 )()(zyxczcycxccarea x y z S=S1+S2+S3 傳統(tǒng)方法：下面的公式寫三次 4.2.1 4.2.1 函數(shù)過程的創(chuàng)建和調(diào)用函數(shù)過程的創(chuàng)建和調(diào)用 除了系統(tǒng)提供的內(nèi)部函數(shù)過程和事件除了系統(tǒng)提供的內(nèi)部函數(shù)過程和事件 過程外，用戶可自定義過程：過程外，用戶可自定義過程： 以以SubSub保留字開始的為子過程通用保留字開始的為子過程通用 過程）；過程）； 以以FunctionFunction保留字開始的為函數(shù)過保留字開始的為函數(shù)過 程。程。 1 1函數(shù)過程的創(chuàng)建函數(shù)過程的創(chuàng)建 函數(shù)過程形式：函

3、數(shù)過程形式： Function Function 函數(shù)過程名函數(shù)過程名(參數(shù)列表參數(shù)列表( (形參形參) As ) As 類型類型 局部變量或常數(shù)定義局部變量或常數(shù)定義 語句塊語句塊 函數(shù)名函數(shù)名 = = 返回值返回值 函數(shù)過程函數(shù)過程 體體 Exit FunctionExit Function 語句塊語句塊 函數(shù)名函數(shù)名 = = 返回值返回值 End Function End Function 自定義函數(shù)過程有兩種方法：自定義函數(shù)過程有兩種方法： (1)(1)利用利用“工具工具菜單下的菜單下的“添加過程添加過程命令定義，命令定義， 生成一個(gè)函數(shù)的框架。生成一個(gè)函數(shù)的框架。 (2)(2)利用代

4、碼窗口直接定義。利用代碼窗口直接定義。 2.2.函數(shù)過程的調(diào)用函數(shù)過程的調(diào)用 函數(shù)過程調(diào)用同標(biāo)準(zhǔn)函數(shù)調(diào)用，函數(shù)過程調(diào)用同標(biāo)準(zhǔn)函數(shù)調(diào)用， 形式：函數(shù)過程名形式：函數(shù)過程名(參數(shù)列表參數(shù)列表) ) 參數(shù)列表：稱為實(shí)參，它必須與形參個(gè)數(shù)相同，位置參數(shù)列表：稱為實(shí)參，它必須與形參個(gè)數(shù)相同，位置 與類型一一對(duì)應(yīng)?？梢允峭愋偷某Ａ俊⒆兞?、表達(dá)與類型一一對(duì)應(yīng)?？梢允峭愋偷某Ａ?、變量、表達(dá) 式。式。 Private Sub Command1_Click() A=val ( Inputbaox(“”) ) End sub 定義一個(gè)函數(shù):多次調(diào)用 a b c de f g S1 S2 S3 x y z 定義函

5、數(shù)過程area： Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqr(c * (c - x) * (c - y) * (c - z) End Function 調(diào)用函數(shù)過程： Sub command1_click() 輸入若干個(gè)三角形邊長 S=area(a,b,c)+area(c,d,e) S=S+area(e,f,g) Print S End Sub 例例4-3 編寫定義計(jì)算任意整數(shù)編寫定義計(jì)算任意整數(shù)a階乘的函數(shù)過程階乘的函數(shù)過程fac(n). 參考代碼：參考代碼： Pub

6、lic Function fac(a as Integer) as Long dim p as Long, i as Integer p=1 累乘初值為累乘初值為1 For i=1 to a p=p * i Next i fac=p 程序中對(duì)函數(shù)名賦值程序中對(duì)函數(shù)名賦值 End Function 調(diào)用：a=fac(10) 4.2.2 4.2.2 子子 過過 程的創(chuàng)建和調(diào)用程的創(chuàng)建和調(diào)用 2.2.子過程創(chuàng)建子過程創(chuàng)建 Sub Sub 子過程名子過程名(參數(shù)列表參數(shù)列表) 局部變量或常數(shù)定義局部變量或常數(shù)定義 語句語句 Exit SubExit Sub 語句語句 End SubEnd Sub 3.

7、3.子過程的調(diào)用子過程的調(diào)用 子過程名子過程名 參數(shù)列表參數(shù)列表 或或 Call Call 子過程名子過程名( (參數(shù)列表參數(shù)列表) ) 1.引例 編寫一個(gè)兩個(gè)數(shù)交換的過程供多次調(diào)用。 Swap (x,y)子過程的定義主調(diào)程序調(diào)用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 例4-1，編寫一個(gè)能找出兩個(gè)數(shù)中大數(shù)的子過 程，然后在應(yīng)用程序中

8、調(diào)用它。 4.2.3 4.2.3 參數(shù)傳遞參數(shù)傳遞 指主調(diào)過程的實(shí)參傳遞給被調(diào)過程的形參。指主調(diào)過程的實(shí)參傳遞給被調(diào)過程的形參。 形參和實(shí)參對(duì)應(yīng)關(guān)系：形參和實(shí)參對(duì)應(yīng)關(guān)系： 1 1對(duì)應(yīng)變量名不必相同，但變量個(gè)數(shù)對(duì)應(yīng)變量名不必相同，但變量個(gè)數(shù) 相等；相等； 2 2各實(shí)參的書寫順序必須和對(duì)應(yīng)的形各實(shí)參的書寫順序必須和對(duì)應(yīng)的形 參順序一致，且類型相符。參順序一致，且類型相符。 1. 1. 傳址與傳值傳址與傳值 傳址：傳址： 形參得到的是實(shí)參的地址，當(dāng)形參值形參得到的是實(shí)參的地址，當(dāng)形參值 的改變同時(shí)也改變實(shí)參的值。的改變同時(shí)也改變實(shí)參的值。 傳值：傳值：ByValByVal 形參得到的是實(shí)參的值，形參

9、值的改形參得到的是實(shí)參的值，形參值的改 變不會(huì)影響實(shí)參的值。變不會(huì)影響實(shí)參的值。 4.2.3 4.2.3 參數(shù)傳遞參數(shù)傳遞 。 例例4-5 4-5 兩個(gè)變量的交換。兩個(gè)變量的交換。 Sub Swap1(ByVal x%, ByVal y%)Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = t t% = x: x = y: y = t End SubEnd Sub Private Sub Command1_Click()Private Sub Command1_Click() a% = 10: b% = 20: Swap1 a, b a% = 10

10、: b% = 20: Swap1 a, b 傳值傳值 Print A1=; a, B1=; bPrint A1=; a, B1=; b a = 10: b = 20: Swap2 a, b a = 10: b = 20: Swap2 a, b 傳址傳址 Print A2=; a, B2=; bPrint A2=; a, B2=; b End SubEnd Sub Sub Swap2(x%, y%) t% = x: x = y: y = t End Sub a的地址 10 10 10 aa x x 形參 實(shí)參 ByVal 傳值傳地址 4.3 變量、過程的作用域 作用域：變量、過程隨所處的位置不同

11、， 可被訪問的范圍。 1.過程的作用域(理解) 窗體/模塊級(jí)：加Private關(guān)鍵字 的過程，只能被定義的窗體或模塊中的過 程調(diào)用。 全局級(jí)：加Public關(guān)鍵字缺省 的過程，可供該應(yīng)用程序的所有窗體和所 有標(biāo)準(zhǔn)模塊中的過程調(diào)用。 2. 2. 變量的作用域變量的作用域 局部變量：在過程內(nèi)用聲明的變量，只局部變量：在過程內(nèi)用聲明的變量，只 能在本過程中使用。能在本過程中使用。 窗體窗體/ /模塊級(jí)變量：在模塊級(jí)變量：在“通用聲明通用聲明段段 中用中用DimDim語句或用語句或用PrivatePrivate語句語句 聲明的變量聲明的變量, ,可被可被 本窗體本窗體/ /模塊的任何過程訪問。模塊的任

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

13、,不能訪問Fa End Sub Sub f1(x) x=f2(xx)*3 End Sub Sub Command1_Click() Call f1(y) End Sub Function f2(x) f2=f3(x)+3 End Sub Function f3(x) f3=x*x End Sub Sub f1(x) Call f1(y) End Sub 過程的直接調(diào)用過程的直接調(diào)用 Sub Command1_Click() Call f1(y) End Sub 過程的遞歸調(diào)用過程的遞歸調(diào)用 4.4 4.4 遞歸遞歸 1.1.遞歸的概念遞歸的概念 用自身的結(jié)構(gòu)來描述自身就稱為用自身的結(jié)構(gòu)來描述自

14、身就稱為“遞歸遞歸”。例對(duì)階乘的。例對(duì)階乘的 定義：定義： )!2() 1()!1( )!1(! nnn nnn 2. 遞歸過程遞歸過程 過程在自身定義的內(nèi)部調(diào)用自己。過程在自身定義的內(nèi)部調(diào)用自己。 例例4-8 編編fac(n)=n! 的遞歸函數(shù)的遞歸函數(shù) Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function 11)fac(* 11 )fac( nnn n n Sub Command1_Click() Print “fac(4)=”；fa

15、c(4) End Sub 結(jié)果：結(jié)果：fac(4)=24 遞推回歸 fac(2)=2*fac(1) fac(1)=1 fac(4)=4*6fac(3)=3*2fac(2)=2*1 fac(3)=3*fac(2)fac(4)=4*fac(3) 11)fac(* 11 )fac( nnnn n n 問題： 遞歸方程: 寫出遞歸函數(shù) 考慮 若上述fac函數(shù)中少了 ： If n = 1 Then fac = 1 即僅有語句：fac = n * fac(n - 1) 程序運(yùn)行將造成何結(jié)果？由此可見構(gòu)成遞歸的結(jié)構(gòu)如下： 1、遞歸結(jié)束條件及結(jié)束時(shí)的值； 2、自身的調(diào)用,并且遞歸向終止條件發(fā)展。 若在不同級(jí)聲

16、明相同的變量名如: Public Temp As integer 全局變量 Sub Form_Load（） Dim Temp As Integer 局部變量 Temp=10 訪問局部變量 Form1.Temp=20 訪 問全局變量必須加窗體名 Print Form1.Temp, Temp 顯示 20 10 End Sub 2. 2. 數(shù)組參數(shù)的傳遞數(shù)組參數(shù)的傳遞 當(dāng)參數(shù)是數(shù)組通過傳址方式進(jìn)行傳遞。注意：當(dāng)參數(shù)是數(shù)組通過傳址方式進(jìn)行傳遞。注意： 在實(shí)參和形參中寫數(shù)組名，忽略維數(shù)的定義，但圓在實(shí)參和形參中寫數(shù)組名，忽略維數(shù)的定義，但圓 括號(hào)不能省。括號(hào)不能省。 被調(diào)過程可通過被調(diào)過程可通過Lbou

17、ndLbound和和UboundUbound函數(shù)確定實(shí)參數(shù)組函數(shù)確定實(shí)參數(shù)組 的下、上界。的下、上界。 LboundLbound和和UboundUbound函數(shù)的形式如下：函數(shù)的形式如下： L|Ubound(L|Ubound(數(shù)組名數(shù)組名) ) 例 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 = t End Function 5 1 1 i i at 8 3 2 i

18、 i bt 調(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 4.4.子過程與函數(shù)過程區(qū)別：子過程與函數(shù)過程區(qū)別： (1)(1)函數(shù)過程名有值，有類型，在函數(shù)體內(nèi)至少賦值函數(shù)過程名有值，有類型，在函數(shù)體內(nèi)至少賦值 一次；一次； 子過程名無值，無類型，在子過程體內(nèi)不能對(duì)子子過程名無值，無類型，在子過程體內(nèi)不能對(duì)子 過程名賦值；過程名賦值； (2)(2)調(diào)用時(shí)，子過程調(diào)用是一句獨(dú)立的語句。調(diào)用時(shí)，子過程調(diào)用是一句獨(dú)立的語句。 函數(shù)過程不能作為單

19、獨(dú)的語句加以調(diào)用，必須函數(shù)過程不能作為單獨(dú)的語句加以調(diào)用，必須 參與表達(dá)式運(yùn)算。參與表達(dá)式運(yùn)算。 (3)(3)一般當(dāng)過程有一個(gè)返回值，使用函數(shù)過程較直觀一般當(dāng)過程有一個(gè)返回值，使用函數(shù)過程較直觀 ； 反之若過程無返回值，或有多個(gè)返回值，使用子反之若過程無返回值，或有多個(gè)返回值，使用子 過程較直觀。過程較直觀。 4.4 用戶自定義類型 自定義數(shù)據(jù)類型自定義數(shù)據(jù)類型 一組不同類型變量的集合。相當(dāng)于一組不同類型變量的集合。相當(dāng)于C語言語言 中的結(jié)構(gòu)中的結(jié)構(gòu)(Struct)類型；類型； 當(dāng)遇到簡單數(shù)據(jù)類型不能表示問題的時(shí)候，使當(dāng)遇到簡單數(shù)據(jù)類型不能表示問題的時(shí)候，使 用復(fù)合數(shù)據(jù)類型來表示用復(fù)合數(shù)據(jù)類型

20、來表示 由若干基本數(shù)據(jù)類型組成。由若干基本數(shù)據(jù)類型組成。 1.1.自定義類型的定義自定義類型的定義 形式如下：形式如下： Type Type 自定義類型名自定義類型名 元素名元素名(下標(biāo)下標(biāo)) As ) As 類型名類型名 元素名元素名(下標(biāo)下標(biāo)) As ) As 類型名類型名 End Type End Type 例如，以下定義了一個(gè)有關(guān)學(xué)生信息的自定義類例如，以下定義了一個(gè)有關(guān)學(xué)生信息的自定義類 型型 Type StudTypeType StudType No As IntegerNo As Integer 學(xué)號(hào)學(xué)號(hào) Name As String Name As String * * 20

21、20 姓名姓名 Sex As String Sex As String * * 1 1 性別性別 Mark(1 To 4) As SingleMark(1 To 4) As Single 4 4門課程成門課程成 績績 Total As SingleTotal As Single 總分總分 End TypeEnd Type 元素名：表示自定義類型元素名：表示自定義類型 中的一個(gè)成員中的一個(gè)成員 下標(biāo)：表示是數(shù)組下標(biāo)：表示是數(shù)組 類型名：為標(biāo)準(zhǔn)類型類型名：為標(biāo)準(zhǔn)類型 2 2自定義類型變量的聲明和使用自定義類型變量的聲明和使用 (1) (1) 聲明形式：聲明形式： Dim Dim 變量名變量名 As

22、 As 自定義類型名自定義類型名 例例 Dim Student As StudType Dim Student As StudType (2) (2) 引用引用 形式：變量名形式：變量名. .元素名元素名 例例 表示表示StudentStudent變量中的姓名，第變量中的姓名，第4 4門課程門課程 的成績，則表示如下：的成績，則表示如下： Student.NameStudent.Name，Student.Mark(4)Student.Mark(4) 3 3自定義類型數(shù)組的應(yīng)用自定義類型數(shù)組的應(yīng)用 例例4-12 4-12 利用自定義類型數(shù)組，編寫一個(gè)輸入、顯示程利用自定義類型數(shù)組，編寫一個(gè)輸入、

23、顯示程 序。序。 例 打印分形圖 二叉樹 加密和解密加密和解密 簡單加密的思想是：簡單加密的思想是： 將每個(gè)字母將每個(gè)字母C C加一序數(shù)加一序數(shù)K K，式子，式子 c=chr(Asc(c)+k),c=chr(Asc(c)+k), 例如序數(shù)例如序數(shù)k k為為5 5，這時(shí)，這時(shí) “ “A”A”“F”“F”，“a”a”“f”“f”，“B”B”“G”“G” 當(dāng)加序數(shù)后的字母超過當(dāng)加序數(shù)后的字母超過“Z Z或或“z z那么那么 c=chr(Asc(c)-k)c=chr(Asc(c)-k)。 解密為加密的逆過程。解密為加密的逆過程。 常用算法常用算法 1.數(shù)制轉(zhuǎn)換 例 將一個(gè)十進(jìn)制整數(shù)m轉(zhuǎn)換成 r (21

24、6)進(jìn)制字 符串。 方法：將m不斷除 r 取余數(shù)，直到商為零，以反 序得到結(jié)果。 4.54.5常用算法常用算法 ( (三）三） 3.3.查找查找 (1)(1)順序查找順序查找 例。例。 順序查找根據(jù)查找的關(guān)鍵值與數(shù)組中的元素逐一比順序查找根據(jù)查找的關(guān)鍵值與數(shù)組中的元素逐一比 較較( (數(shù)組可無序數(shù)組可無序) ) Public Sub Search(a() As Variant, ByVal key As Public Sub Search(a() As Variant, ByVal key As Variant, index%)Variant, index%) Dim i% Dim i% Fo

25、r i = LBound(a) To UBound(a) For i = LBound(a) To UBound(a) If key = a(i) Then If key = a(i) Then 找到，元素找到，元素 的下標(biāo)在的下標(biāo)在indexindex中，結(jié)束查找中，結(jié)束查找 index = iindex = i Exit Sub Exit Sub End If End If Next i Next i index = -1 index = -1 找不到，找不到， indexindex形參的值為形參的值為-1-1 End SubEnd Sub 平均查找次數(shù)平均查找次數(shù) n/2n/2 Keya

26、(mid) low=mid+1 查找區(qū)域縮小一半,繼續(xù) 直到找到或查找區(qū)域中無元素. 本例用遞歸實(shí)現(xiàn)6.16 Sub birsearch(a(), low%, high%, key , index%) (2)二分法查找 要查找的數(shù)組必須有序。 思想：要查找的關(guān)鍵值Key同數(shù)組的中間mid項(xiàng)元素比較: 12 34 56 78 111 222 333 444 555 666 777 888 Low high mid 444 Key 4.4.排序排序 選擇、冒泡、插入法排序等。選擇、冒泡、插入法排序等。 前兩種排序欲排序的數(shù)據(jù)全部輸入后，再進(jìn)行排序；前兩種排序欲排序的數(shù)據(jù)全部輸入后，再進(jìn)行排序； 插

27、入法排序每輸入一項(xiàng)，馬上插入到數(shù)組應(yīng)在的位置，數(shù)組插入法排序每輸入一項(xiàng)，馬上插入到數(shù)組應(yīng)在的位置，數(shù)組 始終有序。始終有序。 例例6.17 6.17 實(shí)現(xiàn)的步驟：實(shí)現(xiàn)的步驟： (1)(1)輸入欲排序的數(shù)據(jù)項(xiàng)輸入欲排序的數(shù)據(jù)項(xiàng)x x；在數(shù)組；在數(shù)組a a中找中找x x應(yīng)所處的位置應(yīng)所處的位置 j;j; (2) (2)從數(shù)組的最后一個(gè)元素開始到下標(biāo)從數(shù)組的最后一個(gè)元素開始到下標(biāo)j j依次往后移，使依次往后移，使j j 位置空出；位置空出； (3)(3)將將x x放入位置放入位置j j處，一個(gè)數(shù)據(jù)插入完成；處，一個(gè)數(shù)據(jù)插入完成； (4)(4)有若干個(gè)數(shù)重復(fù)有若干個(gè)數(shù)重復(fù)(1)(1)(3)(3)。 )

28、( )( 1 i i ii xf xf xx 5. 5. 例例6.18 6.18 高次方程求根高次方程求根 有牛頓迭代法、二分法、弦截法等有牛頓迭代法、二分法、弦截法等 （1 1牛頓迭代法牛頓迭代法 迭代公式：迭代公式： 思想：思想： 對(duì)方程給定一個(gè)初值對(duì)方程給定一個(gè)初值x0 x0作為方程的作為方程的 近似根，利用迭代公式，求得近似根，利用迭代公式，求得x1, x1, 當(dāng)當(dāng) x1x1為求得的近似根，否則為求得的近似根，否則x1x1作為作為x0 x0再迭代。再迭代。 01 xx x0 x1 )( xf (2) (2) 二分法求根二分法求根 思想：思想： 已知求根區(qū)間已知求根區(qū)間a,ba,b有一根

29、，每次把求根區(qū)間縮小有一根，每次把求根區(qū)間縮小 一半，直到找到解或求根區(qū)間足夠小。一半，直到找到解或求根區(qū)間足夠小。 方法：求方法：求a,ba,b的中點(diǎn)的中點(diǎn)c c，判斷：，判斷： f(c)=0,f(c)=0,，c c為求得的根，完畢；為求得的根，完畢； f(a)f(a)與與f(c)f(c)同號(hào)，那么同號(hào)，那么a,ca,c無根，代替無根，代替a a； 否則否則c,bc,b無根，無根，c c代替代替b b； 使求根區(qū)間縮小一半，重復(fù)上述步驟，直到區(qū)使求根區(qū)間縮小一半，重復(fù)上述步驟，直到區(qū) 間小于精度。間小于精度。 x b a a c f(x) Public Function halfRoot(B

30、yVal 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 = c End Function 6.6.例例6.196.19數(shù)值積分?jǐn)?shù)值積分 有矩形法、梯形法、拋物線法又稱辛卜生法等。有矩形法、梯形法、拋物線法又稱辛卜生法等。 梯形法積分的思想是：梯形法積分的思想是： 將積分區(qū)間將積分區(qū)間aa，bnbn等分，小區(qū)間的長度為，等分，小區(qū)間的長度

31、為， 第第i i塊小矩形的近似面積為：塊小矩形的近似面積為： 整個(gè)積分的結(jié)果為這整個(gè)積分的結(jié)果為這n n塊小面積的累加，即塊小面積的累加，即 ： n ab h h xfxf s ii i 2 )()( 1 h xfxf S n i ii 1 1 2 )()( 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 i trapez = sum * h End Functi