中國(guó)地質(zhì)大學(xué)北京秋研究生VB期末試卷及答案詳解與拓展.docx

中國(guó)地質(zhì)大學(xué)（北京）研究生試卷（A） 2015秋季學(xué)期課程號(hào)：SG04002VB程序設(shè)計(jì)考試試卷（A）考試形式：閉卷考試 考試時(shí)間：120分鐘所有答案答在答題紙上院系 學(xué)號(hào) 姓名 得分 題號(hào)一二三四五總分一 判斷題（正確劃，錯(cuò)誤劃）（10分）1. 事件的編程可以在代碼設(shè)計(jì)窗口中進(jìn)行，系統(tǒng)為不同對(duì)象提供了不同的事件集。事件是對(duì)象特有的，不能主觀臆造 (事件不是對(duì)象特有的，方法是對(duì)象所特有的)2. 即使單選按鈕控件數(shù)組中的元素分屬在多個(gè)容器中也只能從中選擇一個(gè)控件 3. 過(guò)程和函數(shù)的區(qū)別在于有無(wú)返回值 4. 只要把Image控件的Stretch屬性設(shè)置為 True，控件會(huì)自動(dòng)調(diào)整大小以適應(yīng)所裝載的圖片的大?。ㄕf(shuō)反了，應(yīng)該是圖片適應(yīng)控件的大?。?. Left(Val("1234ab"), 2)的結(jié)果是”12” Val 返回的是數(shù)，把1234給left, 但是left 返回是串，取串里的兩個(gè)字符12，所以結(jié)果是12這個(gè)串，要加雙引號(hào)。6. 列表框控件的Style屬性為1（Checkbox）時(shí)，MultiSelect屬性必須為0（None） Style 只有0和1，0是標(biāo)準(zhǔn)的，1是復(fù)選checkbox，組合框是三個(gè)值0,1,27. 沒(méi)有通用對(duì)話(huà)框控件文件就沒(méi)辦法讀寫(xiě) 對(duì)話(huà)框不負(fù)責(zé)文件的讀寫(xiě)，只負(fù)責(zé)傳串，文件讀寫(xiě)由讀寫(xiě)語(yǔ)句進(jìn)行。讀圖形文件是函數(shù)完成的,load picture, 寫(xiě)圖形文件是save picture.8. 通過(guò)PaintPicture方法可以對(duì)圖片進(jìn)行縮放和裁剪等變換 還可以翻轉(zhuǎn)9. Doloop while和Do while loop 在循環(huán)條件為T(mén)rue時(shí)循環(huán)結(jié)果一樣 當(dāng)循環(huán)條件為false時(shí)不一樣10. 只有頂級(jí)菜單和二級(jí)菜單才能調(diào)用窗體的PopupMenu方法制作彈出式菜單 只有父菜單才能備調(diào)用二 單項(xiàng)選擇填空題（共40分）1 有value屬性的控件是【 D 】A TextBox BListBoxCComboBox DScrollBar 有value屬性的有三個(gè)控件：opptionbutton, checkbox, scrollbar2 下列屬性中不屬于組合框控件是【 B 】AListIndex BSelected CTextDList3 能畫(huà)橫半軸為3，縱半軸為2的語(yǔ)句是【 C 】AMe.Circle (0, 0), 3, , , 2 / 3BMe.Circle (0, 0), 3, , , , 3/2CMe.Circle (0, 0), 3, , , , 2 / 3 DMe.Circle (0, 0), 3, , , 3/2<對(duì)象名>.Circle Step(x, y),<半徑>,<顏色>, , ,<邊比率> 縱比橫 中間缺3個(gè)參數(shù)，顏色，起和止幅度，用四個(gè)逗號(hào)分隔4 下列控件沒(méi)有change事件是【 B 】ATextBox BListBoxCScrollBar DComboBox5 命令按鈕控件能響應(yīng)用戶(hù)的單擊必須保證其【 C 】屬性均為真AVisible和CaptionBEnabled和ToolTipTextCEnabled和Visible DCaption和ToolTipText6 下面標(biāo)識(shí)符哪個(gè)可作為數(shù)組的名字【 B 】A1abc Babc1Cab(c1)Da.bc1標(biāo)識(shí)符命名規(guī)則：以字母和漢字開(kāi)頭，不能和已有函數(shù)重名，標(biāo)識(shí)符由字母、數(shù)字和下劃線(xiàn)組成。7 下列對(duì)象中沒(méi)有Caption屬性的是【 D 】AMDI FormB SDI Form CLabelD ScrollBar8 下列【 A 】方法是MDI Form特有的方法A ArrangeB HideCSetFocus DShow 9 下面【 A 】對(duì)象擁有AutoRedraw屬性APictureBox和窗體BFrame和窗體CPictureBox和Frame DPictureBox和Image AutoRedraw是存儲(chǔ)動(dòng)態(tài)輸出信息的，在窗體重繪時(shí)還拿出來(lái)描繪的窗體，就要把a(bǔ)utoredraw置為true. 窗體最小化后展開(kāi)，窗體被其他窗體覆蓋，窗體由小變大的時(shí)候。窗體和picturebox支持繪圖。10 下列【 D 】屬性是SDI Form特有的AEnabledBDrawWidthCCaptionDMDIChild 11 下列控件中沒(méi)有事件的是【 D 】ATimer控件和Shape控件BShape控件和菜單 CTimer控件和菜單DShape和Line控件Timer有timer事件，菜單有click事件12 不能作為容器是【 D 】A FrameBFormCPictureBoxDImage容器有四個(gè)，窗體的容器MDI，SDI窗體，frame控件，picturebox.13 動(dòng)態(tài)數(shù)組重定義應(yīng)使用【 D 】關(guān)鍵字A Dim BPreserveCTypeDReDimDim 可以定義窗體級(jí)變量，也可以定義局部變量，窗體級(jí)在通用段定義，局部在函數(shù)和過(guò)程內(nèi)定義。靜態(tài)局部變量可以保留上次函數(shù)調(diào)用的值。14 下列對(duì)象中擁有KeyPreview屬性是【 B 】A MDI FormBSDI Form CComboBoxD ListBox15 可以刪除列表框所有列表?xiàng)l目的方法是【 A 】A ClearBRemoveItemCAdditemDCls Cls是清屏16 可以向列表框添加列表?xiàng)l目的方法是【 C 】AClearBRemoveItemCAdditemDCls17 下列【 B 】語(yǔ)句可以讓T控件1秒中自動(dòng)激發(fā)10次Timer事件AT.Interval =50BT.Interval = 100CT.Interval =150DT.Interval =2001秒=1000毫秒18 下列【 A 】方法能完成窗體邏輯坐標(biāo)系統(tǒng)的設(shè)置A ScaleBSetFocusCShow DPaintPicture徒手寫(xiě)不用坐標(biāo)系統(tǒng)19 【 C 】屬性可以設(shè)置TextBox輸入文本的掩碼A MaxLengthBFontSizeCPasswordCharDMultiLineMaxLength 設(shè)置文本框，接納的最大文本數(shù)20 窗體第一個(gè)和最后一個(gè)發(fā)生的事件是【 A 】AInitialize和Terminate BTerminate和InitializeCLoad和UnloadDUnload和Load21 若要處理程序運(yùn)行過(guò)程中的錯(cuò)誤應(yīng)使用【 C 】語(yǔ)句先捕獲錯(cuò)誤 AOn Error GoTo 0BOn Error Resume Next COn Error GoTo 語(yǔ)句行號(hào)DResume Next捕獲的時(shí)候有三種情況：On Error GoTo 0：系統(tǒng)處理錯(cuò)誤的方法 On Error Resume Next ：忽略錯(cuò)誤 On Error GoTo 語(yǔ)句行號(hào) 正確的處理方式三種錯(cuò)誤：語(yǔ)法錯(cuò)誤，邏輯錯(cuò)誤，運(yùn)行錯(cuò)誤恢復(fù)錯(cuò)誤：Resume Next，Resume 行號(hào)，Resume 0（從錯(cuò)誤行開(kāi)始執(zhí)行）三 閱讀下面程序，寫(xiě)出單擊Command1后的程序運(yùn)行結(jié)果（10分）1. Private Sub Ch(ByVal a As Integer, ByRef b As Integer) Dim k As Integer k = a: a = b: b = kEnd SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = 10: y = 20 Ch x, y Print x, yEnd Sub （10 10）不能是（10,10）2. Private Sub Command1_Click()Dim x As Integer, y As Integerx = 91y = x Mod 10 * 10 + x 10Print y End Sub 乘的優(yōu)先級(jí)比mod高M(jìn)od是求余數(shù)答案是1003. Private Sub Command1_Click() Print av(3, 4, 6, 8, 10)End SubPublic Function av(ParamArray s() As Single Dim H As Integer Dim i As Variant Dim C As Integer For Each i In s H = H + i C = C + 1 Next i av = H / CEnd Function這個(gè)是求平均值 31/5=6.24. Public Function ABC(a As Single, Optional b = 5) As Integer If IsMissing(b) = True Then ABC = a * a Else ABC = a * b End IfEnd FunctionPrivate Sub Command1_Click() Print ABC(10, 2), ABC(3)End Sub答案是（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.5. Private Function ABC(A As Integer) Static K As Integer K = K + A ABC = KEnd FunctionPrivate Sub Command1_Click() Dim I As Integer, S As Integer For I = 1 To 5 S = S + ABC(I) Next Print SEnd Sub靜態(tài)局部變量可以保留上次函數(shù)調(diào)用的值。（35）1+1+2+1+2+3+1+2+3+4+1+2+3+4+5=35四 程序填空（30分）1. 下面函數(shù)的功能是隨機(jī)產(chǎn)生一個(gè)字母（大小寫(xiě)都可能），并返回該字母，閱讀并理解程序，填寫(xiě)缺失的代碼。Private Function zm() As String Randomize Dim k As Integer Do 【 k=int(rnd*58+65) 】這個(gè)的意思是要產(chǎn)生一個(gè)65到122的隨機(jī)數(shù) Loop【 until 】Not (k < 97 And k > 90) 這個(gè)的意思是大小寫(xiě)字母之間的其他如果是while, 就不要那個(gè)not 【 zm 】= Chr(k) End Function2. 有下面界面（圖1）用于學(xué)習(xí)標(biāo)兵的評(píng)選，選擇合適的人選后（必須選擇5人）按提交按鈕（Commadn1）把本次的選擇結(jié)果寫(xiě)到文件a.txt中（a.txt中將記錄所有的評(píng)選結(jié)果，如圖2所示）。程序控制人數(shù)的多選，但少選按提交按鈕時(shí)程序給予提示。當(dāng)一個(gè)選民提交選擇后，程序?qū)⑶宄羞x擇以備下一個(gè)選民選擇。請(qǐng)?zhí)顚?xiě)缺失的代碼圖1圖2Option ExplicitDim k As IntegerPrivate Sub C_Click(Index As Integer) If C(Index).Value = 1 Then 【 k=k+1 】 Else k = k - 1 End If If k > 5 Then【 C(Index).Value = 0 】End SubPrivate Sub Command1_Click()If k = 5 Then Dim s As String Dim i As Integer For i = 0 To C.UBound If 【 C(i).Value = 1 】Then s = s & C(i).Caption & " " End If Next i For i = 0 To C.UBound If C(i).Value = 1 Then C(i).Value = 0 End If Next i Open "d:a.txt" For 【 append 】As #1 這個(gè)是追加，output是會(huì)重寫(xiě)的 Print #1, s CloseElse MsgBox "人員選少了，請(qǐng)繼續(xù)選擇！", vbExclamationEnd IfEnd Sub3. 下面是繪圖程序，模仿系統(tǒng)附件中的“畫(huà)圖”程序（程序設(shè)計(jì)界面如圖3）。當(dāng)單擊t(0)后，按住鼠標(biāo)左鍵可以實(shí)現(xiàn)徒手寫(xiě)的功能；當(dāng)單擊t(1)后，按住鼠標(biāo)左鍵可以畫(huà)直線(xiàn)；當(dāng)單擊t(2)后，按住鼠標(biāo)左鍵可以擦除鼠標(biāo)移動(dòng)區(qū)域內(nèi)的圖形；當(dāng)單擊t(3)后，按住鼠標(biāo)左鍵可以畫(huà)圓，圓心為鼠標(biāo)移動(dòng)距離的中心點(diǎn)，半徑為該距離長(zhǎng)度的一半；如圖4所示。當(dāng)單擊保存按鈕（Command1）時(shí)，彈出對(duì)話(huà)框如圖5并保存繪制的圖形；單擊退出按鈕（Command2）時(shí)，卸載窗口，結(jié)束程序運(yùn)行。根據(jù)上述功能填寫(xiě)缺失代碼圖3圖4圖5根據(jù)程序的運(yùn)行特征可以判斷T數(shù)組中的控件是【 opptionbutton 】控件Option Explicit Dim ts As String Dim xx As Single, yy As SinglePrivate Sub Command1_Click() C.ShowSave SavePicture P.Image, 【 C.filename 】End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() P.AutoRedraw = True t(0).Value = True ts = "筆"End SubPrivate Sub P_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Select Case ts Case "筆" P.CurrentX = X P.CurrentY = Y Case "直線(xiàn)" 【 xx=X:yy=Y 】 Case "圓" xx = X: yy = Y Case "橡皮" P.Line (X - 40, Y - 40)-(X + 40, Y + 40), P.BackColor, BF End Select End IfEnd SubPrivate Sub P_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Select Case ts Case "筆" 【 P.pset (x,y) 】 Case "橡皮" P.Line (X - 40, Y - 40)-(X + 40, Y + 40), P.BackColor, BF End Select End IfEnd SubPrivate Sub P_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Select Case ts Case "直線(xiàn)" 【 P.line (xx,yy)-(x,y) 】 Case "圓" Dim xc As Single, yc As Single, r As Single xc = (xx + X) / 2 yc = (yy + Y) / 2 【 r 】 = Sqr(X - xx) 2 + (Y - yy) 2) / 2 【 P.circle (xc,yc), r 】 End Select End IfEnd SubPrivate Sub t_Click(I As Integer) 【 Case i 】 Case 0 ts = "筆" Case 1 ts = "直線(xiàn)" Case 2 ts = "橡皮" Case 3 ts = "圓" End SelectEnd Sub五 程序設(shè)計(jì)（10分）1. 編寫(xiě)一段代碼將D:a.exe文件拷貝到E盤(pán)，并改名為b.exe。（5分）Private Sub Command1_Click()Open “D:a.exe” For Binary as #1Open “E:b.exe” Binary as #2Dim i as longDim b as byteFor i=1To LOF(1)Get=1, ,bPut=2, ,bNextCloseMsgBox ”文件復(fù)制完成”，vbinformationEnd Sub2. 編寫(xiě)一個(gè)cal函數(shù)，該函數(shù)接受兩個(gè)數(shù)和一個(gè)運(yùn)算符，根據(jù)運(yùn)算符對(duì)兩個(gè)數(shù)進(jìn)行四則運(yùn)算，返回運(yùn)算結(jié)果。（5分）Function cal(x as single, s as string,y as single) as singleDim t as singleSelect Case sCase ”+”t=x+y Case “-” t=x-y Case “*”t=x*y Case “/” t=x/y End Select Cal=t End function注意：所有答案答在答題紙上，寫(xiě)在試卷上將不得分 考試完畢后，請(qǐng)將試卷和答題紙分開(kāi)上交VB程序設(shè)計(jì)考試試卷（A）答題紙?jiān)合?學(xué)號(hào) 姓名 得分 一判斷題（正確劃，錯(cuò)誤劃）（10分）題號(hào)12345678910答案二單項(xiàng)選擇填空題（共40分）題號(hào)12345678910答案題號(hào)11121314151617181920答案三閱讀下面程序，寫(xiě)出單擊Command1后的程序運(yùn)行結(jié)果（10分）題號(hào)答案題號(hào)答案1 4 2 5 3 四程序填空（30分）題號(hào)答案題號(hào)答案1 9 2 103 114 125 136 147 158 五程序設(shè)計(jì)（10分）（請(qǐng)寫(xiě)清題號(hào)）第17共17頁(yè)