1、2010年NCRE二級(jí)（VB）考前串講,百度文庫(kù)共享版 原作者：邵山歡 Email :,學(xué)習(xí)策略,NCRE對(duì)數(shù)組和過(guò)程的考察都非常淺。 在此部分，教材與NCRE嚴(yán)重脫節(jié)?？炊綪PT的所有內(nèi)容即可，不要去鉆研教材上更深的內(nèi)容以及嘗試去完成教材上高難度的習(xí)題。 珍愛生命，遠(yuǎn)離江蘇。 需要你做適量的題目。 數(shù)組和過(guò)程伴隨著選擇、循環(huán)等進(jìn)行考察，其自身并沒有過(guò)多的知識(shí)點(diǎn)可言。需要里做適量的題目，提高遍歷代碼的正確率。,a1 = InputBox(請(qǐng)輸入第1個(gè)成績(jī), 成績(jī)錄入) a2 = InputBox(請(qǐng)輸入第2個(gè)成績(jī), 成績(jī)錄入) a3 = InputBox(請(qǐng)輸入第3個(gè)成績(jī), 成績(jī)錄入) a2

2、9 = InputBox(請(qǐng)輸入第29個(gè)成績(jī), 成績(jī)錄入) a30 = InputBox(請(qǐng)輸入第30個(gè)成績(jī), 成績(jī)錄入),為提高效率而生,For i = 1 To 30 a(i) = InputBox(請(qǐng)輸入第 Next j Print Next i,For i = 1 To 3 For j = 1 To 2 Print a(j,i); Next j Print Next i,數(shù)組必須先聲明,Dim A(-2 To 2) As Integer,數(shù)組和普通變量不一樣，必須先聲明，后使用。 我們把確定長(zhǎng)度的數(shù)組稱為“定長(zhǎng)數(shù)組”。下列對(duì)定長(zhǎng)數(shù)組的聲明合法：,Dim A%(-2 To 2),Dim

3、A(5) As String,Dim A$(5),a(-2) a(-1) a(0) a(1) a(2),a(-2) a(-1) a(0) a(1) a(2),a(0) a(1) a(2) a(3) a(4) a(5),a(0) a(1) a(2) a(3) a(4) a(5),數(shù)組必須先聲明,Dim A(1 To 3, -2 to 1) As Integer,Dim A%(2 , 2 To 5),Dim A(2 , 3) As String,a(1,-2) a(1,-1) a(1,0) a(1,1) a(2,-2) a(2,-1) a(2,0) a(2,1) a(2,-2) a(2,-1) a

4、(2,0) a(2,1),a(0,2) a(0,3) a(0,4) a(0,5) a(1,2) a(1,3) a(1,4) a(1,5) a(2,2) a(2,3) a(2,4) a(2,5),a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(1,1) a(1,2) a(1,3) a(2,0) a(2,1) a(2,2) a(2,3),Option Base 語(yǔ)句,Option Base 0,Option Base 1,當(dāng)不采用 Dim a(X , Y , Z) 的形式定義數(shù)組時(shí)，決定一個(gè)維的下標(biāo)是從0開始還是1開始(默認(rèn)是0)。Option Base只有0、1兩種參數(shù)

5、，寫在窗體模塊的通用聲明區(qū)域。,UBound和LBound函數(shù),Option Base 0,200,LBound(數(shù)組名,維數(shù)),UBound(數(shù)組名,維數(shù)),Dim b( 3 to 8 , 200 to 300 ,2 to 6),Print LBound(b,2),Print UBound(b,3),6,Array函數(shù),Option Base 1,等價(jià)于,Dim b(1 to 6) b(1) = 1 b(2) = 2 b(3) = 3 b(4) = 4 b(5) = 5 b(6) = 6,b = Array(1, 2, 3, 4, 5, 6),Array函數(shù)用于對(duì)數(shù)組整體賦值。需要注意的是，

6、Array函數(shù)有定義數(shù)組的功能，只能對(duì)非數(shù)組變量進(jìn)行Array函數(shù)賦值，Array函數(shù)將此變量依據(jù)參數(shù)個(gè)數(shù)定長(zhǎng)的變?yōu)橐痪S數(shù)組。,For Each In Next 語(yǔ)句,Option Base 1,For Each x In b Print x Next,b = Array(1, 2, 3, 4, 5, 6),For Each 成員 In 數(shù)組名 循環(huán)體 Next 成員,用來(lái)讀取數(shù)組中的全部元素,For Each In Next 語(yǔ)句,Option Base 1,For Each x In b x=x+1 Print x Next,b = Array(1, 2, 3, 4, 5, 6),但是此時(shí)

