計算機等級考試二級vb過程講解

1、計算機等級考試二級 vb 過程講解第 8 章 過程教學(xué)要求掌握 VB 的兩種過程：事件過程和通用過程掌握 Sub 過程的定義掌握 Function 過程的定義 掌握過程的調(diào)用掌握參數(shù)的傳遞按值傳遞和按地址傳遞 掌握遞歸算法掌握變量的作用域8.1 Sub 過程8.1.1 事件過程 當(dāng)對象識別某事件后 , 進行的操作處理以代碼的形式存儲在事件過程中。 分類： 窗體事件過程 控件事件過程1 定義事件過程 形式 ：Private Sub Form_ 事件名（ 參數(shù)列表 ） 局部變量和常數(shù)聲明 語句塊End SubInitialize （初始化）事件配置窗體時觸發(fā)Load （加載）事件一一窗體裝入內(nèi)存時

2、觸發(fā)Activate （激活）事件窗體被激活時觸發(fā)Gotfocus 事件（得到焦點）事件窗體成為當(dāng)前焦點時觸發(fā) 窗體上無可視控件時 , 觸發(fā)窗體的 Gotfocus 事件； 窗體上有可視控件時 , 觸發(fā)控件的 Gotfocus 事件； 執(zhí)行次序：Initialize Load Activate Gotfocus窗體的 Initialize、Load 事件發(fā)生在窗體被顯示之前 , 其中可放置系統(tǒng)初始化命令 , 但其中語句有所限制；窗體加載后 , 只要不被卸載 , 就不會再執(zhí)行 Initialize、Load 事件 , 但 Activate 事件會多次發(fā)生；當(dāng)訪問另一窗體上的“非可視”數(shù)據(jù)或調(diào)用其

3、中定義的全局過程時, 只會觸發(fā)該窗體的Initialize 事件 , 而 Load 事件不觸發(fā)；當(dāng)訪問另一窗體上的“可視”數(shù)據(jù)時 , 會同時觸發(fā)該窗體的 Initialize 和 Load 事件；3 定義控件的事件過程 一般形式 ：Private Sub 控件名 _事件名（ 參數(shù)列表 ） 局部變量和常數(shù)聲明 語句塊End Sub8.1.2 通用過程 完成某一特定功能的程序段通用過程（自定義）必須顯式調(diào)用方可執(zhí)行 ;分為：公有過程（ Public ） 私有過程（ Private ）1 通用 Sub 過程的定義 一般形式 ：Private|Public static Sub （） End Sub

4、說明 ：（1）以Sub開頭，End Sub結(jié)束”中間是過程體一一包括變量聲明和語句塊；（2）以 Private 為前綴的過程是模塊級的 , 以 Public 為前綴的過程是應(yīng)用程序級的 , 缺省默認(rèn)是 Public ；（3）Static 選項說明過程中的局部變量是靜態(tài)變量；（4）過程名的命名規(guī)則和變量名相同 ， 在同一個模塊中 ， 過程名必須是唯一的；（5）參數(shù)列表中的參數(shù)稱為形式參數(shù) ，可以沒有 ，但無參數(shù)時圓括號不能省略； 有多個參數(shù)時 參數(shù)之間用逗號間隔；（6）參數(shù)說明格式：OptionalByVal|ByRef （） As 其中：a）若參數(shù)是數(shù)組 ， 則在變量名后面加一對圓括號 ， 但

5、無維界定義b）ByVal ：指明參數(shù)傳遞方式是傳值；c）ByRef ：指明參數(shù)傳遞方式是傳地址 ， 為缺省值；d）若參數(shù)是字符型的 ， 必須是不定長字符串 ;e）Optional ：參數(shù)是可選的 ， 必須定義在必選參數(shù)后面。（7）當(dāng)過程調(diào)用結(jié)束,即執(zhí)行到End Sub語句,系統(tǒng)自動返回調(diào)用程序的調(diào)用語句處,執(zhí)行調(diào)用語句的下一條語句；（ 8） 過程不能嵌套定義 , 但可嵌套調(diào)用；（9） Exit Sub 語句的功能是提前退出過程調(diào)用 ,返回調(diào)用語句。例:Private Sub Excha nge（x As In teger,y As In teger）Dim Temp As IntegerTem

