




版權(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
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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 【正版授權(quán)】 ISO 25178-605:2025 EN Geometrical product specifications (GPS) - Surface texture: Areal - Part 605: Design and characteristics of non-contact (point autofocus probe) instrum
- 2025年鋁合金精密模鍛件合作協(xié)議書
- 2025年度商鋪?zhàn)庥贸兄Z書規(guī)范版4篇
- 行業(yè)趨勢(shì)與發(fā)展目標(biāo)分析計(jì)劃
- 師生互動(dòng)促進(jìn)學(xué)習(xí)效果的研究計(jì)劃
- 新年職場(chǎng)新風(fēng)格與工匠精神計(jì)劃
- 如何利用社群效應(yīng)推動(dòng)品牌計(jì)劃
- 班主任的心理情感輔導(dǎo)計(jì)劃
- 企業(yè)財(cái)務(wù)戰(zhàn)略的執(zhí)行方法計(jì)劃
- 倉(cāng)庫(kù)持續(xù)改進(jìn)的必要性與方法計(jì)劃
- 5000只淮山羊和波爾山羊雜交良種養(yǎng)殖場(chǎng)建設(shè)項(xiàng)目可行性研究報(bào)告
- GB/T 5534-2008動(dòng)植物油脂皂化值的測(cè)定
- GB/T 12771-2019流體輸送用不銹鋼焊接鋼管
- 測(cè)量管理體系內(nèi)審檢查表
- 工程驗(yàn)收及移交管理方案
- 心臟手術(shù)麻醉的一般流程課件
- 圖片編輯概述課件
- 2023年岳陽(yáng)職業(yè)技術(shù)學(xué)院?jiǎn)握新殬I(yè)技能考試筆試題庫(kù)及答案解析
- 信號(hào)與系統(tǒng)復(fù)習(xí)題及答案
- 北師大版八年級(jí)數(shù)學(xué)上冊(cè)《認(rèn)識(shí)無(wú)理數(shù)(第2課時(shí))》參考課件2
- 中級(jí)建構(gòu)筑物消防員理論綜合模擬題01原題
評(píng)論
0/150
提交評(píng)論