中國地質大學（北京）研究生試卷（A）2017秋季學期第PAGE2共8頁課程號：SG04002《VB程序設計》考試試卷（A）考試形式：閉卷考試考試時間：120分鐘所有答案答在答題紙上院系學號姓名得分題號一二三四五總分一．判斷題（正確劃√，錯誤劃×）（10分）方法的實質是程序代碼模塊？MDI和SDI窗體支持相同的事件和方法×程序運行中通過代碼改變單選按鈕的Value值是不會觸發該控件的單擊事件的？若某子窗體擁有菜單，程序運行時一旦它獲取焦點就會自動覆蓋父窗口的菜單？利用通用對話框控件可以直接完成圖形文件的保存或打開操作，無法直接完成文本文件的保存或打開操作？由一個父窗口和多個子窗口構成的應用程序，關閉父窗口就可以終止程序運行√若窗口的Enabled屬性為False，其上的控件也不再響應鼠標事件了。√控件數組中的元素可以由不同類型的控件構成×Me.ForeColor=vbWhite與Me.ForeColor=RGB(0,0,0)等價×（黑色）AutoRedraw屬性是窗體獨有的屬性×（圖片框也有）二．單項選擇填空題（共40分）按Delete鍵在TextBox控件中刪除文本時下列那個事件不會觸發【】A．Change（改變內容） B．KeyDown C．KeyUp D．KeyPress（可顯示字符鍵事件）下列控件中有Text屬性的是【】A．滾動條 B．Image C．組合框 D．Frame下列控件中無value屬性的是【】A．CheckBox B．OptionButton C．ScrollBar D．ListBox下列控件中無Caption屬性的是【】A．Label B．Frame C．CommandButton D．Timer對于一個正常顯示的窗口來說下列【】事件是最后發生的A．Unload 卸載窗體 B．QueryUnload 卸載前調用 CTerminate 強行退出 D。LostFocus 失焦觸發下面【】方法可以直接使組合框控件具有輸入焦點A．SetFocus B．RemoveItem刪除一項 C．Refresh強制全部重繪 D．AddItem添加一項在列表框L中刪除第二條列表條目的值應使用【】語句A．L.RemoveItem2 B．L.RemoveItem C． L.RemoveItem1 D．L.RemoveItem0下列【】語句可以完成隨機文件的寫操作A．Put B．Write C．Get （讀） D．Print若要處理程序運行過程中的錯誤應使用【】語句先捕獲錯誤A．OnErrorGoTo0 關閉 B．OnErrorResumeNextC．OnErrorGoTo語句行號 ？ D．ResumeNext？在VB中保存一個圖形、圖像文件應使用【】。A．Picture Save B．SavePicture C．LoadPicture D．PictureLoadTimer控件的【】屬性不為0時可以激發Timer事件A．Enabled B．Interval C．Visible D．Tag一個控件可以正常接收和處理事件必須保證Visible和【】屬性同時為真A．Enabled B．Focus C．Moveable D．AppearanceCircle語句不能繪制【】圓橢圓圓弧A．扇 B．弧 C．橢圓 D．圓角正方形-？若要隱藏某窗體應使用【】A．me.Hide ？vbHide？ B．Me.Appearance=False C．Me.BorderStyle=None D．Me.WindowState=0若要使窗體先于其上控件獲取鍵盤輸入，應將窗體的【】設置為TrueA．AutoRedraw B．MDIChild C．AutoSize D．KeyPreview（優先激活）應使用【】屬性為文本框設置掩碼A．PasswordChar B．MultiLine（顯示多行） C．MaxLength D．Font設置【】屬性可使文本框接收多行文字A．ScrollBars B．MultiLine C．MaxLength D．Width【】屬性標記列表框中列表條目的數目A．SelCount 所選項目 B．ListCount C．Count D．List下列【】屬性不是只讀屬性A．SelCount B．ListCount C．CurrentX D．AddItem若要使SDI窗體成為子窗體，應將窗體的【】屬性設置為TrueA．BorderStyle B．MDIChild C．Appearance D．Moveable三．閱讀下面程序，寫出單擊Command1后的程序運行結果（10分）Functions(ParamArraya())AsIntegerDimcAsInteger,mAsIntegerDimvAsVariantForEachvInam=m+vc=c+1Nexts=cEndFunctionPrivateSubCommand1_Click()Prints(10,20,30)EndSubPrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=20:n=10Cm,nPrintm,nEndSubSubC(aAsInteger,ByValbAsInteger)DimxAsInteger,yAsIntegerx=a:y=ba=x+y:b=x-yEndSubFunctionC(aAsInteger)StaticxAsIntegerx=x-aC=xEndFunctionPrivateSubCommand1_Click()DimmAsIntegerm=C(1)+C(2)PrintmEndSubPrivateSubCommand1_Click()PrintUCase("Bj")+LCase("Ge")EndSubPrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=123Don=n+mMod10m=m/10Ifm<>0Thenn=n*10ElseExitDoEndIfLoopWhileTruePrintnEndSub四．程序填空（30分）下面程序是一個打字練習的小游戲。當用戶單擊開始按鈕（Command1）后，將隨機產生一個字母（大小寫都可能出現）并顯示在標簽L中。隨后標簽以每200毫秒移動100緹的方式從窗口的頂部向下移動。下落過程中若用戶敲擊鍵盤的字母與標簽中的一致，則產生一個新字母，標簽重新從窗口的頂部落下；若標簽下落到窗口底部前，用戶輸入的字母與標簽中的不符，則在判定標簽已移出窗口后同樣產生一個新字母，標簽重新從窗口的頂部落下。請按要求填寫程序缺失的代碼，實現上述功能。（窗體的相關屬性均已在屬性窗口中設定，Timer1控件的屬性保持著初始狀態。）Subzimu()RandomizeDimiAsIntegerDoi=【 （1）】LoopWhilei>90Andi<97L.Caption=Chr(i)L.Left=Rnd*(Me.ScaleWidth-L.Width)L.Top=0EndSubPrivateSubCommand1_Click()zimuL.Visible=TrueTimer1.【 （2）】EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)IfL.Caption=【 （3）】ThenzimuEndIfEndSubPrivateSubTimer1_Timer()L.Top=L.Top+100IfL.Top>=Me.ScaleHeightThen【 （4）】EndIfEndSub一程序運行后單擊命令按鈕Command1，會將一些數據寫入文本文件abc.txt。文件內容如下圖。請根據文件的內容填寫程序缺失的代碼。PrivateSubCommand1_Click()DimiAsInteger,jAsInteger【 （5）】Fori=1To9For【 （6）】【 （7）】NextjPrint#1,Chr(13)Nexti【 （8）】EndSub某程序運行后單擊命令按鈕Command1將在窗口中描繪一狀如蜷曲的絲帶的圖形，如下圖所示。其實該圖并不復雜，它只是將的sin曲線和的cos曲線上對應各點從左至右連接起來形成的。繪圖時，窗體橫向劃分了14個單位，縱向劃分了8個單位且窗體左上角在新坐標系中的坐標為（-4,3）請仔細閱讀程序，填寫程序缺失的代碼。 PrivateSubCommand1_Click()Dimx1AsSingle,y1AsSingleDimx2AsSingle,y2AsSingleConstpai=3.14【 （9）】Forx1=-paiTopai*2Step0.03y1=Sin(x1)x2=x1+pai【 （10）】【 （11）】NextEndSub下圖所示為一登錄界面，用戶首先須選擇登錄身份：學生（user（0））或教師（user（1）），然后在文本框（T）中輸入密碼（學生密碼是："student"，教師密碼是："teacher"）；當單擊“登錄”按鈕（Command4）時，將按不同的身份核對密碼。若學生身份登錄且密碼正確將進入學生操作界面（Form1），同時卸載登錄窗口；若教師身份登錄且密碼正確將進入教師操作界面（Form2），同時卸載登錄窗口。若用戶單擊“取消”按鈕（Command3）放棄登錄將退出系統，終止程序運行。請仔細閱讀程序，填寫程序缺失的代碼。PrivateSubCommand3_Click()【 （12）】EndSubPrivateSubCommand4_Click()DimsAsString,iAsIntegerFori=0To1Ifuser(i).Value=TrueThen【 （13）】EndIfNextSelectCasesCase"學生"IfT.Text="student"Then【 （14）】UnloadMeElseMsgBox"密碼錯誤",vbInformationEndIfCase"教師"IfT.Text="teacher"ThenForm2.Show【 （15）