中國(guó)礦業(yè)大學(xué)2007~2008學(xué)年第二學(xué)期《VB程序設(shè)計(jì)》筆試試卷(A)卷6620

中國(guó)礦業(yè)大學(xué)2007~2008學(xué)年第二學(xué)期《VB程序設(shè)計(jì)》筆試試卷（A）卷考試時(shí)間：120分鐘考試方式：閉卷_______班級(jí)序號(hào)_______題號(hào)一二三四總分學(xué)院姓名________班級(jí)分值30得分203020100閱卷人注：必須將答案按題號(hào)的先后順序?qū)懺诖痤}紙上，否則不予記分。選擇題（本題30小題，每題1分，共30分）一、1．關(guān)于窗體Name屬性的敘述，正確的是。A．窗體Name屬性的屬性值必須通過(guò)屬性窗口進(jìn)行設(shè)置B．窗體Name屬性的屬性值最長(zhǎng)可達(dá)255個(gè)字符C．窗體Name屬性的屬性值不能與其它的控件對(duì)象的Name屬性的屬性值相同D．窗體Name屬性的屬性值可以通過(guò)賦值語(yǔ)句來(lái)給它賦值2．只能用于除去字符串右側(cè)空格的函數(shù)是。A．RightTrimB．RTrimC．TrimD．RLTrim3．下列表達(dá)式中，值為True的是。A．3<2<1B．Ucase("vb")>=Lcase("VB")C．Mid("vbprogram",2,2)>Left("vbprogram",2)D．14/2\3>10Mod44．?dāng)?shù)學(xué)表達(dá)式|e+lnX+arctgY|對(duì)應(yīng)的VB表達(dá)式是。3A．Abs(e^3+Log(X)+1/Atn(Y))B．Abs(Exp(3)+Log(X)/Log(10)+Atn(Y))C．Abs(Exp(3)+Log(X)+1/Atn(Y))D．Abs(Exp(3)+Log(X)+Atn(Y))5．執(zhí)行語(yǔ)句PrintSgn(Fix(3.1)+Int(-3.1))，在窗體上輸出的結(jié)果是。A．1B．0C。Print20+5=25B．Print"11"+11．Print32700+100．-1D．66．下列語(yǔ)句不能正常執(zhí)行的是A．C．Print11&11D7．在窗體上有兩個(gè)文本框Text1和Text2，若希望在Text1中輸入字符時(shí)，該字符也將出現(xiàn)在Text2中，要實(shí)現(xiàn)該功能，則必須在文本框Text1的事件中書寫代碼。A．ClickB．GotFocusC．LostFocusD．Change8．在窗體（Name屬性為Form1）上畫兩個(gè)文本框（Name屬性分別為T1和T2）和一個(gè)命令按鈕（Name屬性為C1）。單擊命令按鈕C1后在窗體上輸出的結(jié)果為。PrivateSubC1_Click()s=T1.Text+T2.TextPrintsEndSubPrivateSubForm_Load()T1.Text=234T2.Text=432EndSubA．666B．234432C．432234D．出錯(cuò)。C．滾動(dòng)條9．下列控件中，具有Caption屬性的是A．文本框B．復(fù)選框D．列表框10．下列選項(xiàng)中（其中對(duì)象的Name屬性值均為默認(rèn)值），控件的屬性值既能在設(shè)計(jì)時(shí)設(shè)置，又能在運(yùn)行時(shí)通過(guò)賦值語(yǔ)句改變的是。A．List1.NameB．Text1.MultiLineC．Command1.StyleD．Label1.Visible11．為了在按下ESC鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過(guò)程，需要把該命令按鈕的屬性的值設(shè)置為True。A．ValueB．DefaultC．CancelD．Enabled12．如圖1所示，在窗體中創(chuàng)建了框架、單選鈕和命令按鈕（其中對(duì)象的Name屬性值均為默認(rèn)值），圖中“公共基礎(chǔ)課”字樣的內(nèi)容，是通過(guò)語(yǔ)句來(lái)實(shí)現(xiàn)的。A．Frame1.Caption="公共基礎(chǔ)課"B．Form1.Caption="公共基礎(chǔ)課"C．Option1.Caption="公共基礎(chǔ)課"D．Command1.Caption="公共基礎(chǔ)課"13．下列選項(xiàng)中，不能使控件獲得焦點(diǎn)的操作是。圖1A．在程序運(yùn)行期間，用鼠標(biāo)單擊對(duì)象B．在程序運(yùn)行期間，用快捷鍵選擇對(duì)象C．在程序運(yùn)行期間，用Tab鍵D．在程序運(yùn)行期間，用Enter鍵14．下列選項(xiàng)中不屬于結(jié)構(gòu)化程序設(shè)計(jì)的基本結(jié)構(gòu)的是。A．順序結(jié)構(gòu)B．選擇結(jié)構(gòu)C．循環(huán)結(jié)構(gòu)D．遞歸結(jié)構(gòu)15．下面關(guān)于賦值語(yǔ)句的說(shuō)法中，錯(cuò)誤的是。A．一個(gè)賦值語(yǔ)句只能給一個(gè)變量(或?qū)ο蟮囊粋€(gè)屬性)賦值B．賦值語(yǔ)句是一種順序語(yǔ)句C．當(dāng)賦值語(yǔ)句中變量的數(shù)據(jù)類型與表達(dá)式的數(shù)據(jù)類型不一致時(shí)，該語(yǔ)句一定會(huì)出錯(cuò)D．賦值語(yǔ)句中出現(xiàn)兩個(gè)“=”號(hào)時(shí)，系統(tǒng)會(huì)根據(jù)“=”所處的位置自動(dòng)判斷符號(hào)的意義。16．如圖2所示，Inputbox函數(shù)的參數(shù)中“提示信息”的值是。A．輸入你的學(xué)號(hào)B．信息輸入框C．0101001D．確定圖217．現(xiàn)有語(yǔ)句：y=IIf(x>0,x\5,0)設(shè)x=10，則y的值是。A．10B．2C．0D．語(yǔ)句有錯(cuò)18．對(duì)動(dòng)態(tài)數(shù)組A()，若原數(shù)組為A(5)，要改變其維界為A(10)，同時(shí)還要保留原數(shù)組的數(shù)據(jù)不丟失，應(yīng)使用語(yǔ)句進(jìn)行重新定義。A.DimA(10)B.ReDimPreserveAC.ReDimPreserveA(10)D.ReDimA(10)19．下面的循環(huán)語(yǔ)句中，不可以采用來(lái)求1到100的和。A．Sum=0B．Sum=0ForI=1To100ForI=100To1StepSum=Sum+ISum=Sum+INextINextIC．I=1D．I=1DoDoUntilI>100Sum=Sum+II=I+1I=I+1Sum=Sum+ILoopWhileI<=100Loop20．下面關(guān)于Array函數(shù)的說(shuō)法錯(cuò)誤的是。A．Array函數(shù)可以給定義為變體類型的動(dòng)態(tài)數(shù)組賦值B．Array函數(shù)可以給任意維的數(shù)組賦值C．Array函數(shù)可以給定義為變體類型的變量賦值D．Array函數(shù)只能給一維數(shù)組賦值21．下面定義數(shù)組的語(yǔ)句中錯(cuò)誤的是。A．Dima(x-10)B．Dimf(3,1To4)C．Dimm()AsSingleD．Staticb(0To5)AsLong22．現(xiàn)有一自定義的Sub子過(guò)程PrivateSubSort(A()AsInteger)，下列選項(xiàng)中不能正確調(diào)用該子過(guò)程的語(yǔ)句是。A．SortmB．CallSort(m)，主調(diào)過(guò)程中對(duì)數(shù)組的定義語(yǔ)句為Dimm(10)AsIntegerC．CallSort(m(10))D．Sortm()23．以下關(guān)于變量的作用域的說(shuō)法中正確的是。PrivateXAsIntegerPrivateSubForm_Load()DimXAsIntegerShowX=2PrintXEndSubA．窗體的“通用聲明”處聲明的X的值2B．兩個(gè)變量的值都是2C．Load事件過(guò)程中聲明的X的值2D．兩個(gè)變量的值都不是224．關(guān)于窗體的Load語(yǔ)句和Show方法，下列說(shuō)法正確的是。A．Load和Show的功能一樣，都是將指定的窗體裝入內(nèi)容，同時(shí)顯示出來(lái)B．Load和Show的功能一樣，都是將指定的窗體裝入內(nèi)容，但都不顯示出來(lái)C．Load和Show都能將窗體裝入內(nèi)存，但前者不顯示出來(lái)，而后者顯示出來(lái)D．Load和Show都能將窗體裝入內(nèi)存，但前者顯示出來(lái)，而后者不顯示出來(lái)25．輸出列表框（List1）最后一個(gè)數(shù)據(jù)項(xiàng)可以使用。A．PrintList1.List(List1.ListCount)B．PrintList1.List(List1.ListCount-1)C．PrintList1.List(ListCount)D．PrintList1.List(ListCount-1)26．下列操作中，不能觸發(fā)滾動(dòng)條的Change事件的操作是。A．單擊滾動(dòng)條兩端的箭頭B．單擊滾動(dòng)條空白區(qū)域value屬性賦值D．單擊滾動(dòng)條上的滑塊C．通過(guò)程序?qū)L動(dòng)條的27．通用對(duì)話框的Action屬性決定了通用對(duì)話框在運(yùn)行階段打開何種類型的對(duì)話框，當(dāng)Action屬性值為1時(shí)，其與之對(duì)應(yīng)的方法是。A．ShowSaveB．ShowOpenC．ShowColorD．ShowFont28．在VB中，下列關(guān)于控件的屬性或方法中，搭配錯(cuò)誤的有個(gè)。(1)Command1.Value(2)List1.Cls(3)Labe(4)Timer1.Visible(5)VScroll1.Value(6)Pict(7)Option1.Value(8)Text1.ValueA．3B．4C．5D．629．下列選項(xiàng)中，可以列出計(jì)算機(jī)中的所有驅(qū)動(dòng)器的控件是。B．目錄列表框C．文件列表框。A．驅(qū)動(dòng)器列表框D．列表框30．下列有關(guān)打開順序文件的說(shuō)法錯(cuò)誤的是A．For模式中的Output選項(xiàng)可用來(lái)在磁盤上創(chuàng)建一個(gè)新的順序文件。B．Input選項(xiàng)用來(lái)從文件中讀取。若該文件不存在，則創(chuàng)建一個(gè)文件。C．Append選項(xiàng)可用來(lái)打開一個(gè)新的順序文件，文件打開后文件指針位于文件的末尾。D．可以使用不同的文件號(hào)以Input方式打開同一順序文件。二、分析程序，寫結(jié)果（本題10個(gè)空，每空2分，共20分）1.運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容第一行是__(1)__，第二行是___(2)___。PrivateSubForm_Click()DimxAsInteger,yAsIntegerDox=x+2y=y+x*xIfx>4ThenExitDoEndIfLoopPrintxPrintyEndSub2.運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容第一行是___(3)___，第二行是__(4)__。PrivateSubForm_Click()Dima(3,3)AsInteger,iAsInteger,jAsInteFori=1To3Forj=1To3a(i,j)=(i-1)*3+j*2NextjNextiFori=1To3Forj=i+1To3Printa(j,i);NextjPrintNextiEndSub3.運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容第一行是(5），第三行是(6)，F(xiàn)orm_Click()事件過(guò)程中的第二個(gè)For-Next循環(huán)共執(zhí)行了(7)次。PrivateSubForm_Click()Dimx(1To4)AsIntegerDimiAsInteger,jAsIntegerFori=1To4x(i)=i*iPrintx(i);NextiPrintForj=1To4Callsub1(x(j),j)PrintjNextjEndSubPrivateSubsub1(xAsInteger,mAsInteger)Ifx-m<=2Thenm=m+2Elsem=m+3EndIfEndSub4.運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容第一行是___(8)____，第二行是___(9)_，第三行是___(10)___。PrivateSubForm_Click()Printcal(2)EndSubPrivateFunctioncal(aAsInteger)AsIntegerDimtempAsIntegerIfa=1Thentemp=2Elsetemp=cal(a-1)*2EndIfcal=tempPrinta,tempEndFunction三、完善程序（本題15個(gè)空，每空2分，出租車計(jì)費(fèi)方式為：3公里以內(nèi)收費(fèi)7元，超過(guò)3公參考界面如圖3。共30分）1.下列程序的功能是：計(jì)算出租汽車收費(fèi)。里的部分每公里1.4元。程序運(yùn)行PrivateSubForm_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)If（1）Theny=7Else（2）EndIf圖3Text2.Text=Str(y)EndSub2.使用下面的公式，根據(jù)輸入的精度計(jì)算arcsh(x)的近似值，要求保留四位小數(shù)。程序運(yùn)行結(jié)果參考界面如圖4。PrivateSubForm_Click()DimxAsSingle,epsAsSingle,resultAsDouble,DimtAsDouble,iAsLong,pAsSinglex=Val(Text1.Text)eps=Val(Text2.Text)n=1result=x(3)DoWhile（4）result=result+tn=n+1p=1圖4Fori=1Tonp=p*(2*i-1)/(2*i)Nextit=（5）LoopText3.Text=Format$(result,"0.0000")EndSub3.下列程序的功能是：輸出100以內(nèi)的能被3整除且個(gè)位數(shù)為6的所有整數(shù)。程序運(yùn)行結(jié)果參考界面如圖5所示。PrivateSubForm_Click()DimiAsIntegerPrint"滿足條件的數(shù)有:"Fori=1To100If（6）ThenPrintiEndIfNexti圖5EndSubFunctionshuju(ByValxAsInteger)AsBooleanDimyAsIntegershuju=False（7）Ify=6AndxMod3=0Then（8）EndIfEndFunction4.下列程序的功能是判斷一個(gè)正整數(shù)是否符合要求。要求是：該數(shù)為一個(gè)奇數(shù)，并且當(dāng)該數(shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是奇數(shù)。并且用MsgBox給出此數(shù)是否滿足條件的提示。例如輸入奇數(shù)1337，因?yàn)?33、13、1都是奇數(shù)，所以彈出“1337是滿足條件的數(shù)”。程序運(yùn)行參考界面如圖6和圖7所示。PrivateSubForm_Click()DimiAsInteger,flagAsBooleani=Val(Text1.Text)(9)圖6Ifflag=TrueThenMsgBoxi&"是滿足條件的數(shù)"ElseMsgBoxi&"不是滿足條件的數(shù)"EndIfEndSub圖7PrivateSubsuperodd((10),fAsBoolean)DimpAsIntegerf=TrueDoWhilen>0If(11)Thenn=n\10Elsef=FalseExitSubEndIfLoopEndSub5.下列程序的功能是：隨機(jī)生成10個(gè)三位正整數(shù)，存放到數(shù)組a中，再用選擇排序法對(duì)數(shù)組a從大到小排序，并且把排好順序的數(shù)組元素寫入D盤的根目錄下的file1.txt文件中。程序運(yùn)行參考界面如圖8。PrivateSubForm_Click()DimnAsInteger,a(1to10)AsInteger,iAsIntDimjAsI