PAGE第2頁共11頁年級(jí)：_____________專業(yè)：___________________班級(jí)：________________學(xué)號(hào)：_______________姓名：__________________誠信應(yīng)考考出水平考出風(fēng)格年級(jí)：_____________專業(yè)：___________________班級(jí)：________________學(xué)號(hào)：_______________姓名：__________________浙江大學(xué)城市學(xué)院2012—2013學(xué)年第二學(xué)期期中考試答卷《VB程序設(shè)計(jì)基礎(chǔ)與VBA應(yīng)用》開課單位：計(jì)算分院；考試形式：閉卷；考試時(shí)間：2013年5月5日所需時(shí)間：120分鐘題序一二三四總分得分評(píng)卷人得分一．單選題(本大題共30題，每題1分，共30分。)題號(hào)12345678910題號(hào)11121314151617181920題號(hào)21222324252627282930得分二．程序匹配題(本大題共2題10空，每空2分，共20分。)題號(hào)12345678910得分三．程序閱讀題(本大題共5題，每題4分，共20分。)第1題: 第2題:第3題: 第4題: 第5題:得分四．程序設(shè)計(jì)題(本大題共3題，每題10分，共30分。)第1題：.第2題：.第3題：.

浙江大學(xué)城市學(xué)院年級(jí)：_____________專業(yè)：___________________班級(jí)：________________學(xué)號(hào)：_______________姓名：__________________2012—2013學(xué)年第二學(xué)期期中考試試卷年級(jí)：_____________專業(yè)：___________________班級(jí)：________________學(xué)號(hào)：_______________姓名：__________________《VB程序設(shè)計(jì)基礎(chǔ)與VBA應(yīng)用》開課單位：計(jì)算分院；考試形式：閉卷；考試時(shí)間：2013年5月5日所需時(shí)間：120分鐘一、單選題（30%，每小題1分）(1)一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱為。A．事件、方法 B.屬性、方法C．方法、事件 D.過程、事件(2)在啟動(dòng)窗體時(shí)，為了初始化該窗體中的各控件，可選用窗體的事件。A.Click B.DblClickC.Load D.Unload(3)將VB編制的程序保存在磁盤上，至少會(huì)產(chǎn)生何種文件。A..vbp與.frm B..com與.exeC..bat與.frm D..doc與.txt(4)改變控件在窗體中的水平位置應(yīng)修改該控件的屬性。A.Top B.LeftC.Width D.Right(5)以下條語句執(zhí)行后將會(huì)刪除文本框Text1中的文本？A.Text1.SelText=”” B.Text1.Text=””C.Text1.Clear D.Text1.SelText.Clear(6)下面是日期型常量。A."12/19/99" B.#12/19/99#C.12/19/99 D.{12/19/99}(7)若x是一個(gè)正實(shí)數(shù)，對(duì)x的第3位小數(shù)四舍五入的表達(dá)式是。A.0.01*Int(x+0.005) B.0.01*Int(100*(x+0.005))C.0.01*Int(100*(x+0.05)) D.0.01*Int(x+0.05)(8)下列函數(shù)中，返回值是字符串的是。A.Chr B.InStrC.Val D.Asc(9)假定flge是邏輯型變量，下面賦值語句中不正確的是。A.flge=0 B.flge=”True”C.flge=3<4 D.flge=’True’(10)不正確的VB常量是。A.123! B.&HABC&C.#1-1-03# D.&O18(11)表達(dá)式5Mod3+5\3的值等于。A.2 B.3C.4 D.5(12)要得到[1，50]之間的隨機(jī)整數(shù)，可用式子。A.Int(50*Rnd) B.Int(49*Rnd)C.Int(49*Rnd)+1 D.Int(50*Rnd)+1(13)先聲明DimXAsString*10，再賦值X=”浙江”，最后Len(X)的值為。A.2 B.4C.10 D.12(14)數(shù)學(xué)式(xy+5)1/3寫成VB表達(dá)式是。A.(x*y+5)^1/3 B.(x*y+5)^(1\3)C.(x*y+5)^(1/3) D.(xy+5)^(1/3)(15)語句OptionBase1，決定數(shù)組下標(biāo)界。A．下界必須為1 B．下界必須為0C．缺省的下界為1 D．缺省的下界為0(16)定義數(shù)組Dima(3,4)后，在缺省狀態(tài)下，使用將出現(xiàn)下標(biāo)越界錯(cuò)誤。A．a(chǎn)(1,1) B．a(chǎn)(3,0)C．a(chǎn)(4,4) D．a(chǎn)(3,4)(17)以下條件語句錯(cuò)誤的是。A．IfXThenY=Y+1 B．IfX=0ThenY=0C．IfX>YThenPrintYEndIf D．IfX>0ThenY=1:PrintY(18)用Dimx,yAsBoolean語句聲明變量，下列正確的是。A．x是變體型變量，y是布爾型變量 B．x和y都是布爾型變量C．x是整型變量，y是布爾型變量 D．x和y都是變體型變量(19)若變量i的初值為9，則下列循環(huán)語句的循環(huán)次數(shù)為次。DoWhilei<=21i=i+3LoopA．3次 B．4次 C．5次 D．6次(20)下列屬性是所有控件的公共屬性。A．Name和Tag B．Name和EnabledC．Name和Width D．Name和Visible(21)下列不能判斷整型變量x是5的倍數(shù)的表達(dá)式是。A．5Modx=0 B．Int(x/5)=(x/5)C．x/5=x\5 D．xMod5=0(22)判斷“Z比X、Y都大”的VB表達(dá)式為。A．Z>XOrZ>Y B．Z>XAndY C．Z>XAndZ>YD．Z>X>Y(23)下列程序段的輸出結(jié)果是。a=10:b=10000x=Log(b)/Log(a)Print"lg(10000)=";xA.5 B.lg(10000)=5C.4 D.lg(10000)=4(24)x是Integer類型變量，無論x取何值，字符串表達(dá)式的長度為10。A.Space(10-Len(Str(x))+x B.Space(10-Len(Trim(Str(x))))+xC.Space(10-Len(x))&xD.Space(10-Len(Trim(Str(x))))&x(25)下面程序運(yùn)行后的結(jié)果是。m=0Fori=1To10m=m+ii=i+1NextiPrintm,iA．死循環(huán) B．2510C．1611 D．2511(26)下列程序段的執(zhí)行結(jié)果是。n=1j=1DoWhilej<=4n=n*jPrintn;j=j+1LoopA．12624 B．2468C．14711 D．1234(27)多分支選擇結(jié)構(gòu)的Case語句，寫法錯(cuò)誤的是。A．Case5To2 B．Case1,3,5C．Case8To12 D．CaseIs<”man”(28)函數(shù)InStr("windowse",Mid("winnt",2,2))的返回值是。A．0 B．1 C．2 D．3(29)對(duì)于一個(gè)標(biāo)簽控件有如下程序，雙擊標(biāo)簽后運(yùn)行的結(jié)果是。PrivateSubLabel1_Click()Print2;EndSubPrivateSubLabel1_DblClick()Print4EndSubA．24 B．2;4C．24 D．4(30)VB算術(shù)運(yùn)算符乘或除、整除、求余的優(yōu)先級(jí)，從高到低依次為。A．乘或除、求余、整除 B．乘或除、整除、求余C．整除、求余、乘或除 D．整除、乘或除、求余二、程序匹配題（20%，每空2分）【說明】本大題有二個(gè)小題，每個(gè)小題有5條語句需要匹配，待匹配的語句寫在程序的后面。根據(jù)題目的要求將待匹配的語句號(hào)填到答題卷上。1．在窗體上顯示單擊窗體的次數(shù)。第一次單擊時(shí)，窗體上以紅色顯示“第1次單擊窗體”；第二次單擊時(shí)，窗體上以藍(lán)色顯示“第2次單擊窗體”；第三次單擊時(shí)，窗體上以綠色顯示“第3次單擊窗體”，第四次單擊時(shí)，清除窗體上的信息。第五次單擊的效果和第一次一樣，以此類推，運(yùn)行效果如圖所示?！绢}1程序】(1).PrivateSubForm_Click()(2).Ifn=1Then Form1.ForeColor=vbRed Print"第1次單擊窗體"ElseIfn=2Then (3). Print"第2次單擊窗體"ElseIfn=3Then Form1.ForeColor=vbGreen (4).ElseIfn=4Then Form1.Cls (5).EndIfEndSub(1)n=0(2)DimnAsInteger(3)Form1.ForeColor=vbBlue(4)Print"第3次單擊窗體"(5)n=n+12．從鍵盤輸入一個(gè)字符串，然后將該字符串中的每個(gè)字符按ASCII碼值的大小從小到大進(jìn)行重新組合輸出。如：輸入abc123XYZ，處理后應(yīng)輸出123XYZabc。【題2程序】PrivateSubForm_Click()Dimc(100)AsStringDimnAsIntegerDimsAsString,ncAsString,tempAsStrings=InputBox("s=")(6).Fori=1Ton(7).NextiFori=1Ton-1Forj=i+1Ton(8).(9).c(i)=c(j)c(j)=tempEndIfNextjNextinc=""Fori=1Ton(10).NextiPrintncEndSub(6)Ifc(i)>c(j)Then(7)nc=nc+c(i)(8)temp=c(i)(9)n=Len(s)(10)c(i)=Mid(s,i,1)三、程序閱讀題（20%，每小題4分）1．下列程序運(yùn)行時(shí)單擊Command1后，寫出文本框Text1和Text2中Text的值?！境绦颉縋rivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=1Forn=4To2Step-1x=x*(x+1)NextnText1.Text="n="&nText2.Text="x="&xEndSub2．閱讀下列程序，程序運(yùn)行后，單擊窗體，寫出窗體上輸出結(jié)果。【程序】PrivateSubForm_Click()Dimx(8)AsInteger,pAsIntegerDimiAsInteger,jAsIntegerFori=1To6x(i)=iNextiFori=1To8Step2p=1Forj=1Tox(i)p=p*jNextjPrintpNextiEndSub3．下列程序運(yùn)行后，單擊命令按鈕后輸出的結(jié)果是什么？【程序】PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegern=5Fori=1TonPrintTab(n-i+1);Forj=1To2*i-1Step2PrintStr(i);NextjPrintNextiEndSub4．運(yùn)行時(shí)，設(shè)文本框Text1.Text為空，在Text1獲得輸入焦點(diǎn)后，依次按下列按鍵："1"、"+"、"2"、"-"、"3"、"*"、"4"、"/"、"5"分別寫出文本框中和窗體上的