實用文檔南京工程學院 vb題庫。。。。試卷編號： 8954所屬語言： VisualBasic試卷方案： 09-10-2《程序設計基礎— VB》模擬試卷總分： 100分共有題型： 6種一、判斷 共5題（共計 10分）第1題（2.0分）所有的VB的變量,都有隱含說明字符和強調聲明兩種方法來定義 .答案：N第2題（2.0分）框架控件和形狀控件都不能響應用戶的鼠標的單擊事件 .答案：Y第3題（2.0分）組合框兼有文本框和列表框兩者的功能 ,用戶可以通過鍵入文本或選擇列表中的項目來進行選擇 .答案：Y第4題（2.0分）移動框架內的控件時框架內的控件也跟隨移動 ,所以框架內各控件的Left 和Top屬性值也將分別隨之改變 .答案：N第5題（2.0分）在框架控件上放置的控件可以移動到框架控件的外面 .答案：N二、單項選擇 共20題 （共計40分）第1題（2.0分）文案大全實用文檔如果沒有在列表框中選擇項目 ,且列表框的 MultiSelect 屬性值為默認值(0~None),則執行語名的結果是().刪除列表框的最后一項刪除列表框的第一項出錯刪除列表框中的最后添加的一項答案：C第2題（2.0分）如果將布爾常量值 TRUE賦值給一個整型變量 ,則整型變量的值為 ().A:0B:-1C:TrueD:FALSE答案：B第3題（2.0分）若要使標簽控件顯示時不覆蓋其背景內容 ,要進行設置的屬性是 ().A:BackColorB:BorderStyleC:ForeColorD:BackStyle答案：D第4題（2.0分）表達式printLen(trim("abcd")&"123") 的結果是A:9B:7C:abcdD:123答案：B第5題（2.0分）要使標簽能透出窗體的背景 ,必須設置()屬性.A:BackStyle文案大全實用文檔B:BorderStyleC:AppearanceD:BackColor答案：A第6題（2.0分）以下正確的For?Next結構是A:Forx=5Step10?NextxB:Forx=3To-3Step-3?NextxC:Forx=1To10start: ?NextxIfi=10ThenGoTostartD:Forx=3To10Step3?Nextm答案：B第7題（2.0分）下面關于多重窗體的敘述中 ,正確的是作為啟動對象的Main子過程只能放在窗體模塊內B:如果啟動對象是Main子過程,則程序啟動時不加載任何窗體,以后由該過程根據不同情況決定是否加載及加載哪一個窗體沒有啟動窗體,程序不能執行以上都不對答案：A第8題（2.0分）在VisualBasic 中最基本的對象是 (), 它是應用程序的基石 ,是其他控件的容器 .文本框文案大全實用文檔命令按鈕窗體標簽答案：C第9題（2.0分）以下敘述錯誤的是:A:下拉式菜單和彈出式菜單都用菜單編輯器建立如果把一個菜單項的Enabled屬性設置為False,則菜單項不可見除分隔線外,所有菜單項都能接收Click事件內縮符號由4個點組成,它表明菜單項所在的層次答案：B第10題（2.0分）以下敘述中錯誤的是().雙擊鼠標可以觸發DblClick事件窗體或控件的事件的名稱可以由編程人員確定移動鼠標時,會觸發MouseMove事件控件的名稱可以由編程人員設定答案：B第11題（2.0分）VB的編程機制是可視化面向對象事件驅動答案：C第12題 （2.0分）Cls方法可清除窗體或圖片框中的信息是 .A:Picture 屬性設置的背景圖案B:在設計時放置的控件C:程序設計時產生的圖形和文字D:以上方法都對文案大全實用文檔答案：C第13題（2.0分）Print#1,STR1$ 中的Print 是______.順序文件的寫語句在窗體上顯示的方法子程序名打印命令答案：A第14題（2.0分）下列不屬于代碼窗口的是 ().對象下拉式列表框過程下拉式列表框代碼框屬性列表框答案：D第15題（2.0分）表達式INT(8*SQR(36)*10^(-2)*10+0.5)/10 的值是().A:0.48B:0.048C:.5D:.05答案：C第16題（2.0分）如果要設置窗體的標題欄 ,應選擇以下那種屬性 ().A:NameB:CaptionC:TipsD:Text答案：B第17題（2.0分）要使一個標簽透明且不具有邊框,則應().文案大全實用文檔A:將其BackStyle屬性設置為0,BorderStyle屬性設置為0B:將其BackStyle屬性設置為0,BorderStyle屬性設置為1C:將其BackStyle屬性設置為1,BorderStyle屬性設置為0D:將其BackStyle屬性設置為1,BorderStyle屬性設置為1答案：B第18題（2.0分）若有數組說明語句為 :Dima(-3to8), 則數組a包含元素的個數是 ().A:5B:8C:11D:12答案：D第19題（2.0分）可視化編程的最大優點是().具有標準工具箱一個工程文件由若干個窗體文件組成不需要編寫大量代碼來描述圖形對象所見即所得答案：C第20題（2.0分）將CommandDialog1通用對話框以打開對話框打開 ,可選以下()方法.A:showopenB:showcolorC:showsaveD:showfont答案：A三、程序填空共1題（共計10分）第1題（10.0分）'-------------------------------------------------------'【程序填空】'-------------------------------------------------------文案大全實用文檔'功能：窗體中有若干控件，單擊其中的一個按扭 cmdput時，' 執行如下的事件過程，該過程的功能是把數據輸出到指定的文件中 .'-------------------------------------------------------'**********SPACE**********PrivateType 【?】NumberAsStringNameAsStringEndTypePrivateSubcmdput_click()DimTitleAsStringDimStr1AsStringDimstr2AsStringDimstu AsStudentDimiAsIntegerOpenApp.Path&"\student.dat"ForRandomAs#1Len=Len(stu)Title=" 寫記錄到隨機文件 "Str1$=" 請輸入學生號 "str2$=" 請輸入學生名 "Fori=1To5'**********SPACE**********?】.Number=InputBox(Str1$,Title$)stu.Name=InputBox$(str2$,Title$)Put#1,i,stuNexti'**********SPACE**********Close 【?】EndSub答案：=======(答案1)=======Student=======(答案2)=======stu=======(答案3)=======#1四、程序改錯 共1題（共計 10分）文案大全實用文檔第1題（10.0分）'------------------------------------------------【程序改錯】'------------------------------------------------'題目：產生 30個小于100的成績隨機數，并統計出優、良、中等、及格、不及格數的個數，并計算出成績屬于優秀段的成績平均分。'------------------------------------------------OptionExplicitPrivateSubForm_Click()Dimk%,a%,bjg%,jg%,zd%,lh%,yxAsIntegerDimpjfAsIntegerRandomizepjf=0Fork=1To30'**********FOUND**********a=Int(Rnd())SelectCaseaCase0To59bjg=bjg+1' 不及格Case60To69jg=jg+1' 及格Case70To79zd=zd+1' 中等Case80To89lh=lh+1' 良好Case90To100yx=yx+1' 優秀'**********FOUND**********pjf=pjf+1EndSelectNextk'**********FOUND**********Ifyx>0Thenpjf=pjf/30Debug.Print" 不及格"+Str$(bjg)+" 人，及格"+Str$(jg)+" 人，中等"+Str$(zd)+"人";Debug.Print" 良好"+Str$(lh)+" 優秀"+Str$(yx)+" 人"Debug.Print" 優秀分數段成績平均分 "&pjfEndSub答案：文案大全實用文檔=======(答案1)=======a=Int(Rnd()*100)=========或=========a=Int(Rnd*100)=======(答案2)=======pjf=pjf+a=======(答案3)=======Ifyx>0Thenpjf=pjf/yx五、程序設計共1題（共計20分）第1題（20.0分）'-------------------------------------------------'【程序設計】'-------------------------------------------------題目：(事件)單擊窗體。' ( 響應)已知s=1+1/3!+1/5!+1/7!+1/9!, 請將s結果值' 輸出到窗體上。使用 dowhile...loop 語句完成程序'-------------------------------------------------答案：----------------------DimiAsIntegeri=1p=1DoWhilei<=9p=p*iIfiMod2=1Thens=s+1/pEndIfi=i+1LoopPrintssum=s----------------------六、VB窗體設計 共1題（共計10分）第1題（10.0分）------------------------------------------------【窗體設計】文案大全實用文檔-----------------------------