7、，數(shù)組中的元素的值并沒有改變。也就是a(1)=1,a(2)=2沒變,動(dòng)態(tài)數(shù)組,有些時(shí)候我們需要的數(shù)組的長(zhǎng)度可能在程序當(dāng)中發(fā)生變化，此時(shí)使用動(dòng)態(tài)數(shù)組。,Option Base 1,Dim a(),ReDim a(4) For i = 1 To 4 a(i) = i 2 Next i,a(1)=1,a(2)=4,a(3)=9,a(4)=16,ReDim a(5),a(1)=0,a(2)=0,a(3)=0,a(4)=0,a(5)=0,ReDim函數(shù)歸零所有元素,Preserve關(guān)鍵字,使用Preserve關(guān)鍵字后，Redim語(yǔ)句改變數(shù)組大小時(shí)保留數(shù)組中原有的數(shù)據(jù)。,Option Base 1,Dim

8、 a(),ReDim a(4) For i = 1 To 4 a(i) = i 2 Next i,a(1)=1,a(2)=4,a(3)=9,a(4)=16,ReDim Preserve a(5),a(1)=0,a(2)=0,a(3)=0,a(4)=0,a(5)=0,Preserve關(guān)鍵字使數(shù)組改變長(zhǎng)度的時(shí)候原數(shù)據(jù)不歸零,控件數(shù)組,Label1.Caption = 1 Label2.Caption = 2 Label9.Caption = 9,For i = 1 to 9 Label(i).Caption = i Next i,過(guò)程,每一個(gè)事件就叫做一個(gè)“事件過(guò)程”。,事件過(guò)程可以調(diào)用,Priv

9、ate Sub Form_Load() Text1.Text = 請(qǐng)?jiān)诖溯斎胄彰?Text2.Text = 請(qǐng)?jiān)诖溯斎胝Z(yǔ)文成績(jī) Text3.Text = 請(qǐng)?jiān)诖溯斎霐?shù)學(xué)成績(jī) Text4.Text = 請(qǐng)?jiān)诖溯斎胗⒄Z(yǔ)成績(jī) End Sub,Private Sub Command1_Click() Open App.Path & cj.txt For Append As #1 Write #1, Text1.Text, text12.Text, Text3.Text, Text4.Text Close Text1.Text = 請(qǐng)?jiān)诖溯斎胄彰?Text2.Text = 請(qǐng)?jiān)诖溯斎胝Z(yǔ)文成績(jī) Text3

10、.Text = 請(qǐng)?jiān)诖溯斎霐?shù)學(xué)成績(jī) Text4.Text = 請(qǐng)?jiān)诖溯斎胗⒄Z(yǔ)成績(jī) End Sub,Private Sub Command1_Click() Open App.Path & cj.txt For Append As #1 Write #1, Text1.Text, text12.Text, Text3.Text, Text4.Text Close Call Form_Load() End Sub,Sub子程序過(guò)程,記錄斷點(diǎn),帶值進(jìn)入sub子過(guò)程,進(jìn)行運(yùn)算,返回?cái)帱c(diǎn)之后,形參、實(shí)參及形實(shí)結(jié)合,實(shí)參,形參,要進(jìn)行變量傳遞的參數(shù)必須先聲明,形參、實(shí)參必須類型一樣，數(shù)量一樣多,Optio

11、nal關(guān)鍵字,實(shí)參,形參,要進(jìn)行變量傳遞的參數(shù)必須先聲明,形參、實(shí)參必須類型一樣，數(shù)量一樣多,Optional關(guān)鍵字,Private Sub proc1(a As Integer , b As String , Optional x As Boolean) End Sub,Call proc1(54 , “ABC” ),Sub子過(guò)程的調(diào)用,Private Sub proc1(a As Integer , b As String , Optional x As Boolean) End Sub,Call proc1(54 , “ABC” ),proc1 54 , “ABC”,子過(guò)程名 參數(shù),Call 子過(guò)程名(參數(shù)),Sub子過(guò)程的調(diào)用,Private Sub proc1(a As Integer , b As String , Optional x As Boolean) End Sub,Call proc1(54 , “ABC” ),proc1 54 , “ABC”,子過(guò)程名 參數(shù),Call 子過(guò)程名(參數(shù)),按值傳遞與按值傳遞,x、y的數(shù)值改變，使a、b的值也改變了。也就是說(shuō)，a與x，b與y在共用同一個(gè)存儲(chǔ)結(jié)點(diǎn)。按址傳遞,Private Sub Swap(ByRef X As Integer，ByRef Y As Integer),按值傳遞與按值