6、p=x : x=y : y=TempEnd Sub該通用過程實現(xiàn)交換功能 , 包含兩個參數(shù) , 均是 ByRef 形式的參數(shù)。3 Sub 過程調(diào)用必須在事件過程或其它通用過程中顯示調(diào)用。Sub過程調(diào)用 格式一 ： Call （ ） 格式二 ： 功能 ：對已定義的過程進行調(diào)用。如：Call Fact（x）Fact x（1） 調(diào)用的過程必須是已經(jīng)定義的, 否則系統(tǒng)會出現(xiàn)“子程序或函數(shù)未定義”的信息提示；（2）實在參數(shù)可以是常量、變量或表達式；（3） 實在參數(shù)的數(shù)目及類型要和定義時必選參數(shù)保持一致, 否則系統(tǒng)會出現(xiàn)“參數(shù)不可選”的 信息提示 , 參數(shù)之間用逗號間隔；(4) 若子程序沒有參數(shù) , 則格

7、式一中的括號可以省略；(5) 格式一和格式二的區(qū)別在于：格式二的參數(shù)表無須括號, 而是和過程名之間用空格隔開；例 8-2 試編寫一個找出任意一個正整數(shù)的因子的程序Option ExplicitPrivate Sub Command1_Click()Dim inta As Integer, st As Stringinta = Text1Call factor(inta, st)Text2 = stEnd SubPrivate Sub factor(ByVal n As Integer, s As String)Dim i As IntegerFor i = 1 To n - 1If n Mod

8、 i = 0 Then s = s & Str(i)Next iEnd Sub 優(yōu)點：程序即 Sub 過程的使用不僅可以縮短程序的長度 ,還能夠使程序的結(jié)構(gòu)更加清楚。 例: 定義一個通用過程用以求一維數(shù)組中的最小值Private Sub value(a() As Integer, min As Integer)Dim i As Integermin = a(1)For i = 2 To UBound(a)If a(i) min Then min = a(i)Next iEnd Sub 8 . 2 Function 過程Function 過程的特點是返回一個值 , 因此我們通常也稱之為自定義函數(shù)

9、。通常我們利用 Function 過程得到一個數(shù)值或一個字符串或一個邏輯值。 格式 ：Private|Public Function （ 參數(shù)列表 ） As End Function（ 1） 以 Function 開頭 , 以 End Function 結(jié)束 , 中間是函數(shù)體；（2）函數(shù)名命名規(guī)則、參數(shù)列表的表示都和Sub 過程相同；（3）As 數(shù)據(jù)類型：函數(shù)過程將由函數(shù)名返回一個值, 值的類型由 As 數(shù)據(jù)類型 定義； （4）函數(shù)體中一定要有對函數(shù)名賦值的語句函數(shù)名=表達式 , 否則返回相應(yīng)類型的初值；（ 5）函數(shù)體內(nèi)可有 Exit Function 語句無條件退出函數(shù)過程 , 返回主程序。

10、（6）Function 過程不能嵌套定義 , 但可嵌套調(diào)用。 例：定義函數(shù)： Private Function f（ByVal x As Integer） As Integerf = 3*xA3-2*xA2+6*x-1End Function例 8-1 ：編寫一個求 n! 的函數(shù)。Private Function Fact（Byval n As Integer） As LongDim K As IntegerFact=1If n=0 Or n=1 ThenExit FunctionElseFor K=1 To NFact=Fact*KNext KEnd IfEnd Function2 調(diào)用 F

11、unction 過程格式 ：(實在參數(shù)表 ) 功能 ：返回一個函數(shù)值。 說明 ：(1) 一般情況下 , 函數(shù)的調(diào)用出現(xiàn)在賦值語句中 , 并且在賦值號的右側(cè)；(2) 若函數(shù)沒有參數(shù) , 函數(shù)名后的括號不能省略；(3) 雖然VB允許象調(diào)用 Sub過程那樣調(diào)用Function過程,但這樣調(diào)用時系統(tǒng)不返回函數(shù)值建議大家不要使用這種調(diào)用方法。Call fact(x)Fact x 這兩種方法均放棄函數(shù)的返回值例: 用函數(shù)實現(xiàn)求一維數(shù)組中的最小值, 對比前例 (SUB)Private Function min( a( ) As Integer ) As IntegerDim i As Integermin

