南京工業(yè)大學(xué)VB期末考試模擬題6_第1頁(yè)
南京工業(yè)大學(xué)VB期末考試模擬題6_第2頁(yè)
南京工業(yè)大學(xué)VB期末考試模擬題6_第3頁(yè)
南京工業(yè)大學(xué)VB期末考試模擬題6_第4頁(yè)
南京工業(yè)大學(xué)VB期末考試模擬題6_第5頁(yè)
已閱讀5頁(yè),還剩108頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

南京工業(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)

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論