中國(guó)地質(zhì)大學(xué)（北京）研究生試卷（A）2015秋季學(xué)期第PAGE17共17頁(yè)課程號(hào)：SG04002《VB程序設(shè)計(jì)》考試試卷（A）考試形式：閉卷考試考試時(shí)間：120分鐘所有答案答在答題紙上院系學(xué)號(hào)姓名得分題號(hào)一二三四五總分判斷題（正確劃√，錯(cuò)誤劃×）（10分）事件的編程可以在代碼設(shè)計(jì)窗口中進(jìn)行，系統(tǒng)為不同對(duì)象提供了不同的事件集。事件是對(duì)象特有的，不能主觀臆造×(事件不是對(duì)象特有的，方法是對(duì)象所特有的)即使單選按鈕控件數(shù)組中的元素分屬在多個(gè)容器中也只能從中選擇一個(gè)控件×過(guò)程和函數(shù)的區(qū)別在于有無(wú)返回值√只要把Image控件的Stretch屬性設(shè)置為True，控件會(huì)自動(dòng)調(diào)整大小以適應(yīng)所裝載的圖片的大小×（說(shuō)反了，應(yīng)該是圖片適應(yīng)控件的大?。㎜eft(Val("1234ab"),2)的結(jié)果是”12”√Val返回的是數(shù)，把1234給left,但是left返回是串，取串里的兩個(gè)字符12，所以結(jié)果是12這個(gè)串，要加雙引號(hào)。列表框控件的Style屬性為1（Checkbox）時(shí)，MultiSelect屬性必須為0（None）√Style只有0和1，0是標(biāo)準(zhǔn)的，1是復(fù)選checkbox，組合框是三個(gè)值0,1,2沒(méi)有通用對(duì)話框控件文件就沒(méi)辦法讀寫×對(duì)話框不負(fù)責(zé)文件的讀寫，只負(fù)責(zé)傳串，文件讀寫由讀寫語(yǔ)句進(jìn)行。讀圖形文件是函數(shù)完成的,loadpicture,寫圖形文件是savepicture.通過(guò)PaintPicture方法可以對(duì)圖片進(jìn)行縮放和裁剪等變換√還可以翻轉(zhuǎn)Do~loopwhile和Dowhile~loop在循環(huán)條件為True時(shí)循環(huán)結(jié)果一樣√當(dāng)循環(huán)條件為false時(shí)不一樣只有頂級(jí)菜單和二級(jí)菜單才能調(diào)用窗體的PopupMenu方法制作彈出式菜單×只有父菜單才能備調(diào)用 單項(xiàng)選擇填空題（共40分）有value屬性的控件是【D】TextBox B．ListBox C．ComboBox D．ScrollBar有value屬性的有三個(gè)控件：opptionbutton,checkbox,scrollbar下列屬性中不屬于組合框控件是【B】A．ListIndex B．Selected C．Text D．List能畫橫半軸為3，縱半軸為2的語(yǔ)句是【C】A．Me.Circle(0,0),3,,,2/3 B．Me.Circle(0,0),3,,,,3 /2 C．Me.Circle(0,0),3,,,,2/3 D．Me.Circle(0,0),3,,,3/2[<對(duì)象名>.]Circle[Step](x,y),<半徑>,[<顏色>],,,<邊比率>縱比橫中間缺3個(gè)參數(shù)，顏色，起和止幅度，用四個(gè)逗號(hào)分隔下列控件沒(méi)有change事件是【B】A．TextBox B．ListBox C．ScrollBar D．ComboBox命令按鈕控件能響應(yīng)用戶的單擊必須保證其【C】屬性均為真A．Visible和Caption B．Enabled和ToolTipText C． Enabled 和Visible D．Caption和ToolTipText 下面標(biāo)識(shí)符哪個(gè)可作為數(shù)組的名字【B】A．1abc B．a(chǎn)bc1 C．a(chǎn)b(c1) D．a(chǎn).bc1標(biāo)識(shí)符命名規(guī)則：以字母和漢字開頭，不能和已有函數(shù)重名，標(biāo)識(shí)符由字母、數(shù)字和下劃線組成。下列對(duì)象中沒(méi)有Caption屬性的是【D】A．MDIForm B．SDIForm C．Label D．ScrollBar 下列【A】方法是MDIForm 特有的方法A．Arrange B．Hide C．SetFocus D．Show 下面【A】對(duì)象擁有AutoRedraw屬性A．PictureBox和窗體 B．Frame和窗體 C．PictureBox和Frame D．PictureBox和Image AutoRedraw是存儲(chǔ)動(dòng)態(tài)輸出信息的，在窗體重繪時(shí)還拿出來(lái)描繪的窗體，就要把a(bǔ)utoredraw置為true.窗體最小化后展開，窗體被其他窗體覆蓋，窗體由小變大的時(shí)候。窗體和picturebox支持繪圖。下列【D】屬性是SDIForm 特有的A．Enabled B．DrawWidth C．Caption D．MDIChild下列控件中沒(méi)有事件的是【D】A．Timer控件和Shape控件 B．Shape控件和菜單 C．Timer控件和菜單 D．Shape和Line控件 Timer有timer事件，菜單有click事件不能作為容器是【D】Frame B．Form C．PictureBox D．Image 容器有四個(gè)，窗體的容器MDI，SDI窗體，frame控件，picturebox.動(dòng)態(tài)數(shù)組重定義應(yīng)使用【D】關(guān)鍵字Dim B．Preserve C．Type D．ReDim Dim可以定義窗體級(jí)變量，也可以定義局部變量，窗體級(jí)在通用段定義，局部在函數(shù)和過(guò)程內(nèi)定義。靜態(tài)局部變量可以保留上次函數(shù)調(diào)用的值。下列對(duì)象中擁有KeyPreview屬性是【B】MDIForm B． SDIForm C．ComboBox D．ListBox可以刪除列表框所有列表?xiàng)l目的方法是【A】Clear B．RemoveItem C．Additem D．Cls Cls是清屏可以向列表框添加列表?xiàng)l目的方法是【C】A．Clear B．RemoveItem C． Additem D．Cls下列【B】語(yǔ)句可以讓T控件1秒中自動(dòng)激發(fā)10次Timer事件A．T.Interval=50 B．T.Interval=100 C．T.Interval=150 D．T.Interval=200 1秒=1000毫秒下列【A】方法能完成窗體邏輯坐標(biāo)系統(tǒng)的設(shè)置Scale B．SetFocus C．Show D．PaintPicture徒手寫不用坐標(biāo)系統(tǒng)【C】屬性可以設(shè)置TextBox輸入文本的掩碼MaxLength B．FontSize C．PasswordChar D．MultiLine MaxLength設(shè)置文本框，接納的最大文本數(shù)窗體第一個(gè)和最后一個(gè)發(fā)生的事件是【A】A．Initialize和 Terminate B．Terminate和Initialize C．Load 和Unload D．Unload和Load若要處理程序運(yùn)行過(guò)程中的錯(cuò)誤應(yīng)使用【C】語(yǔ)句先捕獲錯(cuò)誤A．OnErrorGoTo0 B．OnErrorResumeNextC．OnErrorGoTo語(yǔ)句行號(hào) D．ResumeNext捕獲的時(shí)候有三種情況：OnErrorGoTo0 ：系統(tǒng)處理錯(cuò)誤的方法OnErrorResumeNext：忽略錯(cuò)誤OnErrorGoTo語(yǔ)句行號(hào) 正確的處理方式三種錯(cuò)誤：語(yǔ)法錯(cuò)誤，邏輯錯(cuò)誤，運(yùn)行錯(cuò)誤恢復(fù)錯(cuò)誤：ResumeNext，Resume行號(hào)，Resume0（從錯(cuò)誤行開始執(zhí)行）閱讀下面程序，寫出單擊Command1后的程序運(yùn)行結(jié)果（10分）PrivateSubCh(ByValaAsInteger,ByRefbAsInteger)DimkAsIntegerk=a:a=b:b=kEndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10:y=20Chx,yPrintx,yEndSub（1010）不能是（10,10）PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=91y=xMod10*10+x\10PrintyEndSub乘的優(yōu)先級(jí)比mod高M(jìn)od是求余數(shù)答案是100PrivateSubCommand1_Click()Printav(3,4,6,8,10)EndSubPublicFunctionav(ParamArrays())AsSingleDimHAsIntegerDimiAsVariantDimCAsIntegerForEachiInsH=H+iC=C+1Nextiav=H/CEndFunction這個(gè)是求平均值31/5=6.2PublicFunctionABC(aAsSingle,Optionalb=5)AsIntegerIfIsMissing(b)=TrueThenABC=a*aElseABC=a*bEndIfEndFunctionPrivateSubCommand1_Click()PrintABC(10,2),ABC(3)EndSub 答案是（20,15）缺省參數(shù)IsMissing(b)=True的意思是如果b是缺省的，但是b已經(jīng)給了默認(rèn)值了，就不可能再缺省了，所以這條不執(zhí)行。ABC(3)沒(méi)有給b,就默認(rèn)b是5ABC(10,2)給了b的值，就不用b的默認(rèn)值了，用2.PrivateFunctionABC(AAsInteger)StaticKAsIntegerK=K+AABC=KEndFunctionPrivateSubCommand1_Click()DimIAsInteger,SAsIntegerForI=1To5S=S+ABC(I)NextPrintSEndSub靜態(tài)局部變量可以保留上次函數(shù)調(diào)用的值。（35）1+1+2+1+2+3+1+2+3+4+1+2+3+4+5=35程序填空（30分）下面函數(shù)的功能是隨機(jī)產(chǎn)生一個(gè)字母（大小寫都可能），并返回該字母，閱讀并理解程序，填寫缺失的代碼。PrivateFunctionzm()AsStringRandomizeDimkAsIntegerDo【k=int(rnd*58+65)】這個(gè)的意思是要產(chǎn)生一個(gè)65到122的隨機(jī)數(shù)Loop【until】Not(k<97Andk>90)這個(gè)的意思是大小寫字母之間的其他如果是while,就不要那個(gè)not【zm】=Chr(k)EndFunction有下面界面（圖1）用于學(xué)習(xí)標(biāo)兵的評(píng)選，選擇合適的人選后（必須選擇5人）按提交按鈕（Commadn1）把本次的選擇結(jié)果寫到文件a.txt中（a.txt中將記錄所有的評(píng)選結(jié)果，如圖2所示）。程序控制人數(shù)的多選，但少選按提交按鈕時(shí)程序給予提示。當(dāng)一個(gè)選民提交選擇后，程序?qū)⑶宄羞x擇以備下一個(gè)選民選擇。請(qǐng)?zhí)顚懭笔У拇a 圖1 圖2OptionExplicitDimkAsIntegerPrivateSubC_Click(IndexAsInteger)IfC(Index).Value=1Then【k=k+1】Elsek=k-1EndIfIfk>5Then【C(Index).Value=0】EndSubPrivateSubCommand1_Click()Ifk=5ThenDimsAsStringDimiAsIntegerFori=0ToC.UBoundIf【C(i).Value=1】Thens=s&C(i).Caption&""EndIfNextiFori=0ToC.UBoundIfC(i).Value=1ThenC(i).Value=0EndIfNextiOpen"d:\a.txt"For【append】As#1這個(gè)是追加，output是會(huì)重寫的Print#1,sCloseElseMsgBox"人員選少了，請(qǐng)繼續(xù)選擇！",vbExclamationEndIfEndSub下面是繪圖程序，模仿系統(tǒng)附件中的“畫圖”程序（程序設(shè)計(jì)界面如圖3）。當(dāng)單擊t(0)后，按住鼠標(biāo)左鍵可以實(shí)現(xiàn)徒手寫的功能；當(dāng)單擊t(1)后，按住鼠標(biāo)左鍵可以畫直線；當(dāng)單擊t(2)后，按住鼠標(biāo)左鍵可以擦除鼠標(biāo)移動(dòng)區(qū)域內(nèi)的圖形；當(dāng)單擊t(3)后，按住鼠標(biāo)左鍵可以畫圓，圓心為鼠標(biāo)移動(dòng)距離的中心點(diǎn)，半徑為該距離長(zhǎng)度的一半；如圖4所示。當(dāng)單擊保存按鈕（Command1）時(shí)，彈出對(duì)話框如圖5并保存繪制的圖形；單擊退出按鈕（Command2）時(shí)，卸載窗口，結(jié)束程序運(yùn)行。根據(jù)上述功能填寫缺失代碼圖3圖4圖5根據(jù)程序的運(yùn)行特征可以判斷T數(shù)組中的控件是【opptionbutton】控件OptionExplicitDimtsAsStringDimxxAsSingle,yyAsSinglePrivateSubCommand1_Click()C.ShowSaveSavePictureP.Image,【C.filename】EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()P.AutoRedraw=Truet(0).Value=Truets="筆"EndSubPrivateSubP_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenSelectCasetsCase"筆"P.CurrentX=XP.CurrentY=YCase"直線"【xx=X:yy=Y】Case"圓"xx=X:yy=YCase"橡皮"P.Line(X-40,Y-40)-(X+40,Y+40),P.BackColor,BFEndSelectEndIfEndSubPrivateSubP_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenSelectCasetsCase"筆"【P.pset(x,y)】Case"橡皮"P.Line(X-40,Y-40)-(X+40,Y+40),P.BackColor,BFEndSelectEndIfEndSubPrivateSubP_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenSelectCasetsCase"直線"【P.line(xx,yy)-(x,y)】Case"圓"DimxcAsSingle,ycAsSingle,rAsSinglexc=(xx+X)/2yc=(yy+Y)/2【r】=Sqr((X-xx)^2+(Y-yy)^2)/2【P.circle(xc,yc),r】EndSelectEndIfEndSubPrivateSubt_Cl