南京工程學(xué)院vb題庫8套

1、南京工程學(xué)院vb題庫試卷編號(hào)：8954所屬語言：Visual Basic試卷方案：09-10-2程序設(shè)計(jì)基礎(chǔ)一 VB模擬試卷總分：100分共有題型：6種一、 判斷共5題（共計(jì)10分）第1題（2.0分）所有的VB的變量，都有隱含說明字符和強(qiáng)調(diào)聲明兩種方法來定義答案：N第2題（2.0分）框架控件和形狀控件都不能響應(yīng)用戶的鼠標(biāo)的單擊事件答案：丫第3題（2.0分）組合框兼有文本框和列表框兩者的功能，用戶可以通過鍵入文本或選擇列表中的項(xiàng)目來進(jìn)行選擇.答案：丫第4題（2.0分）移動(dòng)框架內(nèi)的控件時(shí)框架內(nèi)的控件也跟隨移動(dòng)，所以框架內(nèi)各控件的Left和Top屬性值也將分別隨之改變.答案：N第5題（2.0分）在框

2、架控件上放置的控件可以移動(dòng)到框架控件的外面答案：N二、 單項(xiàng)選擇共20題（共計(jì)40分）第1題（2.0分）如果沒有在列表框中選擇項(xiàng)目，且列表框的MultiSelect屬性值為默認(rèn)值（0None）,則執(zhí)行語名 Listl.RemoveltemListl.Listlndex 的結(jié)果是（）.A：刪除列表框的最后一項(xiàng)B:刪除列表框的第一項(xiàng)C:岀錯(cuò)D:刪除列表框中的最后添加的一項(xiàng)答案：C第2題（2.0分）如果將布爾常量值 TRUE賦值給一個(gè)整型變量，則整型變量的值為（）.A:0B:-1C:TrueD:FALSE答案：B第 3 題（2.0 分）若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容A:BackColorB:B

3、orderStyleC:ForeColorD:BackStyle,要進(jìn)行設(shè)置的屬性是（）答案：D第4題(2.0分)表達(dá)式 print Len(trim(“ abcd “)&123)A:9B:7C:abcdD:123的結(jié)果是答案：B第5題（2.0分）要使標(biāo)簽?zāi)芡笇绱绑w的背景A:BackStyle,必須設(shè)置（）屬性B:BorderStyleC:Appeara neeD:BackColor答案：A第6題（2.0分）以下正確的ForNext結(jié)構(gòu)是A:For x = 5 Step 10Next xB:For x=3 To -3 Step -3Next xC:For x=1 To 10start:Next

4、 xIf i=10 The n GoTo startD:For x=3 To 10 Step 3Next m答案：B第7題（2.0分）下面關(guān)于多重窗體的敘述中，正確的是A:作為啟動(dòng)對象的 Main子過程只能放在窗體模塊內(nèi),以后由該過程根據(jù),是其他控件的容器B:如果啟動(dòng)對象是 Main子過程，則程序啟動(dòng)時(shí)不加載任何窗體 不同情況決定是否加載及加載哪一個(gè)窗體C:沒有啟動(dòng)窗體，程序不能執(zhí)行D:以上都不對答案：A第8題（2.0分）在Visual Basic中最基本的對象是（），它是應(yīng)用程序的基石A:文本框B:命令按鈕C：窗體D:標(biāo)簽答案：C第9題（2.0分）以下敘述錯(cuò)誤的是：A:下拉式菜單和彈岀式菜單

5、都用菜單編輯器建立B:如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False,則菜單項(xiàng)不可見C：除分隔線外，所有菜單項(xiàng)都能接收Click事件D：內(nèi)縮符號(hào)由4個(gè)點(diǎn)組成，它表明菜單項(xiàng)所在的層次答案：B第10題 （2.0分）以下敘述中錯(cuò)誤的是（）.A:雙擊鼠標(biāo)可以觸發(fā) DblClick事件B:窗體或控件的事件的名稱可以由編程人員確定C:移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件D:控件的名稱可以由編程人員設(shè)定答案：B第 11 題（2.0 分）VB的編程機(jī)制是A:可視化B:面向?qū)ο驝:事件驅(qū)動(dòng)答案：C第12題 （2.0分）Cls方法可清除窗體或圖片框中的信息是A:Picture 屬性設(shè)置的背景圖案B:在設(shè)

6、計(jì)時(shí)放置的控件C:程序設(shè)計(jì)時(shí)產(chǎn)生的圖形和文字D:以上方法都對答案：C第13題 （2.0分）Print #1,STR1$ 中的 Print 是A:順序文件的寫語句B:在窗體上顯示的方法C：子程序名D:打印命令答案：A第14題（2.0分）下列不屬于代碼窗口的是（）.A:對象下拉式列表框B:過程下拉式列表框C:代碼框D:屬性列表框答案：D第15題(2.0分)的值是（）.().表達(dá)式 INT(8*SQR(36)*10*2)*10+0.5)/10A:0.48B:0.048C:.5D:.05答案：C第16題 （2.0分）如果要設(shè)置窗體的標(biāo)題欄，應(yīng)選擇以下那種屬性A:NameB:Captio nC:Tips