12、= a(1)For i = 2 To UBound(a)If a(i) min Then min = a(i)Next iEnd Sub例: 定義函數(shù)用以判斷一個數(shù)是否是素數(shù)Private Function Prime(N As Integer) As BooleanDim i As IntegerPrime = FalseFor i = 2 To N-1If N Mod i = 0 Then Exit ForNext iIf i =N then Prime = TrueEnd Function例:S=1!+2!+ +10!Private Sub Form_Click()Dim S As Lo

13、ng, i As IntegerFor i = 1 To 10Next iPrint ”S=; SEnd SubPrivate Function Fact(n As Integer) As LongDim i As IntegerFact = 1For i = 1 To nFact = Fact * iNext iEnd Function例 8-3 ：利用函數(shù)過程編寫一個求兩個正整數(shù)的最大公約數(shù)的程序Private Sub Form_Click( ) 主調(diào)過程Dim N As Integer, M As Integer, G As IntegerN = InputBox(輸入 N)M = In

14、putBox(輸入 M)G = Gcd(N, M)Print N; 和 ; M; 的最大公約數(shù)是： ; GEnd SubPrivate Function Gcd(ByVal A As Integer, ByVal B As Integer) As IntegerDim R As IntegerR = A Mod BDo While R 0A = BB = RR = A Mod BLoopGcd = BEnd Function2、調(diào)用標(biāo)準(zhǔn)模塊中的公有過程格式 ：Call . () 功能 ：調(diào)用其他標(biāo)準(zhǔn)模塊中定義的公有過程。 說明 ： 若公有過程唯一 , 則直接調(diào)用 ,不加模塊名。若存在同名的公有

15、過程 , 則： 調(diào)用本模塊中過程：直接調(diào)用 , 不加模塊名 調(diào)用其它模塊中過程：必須加模塊名。被調(diào)用的函數(shù)和過程必須是公有的； 函數(shù)也可以這樣調(diào)用。8.4 參數(shù)的傳遞8.4.1 形式參數(shù)和實在參數(shù)形式參數(shù)：過程定義時 , 在過程名后面的圓括號里的一系列變量； 過程被調(diào)用執(zhí)行時 , 系統(tǒng)才給形參分配存儲空間； 可以是除定長字符串外的任一簡單變量； 可以是數(shù)組 , 變量名后接括號；簡稱“形參”實在參數(shù)主調(diào)程序中 ,調(diào)用語句中 , 出現(xiàn)在過程名后面圓括號里的變量 ,是實在參數(shù) ,可以是常量、 變量或 表達式；過程調(diào)用傳遞參數(shù)時 , 實參按“位置”和形參結(jié)合 ;實在參數(shù)和形式參數(shù) ,要求個數(shù)一樣 ,位

16、置對應(yīng) ,類型一致 ,否則會出錯； 定長字符串變量可以作為實在參數(shù)；簡稱“實參”舉例：寫出下列程序執(zhí)行的結(jié)果Private Sub ExamSub( x as integer,y as integer)x=x+10 : y=y-10End SubPrivate Sub Form-click()Dim x as integer, y as integerx=10:y=100Call ExamSub( y ,x )H 丄“”a”Print“x=” ; x ;“ y=” ; yEnd Sub8.4.2 按值傳遞參數(shù) 格式 ： ByVal 傳遞方式 ：調(diào)用時 ,系統(tǒng)為形參分配一個臨時存儲單元 , 并將

17、實參的值存儲到該臨時單元中。 若在被調(diào)用的過程體中改變了形參的值 , 只是改變了臨時存儲單元中的數(shù)據(jù), 對實參的值無任何影響。 參數(shù)傳值傳遞 舉例：Private Sub Form_Click()Dim M As Integer, N As IntegerM = 15: N = 20Call Value_change(M, N)Print M=; M, N=; NEnd SubPrivate Sub Value_change(ByVal x As Integer, ByVal y As Integer)x = x + 20y = y + 20Print X=; x, Y=; yEnd Sub

