裝訂線

課程名稱：信息系統(tǒng)開發(fā)工具 卷： 考試形式：閉授課院(系)：管經(jīng)學(xué) 考試日期：2011年6月10日試卷共10—二三四得一、單項選擇（115123456789標(biāo)準(zhǔn)模塊的擴展名是VisualBasicD）TextBoxTextVisualBasicText1Text1以下語句中錯誤的 A）DimVar2='GOGOGO'B）ConstGoldLine=6.888C）Dim D）StaticVar4AsListBox，AddItemA）在列表框內(nèi)一行文本B）在列表框中多行文本D）VB制作打開文件的框時，必須在中添加的控件名稱為 A)CommonDialogControlB)CommonControlC)MultimediaControlD)PictureClipControl函數(shù)過程（Function）與子過程（Sub）的最大區(qū)別是（變量名名不能只考慮符合語設(shè)有數(shù)組定義語句：Dima(8)AsInteger，List1B)a(8)=inputbox("inputdata")PrivateSubCommand1_Click()TAA3EndSubTAA(aAsInteger)StaticxAsIntegerx=x*a+1PrintEndCommand1，A)58B)4C)74D)48BonusX=Int(Rnd()+6)SelectCaseBonusXCasePrint"excellent"Case5Print"good"Case4Print"pass"CaseElsePrint"fail"EndSelect二、判斷（140123456789在使用菜單編輯器編輯菜單時，菜單中用以分組的分割線（-）Name調(diào)用通用框控件的ShowOpen方法后返回的FileName屬性值是包括文KeyPress事件過程中，將鍵盤輸入的"A"和"a"Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4個參數(shù)其中Button參數(shù)用來判斷是否按下了鍵盤上的某一個ActiveForm.Activecontrol只可用于MDI窗體與SDI窗體之間，不能用于VBVB中繪制控件對象，如果采用粘貼的方法創(chuàng)建新控件，則生成控件數(shù)組nInputBox("Dima(1Ton)AsInteger13．RichTextBox控件保存文本時，加上rtfText參數(shù)，可以保存成帶不帶格 Open"TEST.DAT"ForRandomAs#1，是順序文件的操作語Combo和List控件的所有屬性既能在設(shè)計時賦值，也能在程序運行中供賦 VB6.04DataADODCRichTextBoxVB6.0ActiveXFormDebug.PrintFormName在程序運行時，ImagelistKeyPressMsgBoxDragMode1Drag可以按任意順序順序文件中的數(shù)SetfocusTextBoxTextBoxVB中的事件可以由用戶，也可以由系統(tǒng)在使用菜單編輯器編輯菜單時，表示菜單標(biāo)題熱鍵的符號為VB一個.ocxActiveX在設(shè)置好Data）語句，可以實現(xiàn)對記錄中字段值的enterKeyasciiKeycodeVBEnd三、算法程序（1020PrivateSubcmdOpen_Click()txtNoteEdit.Text=""OpenCommonDialog1.FileNameForOutputAs#1DoWhileNotEOF(1)LineInput#1,txtNoteEdit.Text=txtNoteEdit.Text+inputdata+Chr(13)+End①請說碼的功能（6分②請代碼中的兩處主要錯誤之處（4分Subbirsearch(a(),ByVallow%,ByValhigh%,ByValkey,DimmidAsmid=(low+high)\2Ifa(mid)=keyThenindex=midExitSubElseIflow>highThenindex=-1ExitSubEndIfIfkey<a(mid)Thenhigh=mid-1low=mid+1EndIfCallbirsearch(a,low,high,key,EndPrivateSubDimb()Asb=Array(5,13,19,21,37,56,64,75,80,88,Callbirsearch(b,LBound(b),UBound(b),21,n%)Print“n=”&nEnd①請說碼中函數(shù)的功能與思路（8分②代碼輸出結(jié)果為（2分四、數(shù)據(jù)庫程序（25 代碼段1：PrivateSubForm_Load()mpath=App.PathIfRight(mpath,1)<>"\"Thenmpath=mpath+Data1.DatabaseName=mpath+"student.mdb"EndSub代碼段PrivateSub IfCmdAdd.CaptionThenCmdAdd.Caption EndIfEndSub

CmdAdd.Caption 代碼段PrivateSub ③End代碼段PrivateSub DimmzyAsmzy=InputBox$("請輸入專業(yè)","查找窗")Data1.RecordSource= ⑤EndIfEndSub代碼段PrivateSubData1_Validate(ActionAsInteger,SaveAsIntege