2010年9月等級考試輔導

二級VisualBasic第五講過程Sub過程2變量作用域1Function過程3數組參數4對象參數5局部變量和全局變量名稱作用域聲明位置使用語句局部變量過程過程中Dim或Static模塊變量窗體模塊或標準模塊模塊的通用聲明段Dim或Private全局變量整個應用程序標準模塊的聲明部分Public或Global定義在過程中的靜態(tài)變量（static）在每次執(zhí)行該過程時會保留上次執(zhí)行的結果2004年9月筆試真題選擇題第8題

在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

StaticxAsInteger

Cls

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

EndSub

程序運行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是

A)42C)1230D)46B)12182002年9月筆試真題選擇題26題在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：

PrivateSubCommand1_Click()

StaticXAsInteger

StaticYAsInteger

Cls

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序運行時，三次單擊命令按鈕Commandl后，窗體上顯示的結果為

A)1516C)1515D)56B)156考點2Sub過程一、建立Sub過程[Static][Private|Public]Sub過程名([參數表])

語句塊

[ExitSub]

[語句塊]EndSub子程序過程調用Sub過程1.用Call語句調用Sub過程

Call過程名［（實際參數）］

2.把過程名作為一個語句來使用

過程名實際參數與第一種方式相比，它有兩點不同:（1）去掉關鍵字Call；（2）去掉"實際參數"的括號。在按鈕單擊事件中調用前例中的Sub過程PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=5:y=15

CallSwap(x,y)'還可以寫成Swapx,yPrintx,yEndSub（2007年9月選擇題第30題）

下面程序的輸出結果是________。

Private

Sub

Command1_Click()

ch$=”ABCDEF”

proc

ch

Print

ch

End

Sub

Private

Sub

proc(ch

As

String)

s=""

For

k=Len(ch)

To

1

Step-1

s=s&Mid(ch,k,1)

Next

k

ch=s

End

Sub

（A）ABCDEF

（C）A

（D）F（B）FEDCBA上機教程P103-真題8.1【例】捷成37-5程序運行后，如果單擊“讀入數據”按鈕，則調用題目所提供的ReadData1和ReadData2的過程讀入datain1.txt和datain2.txt文件中的各20個整數，分別放入Arr1和Arr2兩個數組中；如果單擊“計算”按鈕，則把兩個數組中對應下標的元素相減，其結果放入第三個數組中（即：第一個數組的第n個元素減去第二個數組的第n個元素，其結果作為第三個數組的第n個元素。這里的n為1、2、…、20），最后計算第三個數組各元素之和，把所求得的和在窗體上顯示出來；并調用題目中給出的WriteData過程將所得的和存入考生文件夾下的dataout.txt文件中?？键c3Function過程說明：（1）調用Sub過程相當于執(zhí)行一個語句，不直接返回值；調用Function過程要返回一個值，因此可以像內部函數一樣在表達式中使用。（2）過程定義不可嵌套，因而不能在事件過程中定義通用過程，但可在事件過程內調用通用過程。在按鈕單擊事件中調用前例中編寫的Fun過程。PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("請輸入要判斷的數"))

Iffun(x)=True

ThenPrintx;"是素數"ElsePrintx;"不是素數"EndIfEndSub過程不可嵌套定義、但可嵌套調用2003年9月筆試真題選擇題23題

設有如下通用過程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是A）105B）205D）1040C）2040上機真題【例】捷成36-4在窗體上有一個命令按鈕和一個文本框。程序運行后，單擊命令按鈕，即可計算出1～1000范圍內能被5整除或能被7整除的整數的個數，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算能被5整除或能被7整除的整數的個數的操作在通用過程Fun中實現，請編寫該過程的代碼。4de(傳地址)6a=1:b=2:c=3:d=4Calltest1(a,b,c,d)Printa;b;c;d…PrivateSubtest1(b%,c%,d%,e%)e=b+c+dEndSub‘1236內存單元傳地址ByRef傳地址調用：形參改變，實參發(fā)生對應變化形參和實參類型必須一致2004年9月22題在窗體上畫一個名稱為Command1的命令按鈕，并編寫如下程序：

PrivateSubCommand1_Click()

DimxAsInteger

StaticyAsInteger

x=10

y=5

Callf1(x,y)

Printx,y

EndSub

PrivateSubf1(ByRefx1AsInteger,y1AsInteger)

x1=x1+2

y1=y1+2

EndSub

程序運行后，單擊命令按鈕，在窗體上顯示的內容是

A)105B)125C)107D)127

（2006年4月選擇題第25題）在窗體上畫1個命令按鈕，其名稱為Commandl，然后編寫如下程序：PrivateSubCommand1_Click()Dima(10)AsIntegerDimxAsIntegerFori=lTo10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序運行后，單擊命令按鈕，輸出結果為________。（A）12（B）l5（C）17（D）18（2005年4月選擇題29題）

在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIfEndFunctionPrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun(i)

Next

PrintsEndSub程序運行后，單擊命令按鈕，在窗體上顯示的是_____。

(A)6(B)7(C)8(D)9數組參數用數組作為過程的參數時，應在數組名的后面加上一對括號。

1、要把整個數組作參數傳遞給過程，形參與實參都要使用數組名，但要省略數組的上下界，且保留括號；

2、整個數組作參數傳遞時，只能傳地址；

3、單個數組元素作參數傳遞給過程時，實參要指明元素的下標；

4、在過程中可以使用LBound()和UBound()函數來確定數組的上下界。（2006年9月選擇題第26題）SubsubP(b()AsInteger) Fori=1To4b(i)=2*i NextiEndSubPrivateSubCommand1_Click() Dima(1To4)AsInteger a(1)=5 a(2)=6 a(3)=7 a(4)=8 subPa() Fori=1To4Printa(i) NextiEndSub（A）2（B）5 （C）10（D）出錯

4 6 126 7 148 8 16上機教程109-真題8.4【例】捷成26-4數組作為過程參數形參：數組名()，括號不可省，括號內不帶下標；實參：可以是數組名或數組名()，若帶括號，不帶下標。其功能是通過調用過程FindMax求數組的最大值，請裝入該文件。程序運行后，在四個文本框中各輸入一個整數，然后單擊命令按鈕，即可求出數組的最大值，并在窗體上顯示出來（如圖所示）?？键c6對象參數

對象作為參數的格式為：

Sub過程名（形參表）語句塊［ExitSub］

……

EndSub"形參表"中形參的類型通常為Control或Form。注意，在調用含有對象的過程時，對象只能通過傳地址方式傳送。因此在定義過程時，不能在其參數前加關鍵字ByVal。（2006年4月選擇題第28題）窗體上有名稱分別為Textl、Text2的2個文本框，要求文本框Textl中輸入的數據小于500，文本框Text2中輸入的數據小于1000，否則重新輸入。

PrivateSubText1_LostFocus()CallChecckInput(Text1,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2,1000)En