7、D:Text答案：B第17題（2.0分）要使一個(gè)標(biāo)簽透明且不具有邊框 ,則應(yīng)（）.A:將其 BackStyle屬性設(shè)置為0,BorderStyleB:將其 BackStyle屬性設(shè)置為0,BorderStyleC:將其BackStyle屬性設(shè)置為1,BorderStyle屬性設(shè)置為0屬性設(shè)置為1屬性設(shè)置為0D:將其BackStyle屬性設(shè)置為 1,BorderStyle屬性設(shè)置為1答案：B 第18題 （2.0分）若有數(shù)組說明語句為:Dim a（-3 to 8）, 則數(shù)組a包含元素的個(gè)數(shù)是（）.A:5B:8C:11D:12答案：D 第19題 （2.0分）可視化編程的最大優(yōu)點(diǎn)是（）.A:具有標(biāo)準(zhǔn)工

8、具箱B: 一個(gè)工程文件由若干個(gè)窗體文件組成C:不需要編寫大量代碼來描述圖形對象D:所見即所得答案：C第20題 （2.0分）將CommandDialog1通用對話框以打開對話框打開，可選以下（）方法.A:showope nB:showcolorC:showsaveD:showfo nt答案：A三、程序填空共1題（共計(jì)10分）第1題（10.0分）I【程序填空】功能：窗體中有若干控件，單擊其中的一個(gè)按扭cmdput時(shí)，執(zhí)行如下的事件過程，該過程的功能是把數(shù)據(jù)輸岀到指定的文件中I *SPACE*Private Type 【?】Number As Stri ngName As Stri ngEnd Ty

9、pePrivate Sub cmdput_click()Dim Title As Stri ngDim Str1 As Stri ngDim str2 As Str ingDim stu As Stude ntDim i As In tegerOpe n App.Path & stude nt.dat For Ran dom As #1 Len = Len (stu)Title =寫記錄到隨機(jī)文件“Str1$ =請輸入學(xué)生號(hào)“str2$ =請輸入學(xué)生名“For i = 1 To 5I *SPACE*【？】.Number = InputBox(Str1$, Title$)stu.Name = I

10、n putBox$(str2$, Title$)Put #1, i, stuNext iI *SPACE*Close 【？】End Sub答案：=(答案 1)= Stude nt=(答案 2)= stu=(答案 3)=#1四、程序改錯(cuò)共1題（共計(jì)10 分）第 1 題（10.0 分）【程序改錯(cuò)】題目產(chǎn)生30個(gè)小于100的成績隨機(jī)數(shù)，并統(tǒng)計(jì)岀優(yōu)、良 、中等、及格、不及格數(shù)的個(gè)數(shù)，并計(jì)算岀成績屬 于優(yōu)秀段的成績平均分。Opti on ExplicitPrivate Sub Form_Click()Dim k%, a%, bjg%, jg%, zd%, lh%, yx As In tegerDim p

11、jf As In tegerRan domizePjf = 0For k = 1 To 30I*FOUND*a = In t(R nd()Select Case aCase 0 To 59不及格bjg = bjg + 1Case 60 To 69jg = jg + 1 及格Case 70 To 79zd = zd + 1 中等Case 80 To 89lh = lh + 1 良好Case 90 To 100yx = yx + 1 優(yōu)秀I *FOUND*pjf = pjf + 1 End SelectNext kI*FOUND*If yx 0 The n pjf = pjf / 30Debug.

12、Print 不及格+ Str$(bjg) + + 人;Debug.Print 良好 “ + Str$(lh) + Debug.Pri nt 優(yōu)秀分?jǐn)?shù)段成績平均分人，及格+ Str$(jg) + 優(yōu)秀 “ + Str$(yx) + 人“& pjf人，中等 “ + Str$(zd)End Sub答案:=（答案 1）=a = lnt（ Rn d（） * 100）=或=a = lnt（ Rnd * 100）=（答案 2）=pjf = pjf + a=（答案 3）=If yx 0 The n pjf = pjf / yx五、程序設(shè)計(jì)共1題（共計(jì)20分）第1題（20.0分）【程序設(shè)計(jì)】 題目：（事件）單擊窗體。（ 響應(yīng)）已知s=1 + 1/3!+1/5!+1/7!+1/9!, 請將s結(jié)果值輸岀到窗體上。使用do while.loop語句完成程序答案：Dim i As In tegeri = 1p = 1Do While i = 9p = p * iIf i Mod 2 = 1 The ns = s + 1 / pEnd Ifi = i + 1LoopPri nt ssum=s六、VB窗體設(shè)計(jì)共1