南京工業(yè)大學(xué)VB期末考試模擬題6

南京工業(yè)大學(xué)VB期末考試模擬題6南京工業(yè)大學(xué)VB期末考試模擬題6南京工業(yè)大學(xué)VB期末考試模擬題6xxx公司南京工業(yè)大學(xué)VB期末考試模擬題6文件編號(hào)：文件日期：修訂次數(shù)：第1.0次更改批準(zhǔn)審核制定方案設(shè)計(jì)，管理制度安全土木化工化學(xué)vb練習(xí)題4滿分：111分姓名：________1、單項(xiàng)選擇題(本題共計(jì)60分)1、在過(guò)程調(diào)用中，參數(shù)的傳遞可以分為_(kāi)_______________和________________兩種方式。()A、按值傳遞按地址傳遞B、按地址傳遞按參數(shù)傳遞C、按參數(shù)傳遞按值傳遞D、按位置傳遞按參數(shù)傳遞2、下面的過(guò)程定義語(yǔ)句中合法的是________________________。()A、SubProcl(ByValn())B、SubProcl(n)AsIntegerC、FunctionProcl(Procl)D、FunctionProcl(ByValn)3、在參數(shù)傳遞過(guò)程中，使用關(guān)鍵字________________來(lái)修飾參數(shù)，可以使之按值傳遞。()A、ByValB、ByRefC、ValueD、Reference4、要想在過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面的過(guò)程定義語(yǔ)句合法的是________________。()A、SubProcl(ByValn,ByValm)B、SubProcl(n,ByValm)C、SubProcl(n,m)D、SubProcl(ByValn,m)5、通用過(guò)程可以通過(guò)執(zhí)行“工具”菜單中的____________命令來(lái)建立。()A、添加過(guò)程B、通用過(guò)程C、添加窗體D、添加模塊6、可以在窗體模塊的通用聲明段中聲明的是________________。()A、全局變量B、全局常量C、全局?jǐn)?shù)組D、全局用戶自定義類型7、當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的____________事件過(guò)程。()A、LoadB、ClickC、UnLoadD、GotFocus8、在語(yǔ)句PublicSubSort(iAsInteger)中i是一個(gè)按________傳遞的參數(shù)。()A、地址B、值C、變量D、常量9、下列定義Sub過(guò)程的語(yǔ)句中，正確的語(yǔ)句是____________。①PrivateSubTest(StAsString*8)②PrivateSubTest(Sarray()AsString*5)③PrivateSubTest(Sarray()AsString)④PrivateSubTest(StAsString)()A、①②B、①④C、②③④D、①②③④10、在窗體模塊的通用聲明處有如下語(yǔ)句，會(huì)產(chǎn)生錯(cuò)誤的語(yǔ)句是____________。①ConstAAsInteger=25②PublicStAsString*8③ReDimB(3)AsInteger④DimConstXAsInteger=10()A、①②B、①③C、①②③D、②③④11、在窗體Form1中用“PublicSubFun(xAsInteger,yAsSingle)”定義過(guò)程Fun，在窗體Form2中定義了變量i為Integer,j為Single，若要在Form2的某事件過(guò)程中調(diào)用Form1中的Fun過(guò)程，則下列語(yǔ)句中，正確的語(yǔ)句有____________個(gè)。①CallFun(i,j)②CallForm1.Fun(i,j)③Form1.Fun(i),j④Form1.Funi+1,(j)()A、1B、2C、3D、412.某過(guò)程的說(shuō)明語(yǔ)句中，正確的數(shù)組說(shuō)明語(yǔ)句是____________。

ConstNasinteger=4

DimLasinteger

①.DimX(L)AsInteger

②.DimA(K)AsInteger

ConstKAsInteger=3

③.DimB(N)AsInteger