18、傳值是單向的： 調(diào)用時 , 實參將值傳遞給形參 , 兩者就無任何關(guān)聯(lián)。過程中形參的值發(fā)生變化, 對實參無任何影響。8.4.3 按地址傳遞參數(shù) 格式 ： ByRef 傳遞方式 ：系統(tǒng)在調(diào)用執(zhí)行過程時 , 為形參分配臨時存儲單元 , 并將實參的內(nèi)存單元地址傳送給形參, 存儲在臨時存儲單元中在被調(diào)用的過程體中一切對形參的操作 , 都是直接對地址保存在形參中的內(nèi)存單元中的數(shù)據(jù)進 行的 ,而實參就是保存在此內(nèi)存單元中的數(shù)據(jù) ,所以任何對形參的操作也就是對實參的操作； 按地址傳遞時 , 形式參數(shù)和實在參數(shù)共用同一“內(nèi)存單元” 。 參數(shù)傳址傳遞 舉例 :( 對比前例 )Private Sub Form_Cl

19、ick()Dim M As Integer, N As IntegerM = 15: N = 20Call Value(M, N)Print M=; M, N=; NEnd SubPrivate Sub Value(x As Integer, y As Integer)x = x + 20y = y + 20Print X=; x, Y=; yEnd Sub 傳地址是雙向的： 舉例：計算 5！ +4！ +3！ +2！+1！ Private Sub Form_Click()Dim Sum As Integer, I As IntegerFor I = 5 To 1 Step -1Sum = Su

20、m + Fact(I)Next IPrint Sum=; SumEnd SubPrivate Function Fact(n As Integer) As IntegerFact = 1Do While n 0Fact = Fact * n n = n - 1 LoopEnd Function 將傳地址修改為傳值的方式為： 方法一：在形參 n 前加 ByVal 方法二：將調(diào)用語句中 fact(i) 改為 fact( ( i ) ) 參數(shù)有兩種傳遞方式：傳值( ByVal )和傳地址( ByRef)。若調(diào)用時實參為常量或表達式 , 這兩種方式?jīng)]有區(qū)別 , 無論形參定義的是按值傳遞還是按地址 傳遞

21、 ,系統(tǒng)都是按傳值方式傳遞系統(tǒng)在調(diào)用時為形參分配一個臨時存儲單元 , 將表達式的值計算出來 , 存儲到該臨時單元； 調(diào)用 結(jié)束 , 系統(tǒng)收回臨時單元。調(diào)用函數(shù)或過程時 ,將單個變量轉(zhuǎn)換成表達式的方法： 將變量放在一對括號中。 如用 Fact(I) 的方式調(diào)用函數(shù) , 系統(tǒng)會按傳值來處理。按地址傳遞時 , 當(dāng)實參是變量時 , 實參與形參必須類型完全一致；按地址傳遞時 , 當(dāng)實參是常量或表達式時 ,VB 會自動進行類型轉(zhuǎn)換 , 然后再傳遞相應(yīng)的值(即 類型無須完全一致) ；在算術(shù)表達式中 , 函數(shù)的優(yōu)先級最高 , 若表達式中有函數(shù)的實參 , 而函數(shù)的參數(shù)又是按地址傳遞 的, 則函數(shù)中有可能改變了實

22、參的值 , 即改變了表達式中變量的值 , 會引起混淆。Private Sub Form_Click()Dim S As SingleS=125.5Call Convert(S),”12”+”.5 ”)End SubPrivate Sub Convert(Inx As Integer,Sing As Single)Inx=Inx*2Sing=Sing+23Print “Inx= ” ;Inx, ” Sing= ” ;SingEnd Sub8.4.4 數(shù)組參數(shù)VB 允許把數(shù)組作為形式參數(shù) , 聲明數(shù)組的格式是：（） As 注意 ：（1）數(shù)組參數(shù)只能按地址傳遞 ,即不能用 ByVal 來修飾數(shù)組參數(shù)

