2010年9月等級(jí)考試輔導(dǎo)

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

在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

StaticxAsInteger

Cls

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

EndSub

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

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

PrivateSubCommand1_Click()

StaticXAsInteger

StaticYAsInteger

Cls

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序運(yùn)行時(shí)，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為

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

語(yǔ)句塊

[ExitSub]

[語(yǔ)句塊]EndSub子程序過(guò)程調(diào)用Sub過(guò)程1.用Call語(yǔ)句調(diào)用Sub過(guò)程

Call過(guò)程名［（實(shí)際參數(shù)）］

2.把過(guò)程名作為一個(gè)語(yǔ)句來(lái)使用

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

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

下面程序的輸出結(jié)果是________。

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上機(jī)教程P103-真題8.1【例】捷成37-5程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，則調(diào)用題目所提供的ReadData1和ReadData2的過(guò)程讀入datain1.txt和datain2.txt文件中的各20個(gè)整數(shù)，分別放入Arr1和Arr2兩個(gè)數(shù)組中；如果單擊“計(jì)算”按鈕，則把兩個(gè)數(shù)組中對(duì)應(yīng)下標(biāo)的元素相減，其結(jié)果放入第三個(gè)數(shù)組中（即：第一個(gè)數(shù)組的第n個(gè)元素減去第二個(gè)數(shù)組的第n個(gè)元素，其結(jié)果作為第三個(gè)數(shù)組的第n個(gè)元素。這里的n為1、2、…、20），最后計(jì)算第三個(gè)數(shù)組各元素之和，把所求得的和在窗體上顯示出來(lái)；并調(diào)用題目中給出的WriteData過(guò)程將所得的和存入考生文件夾下的dataout.txt文件中?？键c(diǎn)3Function過(guò)程說(shuō)明：（1）調(diào)用Sub過(guò)程相當(dāng)于執(zhí)行一個(gè)語(yǔ)句，不直接返回值；調(diào)用Function過(guò)程要返回一個(gè)值，因此可以像內(nèi)部函數(shù)一樣在表達(dá)式中使用。（2）過(guò)程定義不可嵌套，因而不能在事件過(guò)程中定義通用過(guò)程，但可在事件過(guò)程內(nèi)調(diào)用通用過(guò)程。在按鈕單擊事件中調(diào)用前例中編寫(xiě)的Fun過(guò)程。PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("請(qǐng)輸入要判斷的數(shù)"))

Iffun(x)=True

ThenPrintx;"是素?cái)?shù)"ElsePrintx;"不是素?cái)?shù)"EndIfEndSub過(guò)程不可嵌套定義、但可嵌套調(diào)用2003年9月筆試真題選擇題23題

設(shè)有如下通用過(guò)程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是A）105B）205D）1040C）2040上機(jī)真題【例】捷成36-4在窗體上有一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出1～1000范圍內(nèi)能被5整除或能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來(lái)。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算能被5整除或能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過(guò)程Fun中實(shí)現(xiàn)，請(qǐng)編寫(xiě)該過(guò)程的代碼。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內(nèi)存單元傳地址ByRef傳地址調(diào)用：形參改變，實(shí)參發(fā)生對(duì)應(yīng)變化形參和實(shí)參類(lèi)型必須一致2004年9月22題在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，并編寫(xiě)如下程序：

PrivateSubCommand1_Click()

DimxAsInteger

StaticyAsInteger

x=10

y=5

Callf1(x,y)

Printx,y

EndSub

PrivateSubf1(ByRefx1AsInteger,y1AsInteger)

x1=x1+2

y1=y1+2

EndSub

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是

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

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

在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下通用過(guò)程和命令按鈕的事件過(guò)程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIfEndFunctionPrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun(i)

Next

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

(A)6(B)7(C)8(D)9數(shù)組參數(shù)用數(shù)組作為過(guò)程的參數(shù)時(shí)，應(yīng)在數(shù)組名的后面加上一對(duì)括號(hào)。

1、要把整個(gè)數(shù)組作參數(shù)傳遞給過(guò)程，形參與實(shí)參都要使用數(shù)組名，但要省略數(shù)組的上下界，且保留括號(hào)；

2、整個(gè)數(shù)組作參數(shù)傳遞時(shí)，只能傳地址；

3、單個(gè)數(shù)組元素作參數(shù)傳遞給過(guò)程時(shí)，實(shí)參要指明元素的下標(biāo)；

4、在過(guò)程中可以使用LBound()和UBound()函數(shù)來(lái)確定數(shù)組的上下界。（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）出錯(cuò)

4 6 126 7 148 8 16上機(jī)教程109-真題8.4【例】捷成26-4數(shù)組作為過(guò)程參數(shù)形參：數(shù)組名()，括號(hào)不可省，括號(hào)內(nèi)不帶下標(biāo)；實(shí)參：可以是數(shù)組名或數(shù)組名()，若帶括號(hào)，不帶下標(biāo)。其功能是通過(guò)調(diào)用過(guò)程FindMax求數(shù)組的最大值，請(qǐng)裝入該文件。程序運(yùn)行后，在四個(gè)文本框中各輸入一個(gè)整數(shù)，然后單擊命令按鈕，即可求出數(shù)組的最大值，并在窗體上顯示出來(lái)（如圖所示）?？键c(diǎn)6對(duì)象參數(shù)

對(duì)象作為參數(shù)的格式為：

Sub過(guò)程名（形參表）語(yǔ)句塊［ExitSub］

……

EndSub"形參表"中形參的類(lèi)型通常為Control或Form。注意，在調(diào)用含有對(duì)象的過(guò)程時(shí)，對(duì)象只能通過(guò)傳地址方式傳送。因此在定義過(guò)程時(shí)，不能在其參數(shù)前加關(guān)鍵字ByVal。（2006年4月選擇題第28題）窗體上有名稱(chēng)分別為T(mén)extl、Text2的2個(gè)文本框，要求文本框Textl中輸入的數(shù)據(jù)小于500，文本框Text2中輸入的數(shù)據(jù)小于1000，否則重新輸入。

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