④.DimY(2000To2008)AsIntegerA.①②④B.①③④C.③④D.②③13、程序中的不同過(guò)程之間，不能通過(guò)____________進(jìn)行數(shù)據(jù)傳遞。①全局變量②窗體或模塊級(jí)變量③形參與實(shí)參結(jié)合④靜態(tài)變量()A、①②④B、①②③C、②④D、④14、調(diào)用由語(yǔ)句PrivateSubConvert(YAsInteger)定義的Sub過(guò)程時(shí)，以下不是按值傳遞的語(yǔ)句是____________。()A、CallConvert((X))B、CallConvert(X*1)C、Convert(X)D、ConvertX15、Sub過(guò)程和Function過(guò)程最根本的區(qū)別是________________。()A、Sub過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以B、Function過(guò)程可以有參數(shù)，Sub過(guò)程不可以C、兩種過(guò)程參數(shù)的傳遞方式不同D、Sub過(guò)程的過(guò)程名不能返回值，而Function過(guò)程能通過(guò)過(guò)程名返回值16、在窗體模塊的通用聲明段中聲明變量時(shí)，不能使用____________關(guān)鍵字。()A、DimB、PublicC、PrivateD、Static17、假定已定義了一個(gè)過(guò)程SubAdd(aAsSingle,bAsSingle)，則正確的調(diào)用語(yǔ)句是________。()A、Add(12,12)B、CallAdd(2*x,Sin(1.57))C、CallAddx,yD、CallAdd(12,12,x)18.單擊一次命令按鈕后，下列程序代碼的執(zhí)行結(jié)果為_(kāi)______

PrivateSubproc(a()AsInteger)

StaticiAsInteger

Doa(i)=a(i)+a(i+1)

i=i+1

LoopWhilei<2

EndSub

PrivateSubCommand1_Click()

DimmAsInteger,iAsInteger,x(10)AsInteger

Fori=0To4

x(i)=i+1

Nexti

Fori=1To2

Callproc(x)

Nexti

Fori=0To4

Printx(i)

Nexti