23、（2）定義數(shù)組參數(shù)時無須說明數(shù)組的維數(shù)和下標(biāo)變化范圍；, 且數(shù)據(jù)類型也（3）調(diào)用過程時 , 對應(yīng)的實在參數(shù)也必須是數(shù)組 , 但只需要數(shù)組名 , 無須后跟括號(4) 在過程體或函數(shù)體中無須對數(shù)組參數(shù)再次說明；(5) 若實參是動態(tài)數(shù)組 , 在過程體或函數(shù)體中可以使用重定義語句修改數(shù)組的維界； 舉例Private Sub Form_Click()Dim a() As Integer, i As IntegerDim n As Integern = InputBox(請輸入數(shù)組的初始大小 )ReDim a(n)For i = 1 To na(i) = iNext iCall PrintArray(a)

24、Call Array1(a)Call PrintArray(a)End SubPrivate Sub PrintArray(x() As Integer)Dim i As IntegerFor i = LBound(x) To UBound(x)Print x(i);Next iPrintEnd SubPrivate Sub Array1(a() As Integer)Dim m As Integer, n As Integern = UBound(a)m = InputBox(請輸入新大小 )ReDim Preserve a(m)Dim i As IntegerFor i = n + 1 T

25、o ma(i) = 0Next iEnd Sub 輸入 5 和 8, 程序執(zhí)行結(jié)果為： 舉例：自定義一個將一維數(shù)組按從小到大排序的通用過程Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(10) As IntegerFor i = 1 To 10a(i) = Int(8 * Rnd)Picture1.Print a(i);Next iCall sort(a)For i = 1 To 10Picture2.Print a(i);Next iEnd SubPrivate Sub sort(a() As Integer)D

26、im i As Integer, j As IntegerFor i = 1 To UBound(a) - 1For j = i + 1 To UBound(a)If a(i) a(j) Then temp = a(i) a(i) = a(j) a(j) = tempEnd IfNext jNext iEnd Sub 本程序的功能是找出 100200 之間的所有素數(shù)。 Private Sub Form_Click()Dim i As Integer, x As Integer For i = 100 To 200If prime(i) Then Print iNext iEnd SubPriv

27、ate Function prime( byval n as integer) As Boolean Dim i As IntegerFor i = 2 To Sqr(n)If n Mod i = 0 ThenNext i prime = TrueEnd Function8.5 遞歸過程所謂遞歸 , 就是在過程定義中 , 調(diào)用過程本身。 例：使用遞歸函數(shù)求 N!。 提示 ：N!=N*(N-1)! Private Sub Form_Click()Dim n As Integern = InputBox(輸入一個正整數(shù) )Print n; !=; fact(n)End SubPrivate Fun

28、ction fact(ByVal n As Integer) As LongIf n = 1 Thenfact = 1Elsefact = n * fact(n - 1)End IfEnd Function總結(jié)：使用遞歸算法 , 最重要的是要有一個結(jié)束遞歸的條件 , 可以使遞歸得以返回 , 即終止條件或邊 界條件。例：使用遞歸算法計算裴波拉挈數(shù)列。Private Sub Form_Click()Dim n As Integern = InputBox(求數(shù)列的第幾項 )Print “數(shù)列中第” ; n; “項是” ; Cal(n)End SubPrivate Function Cal(n As

29、 Integer)If n = 1 Or n = 2 ThenCal = 1ElseCal = Cal(n - 1) + Cal(n - 2)End IfEnd Function 遞推法：利用未知項與已知項之間存在的某種關(guān)系 , 從已知項逐項推出未知項的方法。 Private Sub Form_Click()Dim fb() As IntegerDim i As Integer, n as integern = InputBox(“求數(shù)列中第幾項的值” )Redim fb(n)fb(1)=1:fb(2)=1For i = 3 To nfb(i)=fb(I-1)+fb(I-2)Next iPri

30、nt 數(shù)列中的第 ; n; 項是 ; fb(n)End Sub例 8-9 ：編寫一個遞歸函數(shù) ,求任意兩個整數(shù)的最大公約數(shù)。Private Sub Command1_Click()Dim Gcdvalue As Long, M As Long, N As LongIf M 0 And N 0 ThenGcdvalue = Gcd(M, N)Text3.Text = CStr(Gcdvalue)End IfEnd SubPrivate Function Gcd(ByVal X As Long, ByVal Y As Long)Dim R As LongR = X Mod YIf R = 0 Th