EndSubA.34756B.35745C.12345D.1235719、如下程序，運(yùn)行的結(jié)果是____________。Dima%,b%,c%PublicSubpl(x%,y%)dimc%=2*x:y=y+2:c=x+yEndSubPublicSubp2(x%，ByValy%）dimc%x=2*x:y=y+2:c=x+yEndSubPrivateSubCommandl_Click(a=2:b=4:c=6callpl(a,b)print"a=";a;"b=";b;"c=";ccallp2(a,b)print"a=";a;"b=";b;"c=";cEndSub()A、a=2b=4c=6a=4b=6c=10B、a=4b=6c=10a=8b=8c=16C、a=4b=6c=6a=8b=6c=6D、a=4b=6c=14a=8b=8c=620、設(shè)有如下說(shuō)明：PublicSubFl(n%)…n=3*n+4…EndSubPrivateSubCommandl_Click()Dimn%,m%n=3m=4…'調(diào)用F1語(yǔ)句EndSub則在Commandl_C1ick事件中有效的地址傳遞的調(diào)用語(yǔ)句是。()A、F1n+mB、F1mC、F15D、F1m+521、窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過(guò)程Sub1中分別用PublicKAsInteger,DimKAsInteger聲明了兩個(gè)同名變量K，則在過(guò)程Sub1中要訪問(wèn)全局變量K，可采用________。()A、Frm1.KB、Form.KC、Form1.KD、K22、要使Print方法在FormLoad事件中起作用，要對(duì)窗體的____________屬性進(jìn)行設(shè)置。()A、BackColorB、ForeColorC、AutoRedrawD、Caption23、在調(diào)用Sub過(guò)程或Function過(guò)程時(shí)，采用________________傳送相應(yīng)過(guò)程的變量名、數(shù)組名、常數(shù)或表達(dá)式。()A、形式參數(shù)B、實(shí)際參數(shù)C、對(duì)象參數(shù)D、數(shù)組參數(shù)24、以下有關(guān)Sub過(guò)程與Function過(guò)程的區(qū)別，正確的是________。()A、Sub過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以B、Function過(guò)程可以有形參，Sub過(guò)程不能有形參C、兩種過(guò)程參數(shù)傳遞方式不同D、Sub過(guò)程沒(méi)有返回值，F(xiàn)unction過(guò)程能返回值25、給出下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是________。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Forn=1TO3z=FirstFunc(x,y)Printn,z,NextnEndSubPrivateFunctionFirstFunc(xAsInteger,yAsInteger)AsIntegerDimnAsIntegerDoWhilen<=4x=x+yn=n+1LoopFirstFunc=xEndFunction()A、16211316B、26131116C、123456D、21313326、給出下列程序代碼在第一次單擊命令按鈕時(shí)文本框Text1和Text2中的內(nèi)容，第二次單擊命令按鈕時(shí)文本框Text1和Text2的內(nèi)容。DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=SecondFunc(FirstFunc(x),y)Text2.Text=FirstFunc(x)EndSubPrivateFunctionFirstFunc(xAsInteger)x=x+y:y=x+yFirstFunc=x+YEndFunctionPrivateFunctionSecondFunc(xAsInteger,yAsInteger)SecondFunc=2*x+yEndFunction()A、10,1020,20B、20,2030,30C、50,5010,10D、10,1058,5827、給出下列程序代碼，在單擊三次命令按鈕時(shí)的輸出結(jié)果是________。Dimx,y,zAsIntegerSubSS()x=x+1y=y+1z=z+1Printx;y;zSubEndPrivateSubCommand1_Click()Dimx,y,zx=1:y=2:z=3CallSSPrintx;y;zEndSub()A、111123222123333123B、111111222222333333C、123123123D、11122233328、設(shè)有下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是________。SubSS(ByValx,ByRefy,z)x=x+1y=y+1z=z+1EndSubPrivateSubCommand1_Click()A=1:B=2:C=3CallSS(A,B,C)PrintA,B,CEndSub()A、123B、134C、224D、13329、一般來(lái)說(shuō)，當(dāng)變量名稱相同而作用域不同時(shí)，局限性_____________的變量總會(huì)用"陰影"遮住局限性不太大的變量。()A、大B、小C、更小D、比較小30、在過(guò)程中定義的變量，如果希望在離開(kāi)該過(guò)程后，還能保持過(guò)程中局部變量的值，則應(yīng)該使用___________關(guān)鍵字在過(guò)程中定義局部變量。()A、DimB、PrivateC、PublicD、Static31、如果在被調(diào)用過(guò)程中改變了形參值，只影響副本，而不會(huì)影響實(shí)參的變量本身，這種參數(shù)傳遞方式稱為_(kāi)__________傳遞。()A、按值B、按地址C、ByRefD、按形參32.通用過(guò)程可以完成一項(xiàng)指定任務(wù)，必須由__________調(diào)用才行。A.應(yīng)用程序B.系統(tǒng)引發(fā)C.定時(shí)器D.SubMain(1分)33.以下說(shuō)法正確的是

。A.屬性是對(duì)象的一部分B.方法是對(duì)象的一部分C.事件是對(duì)象的一部分D.A、B都正確34、若在應(yīng)用程序中用PrivateSubSub1(Xasinteger,YasSingle)定義了子程序Sub1，調(diào)用程序中的變量I、J均為Integer型，則正確調(diào)用子程序Sub1的Call語(yǔ)句是________。①CallSub1(I,J)②CallSub1(3.1415,1)③CallSub1(3.14,234)④CallSub1(“245”,“231.5”)()A、①③B、③④C、①②③D、無(wú)35、窗體上畫一個(gè)按鈕，然后編寫如下的事件代碼。在按鈕上單擊，輸出為_(kāi)_________。PrivateSubfun()StaticaAsIntegera=a+2Printa;EndSubPrivateSubCommand1_Click()DimmAsIntegerForm=1To3CallfunNextmEndSub()A、222B、000C、248D、24636、在窗體上添加一個(gè)命令按鈕，名為Command1，事件過(guò)程如下。執(zhí)行結(jié)果是________。Subpb(b()AsInteger)Fori=1To4B(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6:a(3)=7:a(4)=8pbaFori=1To4Printa(i);NextiEndSub()A、55551010B、5555510C、551051010D、55510101037、在窗體上畫一個(gè)名稱Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下程序：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5:y=7:z=0Text1.Text=""Callp1(x,y,z)Text1.Text=Str(z)EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是________。()A、0B、12C、Str(z)D、沒(méi)有顯示38、856.窗體中添加一個(gè)命令按鈕，程序運(yùn)行后，輸出結(jié)果為_(kāi)________。PrivateSubtest(x,y,z)x=x+1:y=y+2:z=z+3Print"Sub=";x;y;zEndSubPrivateSubCommand1_Click()a1=10:b1=17:c1=41Calltest(a1,b1+2,(c1))Print"Main=";a1;b1;c1EndSub()A、Sub=101741Main=111744B、Sub=101741Main=111744C、Sub=121141Main=101141D、Sub=112144Main=11174139.閱讀下列程序，其輸出的結(jié)果是________。PrivateSubCommand1_Click()

Dima(1To3)AsInteger

Fori=1To3

a(i)=i

Nexti

Callsub1(a)

Fori=2To3

Printa(i)

Nexti

EndSubPublicSubsub1(a()AsInteger)

Fori=1To3

a(i)=i*i

Nexti

EndSubA.12B.23C.49D.14(1分)40.程序中未定義的變量均為integer，單擊Command1，程序的輸出是

。PrivateSubCommand1_Click()

k=4：m=1

n=Func(k,m)

Printn,Func(k,m)

EndSubPublicFunctionFunc(aAsInteger,bAsInteger)AsInteger

StaticmAsInteger

m=0：i=2

i=i+m+1

m=i+a+b

Func=m

EndFunctionA.88B.820C.816D.817(1分)41.在多窗體的應(yīng)用程序中，當(dāng)前窗體模塊的Form_Click事件過(guò)程中包含如下語(yǔ)句，單擊該窗體，其中

一定可以將Hello顯示在當(dāng)前窗體上。A.Forml.PrintB.Me.Print〞Hello〞C.Debug.Print〞Hello〞D.Form2.Print〞Hello〞(1分)42.當(dāng)一個(gè)工程含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是

。A.啟動(dòng)時(shí)建立的窗體B.第一個(gè)添加窗體C.最后一個(gè)添加的窗體D.在“工程屬性”對(duì)話框中指定的窗體(1分)43.SubMain函數(shù)可以在

模塊中定義。A.窗體B.標(biāo)準(zhǔn)C.類模塊D.以上均可(1分)44.下列操作中不能向工程添加窗體的是

。A.單擊工具欄上的添加窗體按鈕B.右擊窗體，在彈出的菜單中選擇“添加窗體”命令C.右擊工程資源管理器，在彈出菜單中選擇“添加”，然后在下一級(jí)菜單中選擇“添加窗體”D.執(zhí)行“工程”菜單中的“添加窗體”命令(1分)45.要為工程添加一個(gè)過(guò)程，可執(zhí)行“

”菜單中的“添加過(guò)程”.A.文件B.視圖C.工程D.工具(1分)46.以下說(shuō)法正確的是

。A.在VB中，過(guò)程可以嵌套定義也可以嵌套調(diào)用

B.在VB中，過(guò)程可以嵌套定義但不可以嵌套調(diào)用C.在VB中，過(guò)程不可以嵌套定義但可以嵌套調(diào)用D.在VB中，過(guò)程不可以嵌套定義也不可以嵌套調(diào)用(1分)47.模塊的通用聲明處有如下語(yǔ)句，會(huì)產(chǎn)生錯(cuò)誤的語(yǔ)句是

。

①ConstaasInteger=25

②PublicStAsString*8

③ReDimB(3)AsInteger

④DimConstXAsInteger=10A.①②B.①③C.①②③D.②③④(1分)48.使用PublicConst語(yǔ)句聲明一個(gè)全局的符號(hào)常量時(shí)，該語(yǔ)句應(yīng)放在

。A.過(guò)程中B.窗體模塊的通用聲明段C.標(biāo)準(zhǔn)模塊的通用聲明段D.窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段(1分)49.可以在

中，使用語(yǔ)句PublicPubStrAsString*20定義一個(gè)定長(zhǎng)字符串。A.窗體模塊B.標(biāo)準(zhǔn)模塊C.類模塊D.三者均可(1分)50.在窗體的General段聲明變量時(shí)，不能使用

關(guān)鍵字。A.DimB.PublicC.PrivateD.Static(1分)51.以下有關(guān)變量作用域的說(shuō)明中，錯(cuò)誤的是

。A.只有在標(biāo)準(zhǔn)模塊中用Public語(yǔ)句說(shuō)明的變量才是全局變量B.在過(guò)程中不能使用Public語(yǔ)句說(shuō)明全局變量C.在標(biāo)準(zhǔn)模塊的通用聲明處可用語(yǔ)句說(shuō)明模塊級(jí)變量D.在窗體的通用聲明處可用Private語(yǔ)句說(shuō)明窗體級(jí)變量(1分)52.單擊按鈕,輸出為_(kāi)_________。

PrivateSubfun()

StaticaAsInteger

a=a+2

Printa;

EndSub

PrivateSubCommand1_Click()

DimmAsInteger

Form=1To3

Callfun

Nextm

EndSubA.2

2

2B.0

0

0C.2

4

8D.2

4

6(1分)53.在單擊命令按鈕時(shí)的輸出結(jié)果是________。

PrivateSubCommand1_Click()

Dimx%,y%

x=1:y=1

Forn=1to3

z=First(x,y)

Printn,z

Nextn

EndSub

PrivateFunctionFirst%(x%,y%)

Dimn%

DoWhilen<=4

x=x+y

n=n+1

Loop

First=x

EndFunctionA.16211316B.26131116C.123456D.213133(1分)54.設(shè)有下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是________。

SubSS(ByValx,ByRefy,z)

x=x+1

y=y+1

z=z+1

EndSub

PrivateSubCommand1_Click()

A=1:B=2:C=3

CallSS(A,B,C)

PrintA,B,C

EndSubA.123B.134C.224D.133(1分)55.程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是________。

PrivateSubCommand1_Click()

dimx,y,zAsInteger

x=5:y=7:z=0

text1=“”

callp1(x,y,z)

text1=str(z)

EndSub

PrivateSubp1(ByVala%,ByValb%,c%)

c=a+b

EndSubA.0B.12C.Str(z)

D.沒(méi)有顯示(1分)56.當(dāng)在Cmd1按鈕上單擊時(shí)，程序的輸出是

.

PublicFunctionFunc(a%,b%)AsInteger

StaticmAsInteger:DimiAsInteger

m=0:i=2:

i=i+m+1:m=i+a+b

:Func=m

EndFunction

PrivateSubCmd1_Click()

Dimk%,m%,n%

k=4:m=1:n=Func(k,m)

Printn,Func(k,m)

EndSubA.8

8B.8

20C.8

16D.8

17(1分)57.若需要在同一窗口內(nèi)安排兩組相互獨(dú)立的單選按鈕（OptionButton），可使用

控件將它們分隔開(kāi)。

①TexBox②Picture

③Image④FrameA.①②B.②③C.②④D.③④(1分)58.如果是啟動(dòng)窗體，并且Forml的Load事件過(guò)程中有form2.show，則程序啟動(dòng)后

。A.發(fā)生一個(gè)運(yùn)行時(shí)錯(cuò)誤B.發(fā)生一個(gè)編譯錯(cuò)誤C.在所有的初始化代碼運(yùn)行后Form1是活動(dòng)窗體D.在所有的初始化代碼運(yùn)行后Form2是活動(dòng)窗體(1分)59.要從自定義對(duì)話框Form2中退出，可以在該對(duì)話框的“退出”按鈕的Click事件過(guò)程中使用的語(yǔ)句是

。A.UnloadForm2B.HideForm2C.Unload.Form2D.Form2.Unload(1分)60.窗體有一個(gè)方法可以使窗體隱藏但不從內(nèi)存中卸載，該方法是

。A.ShowB.Release

C.HideD.Unload

2、填空題(本題共計(jì)51分)1.下面程序的功能是:通過(guò)鍵盤輸入一個(gè)正整數(shù)N，找出所有分母為N，且數(shù)值介于1/3和1/4之間的最簡(jiǎn)分?jǐn)?shù)（即分子、分母除1以外無(wú)公因子）。

PrivateSubCommand1_Click()

dim

iAsInteger,JAsInteger,

nAsInteger,FlagAsBoolean

n=Val(InputBox(“輸入分母N：”,,11)

for

i=1Ton–1

①

CallSub1(I,N,Flag)

If

②

Then

PrintCStr(I);“/”;CStr(N)

EndIf

next

i

EndSub

PrivateSubSub1(KAsInteger,NAsInteger,FAsBoolean)

dim

iAsInteger

if

③

Then

for

i=2Tok

If

④

Then

ExitSub

EndIf

nexti

f=True

endIf

EndSub答案：(1),(2),(3),(4)(4分)2.下列程序的功能是：?jiǎn)螕舸绑w事件后，在窗體上顯示1！+2！+3！+…+9！的和。

PrivateSubForm_Click()

Dims&,i%

s=0

Fori=1To9

s=s+

①

Nexti

Prints

EndSub

PrivateFunctionfact(

②

)AsLong

Dimi%,f&

③

Fori=2Ton

f=f*i

Nexti

④

EndFunction答案：(1),(2),(3),(4)(4分)3.用二分法求函數(shù)f(x)=x3–4x+1=0在x=0～5范圍內(nèi)的x=2附近的一個(gè)實(shí)根，其計(jì)算誤差為|xl–x2|＜10–5。

PrivateSubform_Click()

Dimx!,t!,x1AsSingle,x2AsSingle

x1=0:x2=5

DoWhile__①____

x=(x1+x2)/2

IfSgn(func(x))

②

Then

x2=x

Else

x1=x

EndIf

Loop

Print"x=";x

EndSub

PrivateFunctionfunc(x!)AsSingle

f1=

③

EndFunction答案：(1),(2),(3)(3分)4.用隨機(jī)數(shù)模擬擲骰子，統(tǒng)計(jì)擲50次，骰子各點(diǎn)出現(xiàn)的次數(shù)。(提示:骰子點(diǎn)數(shù)只能是1~6一位隨機(jī)整數(shù))

OptionBase1

PrivateSubCommand1_Click()

Dim

①

Fori=1To50

n=

②

d(n)=

③

Nexti

Fori=1To6

Printi;"點(diǎn)出現(xiàn)的次數(shù):";d(i)

Nexti

EndSub答案：(1),(2),(3)(3分)5.執(zhí)行程序單擊命令按鈕后，調(diào)試窗口中顯示的結(jié)果是

①

；將A、B語(yǔ)句交換位置,運(yùn)行程序后調(diào)試窗口的內(nèi)容是

②

。

OptionExplicit

Subqq(k,x)

DimiAsInteger

x=1

Fori=1Tok

x=x*i

Nexti

EndSub

PrivateSubCommand1_Click()

Dimn%,i%,x%

n=1:x=1

Fori=1To3

Callqq(i,x)

'A

n=n+x

'B

Nexti

Debug.Print"n="&n

EndSub答案：(1),(2)(2分)6.下列程序執(zhí)行后，輸出的結(jié)果為

①

;將A、B語(yǔ)句互換后，執(zhí)行結(jié)果是

②

。

PrivateSubCommand1_Click()

DimxAsInteger

x=1

Callsort(x)‘A

Printx;

callsort((x))‘B

Printx;

EndSub

PrivateSubsort(yAsInteger)

y=y+1

EndSub答案：(1),(2)(2分)7.運(yùn)行下列程序，在窗體上顯示的第一行是

①

_；第二行是

②

。

PrivateFunctiont(nAsInteger,kAsInteger)AsInteger

t=0

DoWhilek>0

t=nMod10

n=n\10

k=k-1

Loop

EndFunction

PrivateSubForm_Click()

Printt(1234,2)

Printt(1234,4)

Endsub答案：(1),(2)(2分)8.執(zhí)行程序，單擊窗體后在窗體上顯示的第一行是

①

，第二行是

②

；若將Sub過(guò)程形參表中的ByVal關(guān)鍵字刪除，再執(zhí)行程序后在窗體上顯示的第一行是

③

，第二行是

④

。

PrivateSubValue(ByValmAsInteger,ByValnAsInteger)

m=m*2

n=n-5

Print"m=";m,"n=";n

EndSub

PrivateSubForm_Click()

DimxAsInteger,yAsInteger

X=20:y=15

CallValue(x,y)

Print"x=";x,"y=";y

EndSub答案：(1),(2),(3),(4)(4分)9.執(zhí)行下列程序，在窗體上顯示的第一行是

①

，第二行是

②

，第三行是

③

。

OptionExplicit

PrivateSubCommand1_Click()

dimxAsSingle,iAsInteger

x=1.2

Fori=1To3

x=x*i

Printfun1(x)

Nexti

EndSub

PrivateFunctionfun1(xAsSingle)AsSingle

StaticyAsSingle

y=y+x

fun1=y/2

EndFunction答案：(1),(2),(3)(3分)10.單擊按鈕Command1，A（1，1）的值是_①__，A（1，4）的值是

②

，A（4，1）的值是__③__，A（4，4）的值是__④__。

OptionBase1

PrivateSubCommand1_Click()

Dima()AsInteger,i%,j%，k%,n%

n=4

：

ReDima(n,n)

i=1:

j=n:a(i,j)=1

Fork=2Ton*n

If

i+1>nThen

i=n-j+2:j=1

ElseIfi+1<=nAndj+1>nThen

j=j-i:i=1

Else

i=i+1:j=j+1

EndIf

a(i,j)=k

Nextk

Fori=1Ton

Forj=1Ton

Printa(i,j);

Nextj

Print

Nexti

EndSub11、運(yùn)行下面程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容的第一行是____(1)_______，第二行是_____(2)_______。PrivateSubtest(xAsInteger)x=x*2+1Ifx<6ThenCalltest(6)EndIfx=x*2+1Form1.PrintxEndSubPrivateSubForm_Click()test2EndSub12、添加按鈕Command1和文本框Text1,并編寫下列代碼。執(zhí)行程序單擊命令按鈕后,Text1中是_______；將A、B語(yǔ)句交換位置,執(zhí)行程序單擊命令按鈕后,Text1中是________。OptionExplicitSubabc(k,x)DimiAsIntegerx=1Fori=1Tokx=x*iNextiEndSubPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,xAsIntegern=0:x=0Fori=1To3Callabc(i,x)'A語(yǔ)句n=n+x'B語(yǔ)句NextiText1.Text="n="&nEndSub13、運(yùn)行下面程序，單擊命令按鈕Command1，則在窗體上顯示的內(nèi)容是______。PrivateSubCommand1_Click()DimxAsLong,nAsIntegerx=33:n=5y=ret(x,n)PrintyEndSubPrivateFunctionret(SAsLong,LAsInteger)AsLongIfL>1Thenret=ret(S,L-1)S=S+2ret=SEndFunction14、下程序的功能是找出此數(shù)各位數(shù)字的階乘相加之和等于該數(shù)，并在列表框List1中顯示。階乘由Function計(jì)算。在(1)、(2)處填上正確內(nèi)容。PrivateSubCommand1_Click()Fork=1To1000a=LTrim(Str(k))n=0Fori=1ToLen(a)p=Val(Mid(a,i,1))n=n+fact(p)NextiIfn=kThen_____(1)_______NextkEndSubPrivateFunctionfact(x)ifx<=1Thenfact=1Elsefact=_____(2)_____EndIfEndFunction15、窗體中有一文本框Text1，執(zhí)行下面程序后，窗體上結(jié)果是_______，文本框中輸出結(jié)果是_____。OptionExplicitPrivateSubForm_Click()DimaAsIntegera=2CallSub1(a)Text1.Text=aEndSubPrivateSubSub1(xAsInteger)x=x*2+1Ifx<10ThenCallSub1(x)EndIfx=x*2+1Printx;EndSub16、執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第二行是_____，第三行是_____。OptionExplicitDimaAsInteger,bAsIntegerPrivateSubCommand1_Click()DimcAsIntegera=1:b=3:c=5Printfun(c)printa;b;cPrintfun(c)EndSubPrivateFunctionfun(xAsInteger)AsSinglefun=a+b+x/2a=a+bb=a+xx=b+aEndFunction17、一個(gè)窗體上有一個(gè)命令按鈕Command1，下列程序執(zhí)行后，輸出的結(jié)果為_(kāi)________。PrivateSubCommand1_Click()DimxAsIntegerx=1Callsort(x)