31、enGcd = YElseX = Y：Y = R ：Gcd = Gcd(X, Y)End IfEnd Function 練習(xí) 寫出下列程序運行的結(jié)果 :Private Sub Command1_Click()Dim a As Integera = 2Call sub1(a)End SubPrivate Sub sub1(x As Integer)x = x * 2 + 1If x 10 ThenCall sub1(x)End Ifx = x * 2 + 1Print“ x=” ;xEnd SubPrivate Sub Command1_Click()Dim a As Integera = 2C

32、all sub1(a)End SubPrivate Sub sub1(x As Integer)x = x * 2 + 1If x 0 ThenX=X-nY=XElseX=X+nY=X+2End Ifn=-nEnd Sub2. 執(zhí)行下面的程序,連續(xù)三次單擊命令按鈕Commandl之后,A數(shù)組共有()個元素；數(shù)組元素 A(2)的值是() ,A(4) 的值是.()。Option ExplicitOption Base 1Private Sub Commandl_Click()Static A()As Integer,n As IntegerDim i As Integer,k As Integer

33、k=n n=n +2ReDim Preserve A(n)For i=k+1 To nA(i)=i*n+1Next iFor i=1 To nPrint A(i) ；Next iPrintEnd Sub3. 執(zhí)行下面的程序，單擊Commandl,在窗體界面上顯示的第一行是(), 第二行是(), 第三行是 () , 第四行是 ()。Option ExplicitPrivate Sub Commandl_Click()Dim a As Integer,b As Integer,i As Integeri=1218a=i100b=i Mod 100If b0 ThenPrint aPrint b.

34、Print Lcd(a),(b)； a； bPrint Lcd(a,b) ； a； bEnd IfEnd SubPrivate Function Lcd(x As Integer,Y As Integer)As IntegerDim d As Integer If xY Thend=x ： x = Y ： Y = dEnd Ifd=XDoIf x Mod Y=0 ThenLcd=xExit DoElseX=x+dEnd IfLoopEnd Function10A-74. 本程序的功能是利用無窮級數(shù)求 cos(x) 的近似值 ,已知: 當(dāng)?shù)?n 項的絕對值小于等于 時計算終止。Option Ex

35、plicitPrivate Sub Commandl_Click()Dim X As Single,n As Integer,sum As SingleDim a As Singlex=Textl( )a=1n=1Doa=-aa=( )sum=sum+an=n+1Loop Until( )Text2=sumEnd Sub7定義方陣的一種范數(shù)為該方陣各列元素的絕對值之和中的最大值。以下程序的功能 是求一個4X 4方陣的范數(shù)。該方陣的數(shù)據(jù)是隨機生成的-2020之間的整數(shù)。Option ExplicitOption Base 1Private Sub Commandl_Click()Dim a(4,

36、4) As IntegerDim i As Integer,j As IntegerFor i=1 T0 4For j=1 To 4a(i,j)= ( )Picturel Print Right( &Str(a(i,j),4)Next jPicturel PrintNext iTextl.Text= ( )End SubPrivate Function fan(a()As Integer)As IntegerDim b(4) As Integer,max As IntegerDim i As Integer,j As IntegerFor i=1 To 4For j=1 To 4b(j)=(

37、)Next JNext imax=b(1)For i=2 To 4If max0 ThenFor i=1 To nS=S & CStr(i)Next iPrint SCall test(n-2)ElsePrint OVEREnd IfEnd Sub3. 運行下列程序，單擊Command1在窗體上顯示的第一行內(nèi)容是( ),第二行的內(nèi)容是( ) , 第三行的內(nèi)容是 ()(A 的 ASCII 碼是 65,z 是 90)Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, st As String, n As Integer, p As String * 1p = BFor i = 3 To 1 Step -1n = Asc(p) - iIf n 65 Then n = n + 26 st = Chr(n) st = st & F(i) Print stNe