VB程序設(shè)計(jì)試題

1、第 1 頁 共 7 頁一、選擇題（每題2 分，共 30 分）1. 在 vb環(huán)境中，工程文件的擴(kuò)展名是( c ) （a）.frm （b）.bas （c）.vbp （d）.frx 2. 下面 4 項(xiàng)中不屬于面向?qū)ο笙到y(tǒng)三要素的是( a ) （a）變量（b）事件（c）屬性（d）方法、/ 、mod 、*這 4 個(gè)算述運(yùn)算符中，優(yōu)先級(jí)別最低的是( c ) （a） （b）/ （c）mod （d）* 4. 要使 print方法在 form_load事件中起作用，要對(duì)窗體的( c )屬性進(jìn)行設(shè)置（a）backcolor （b）forecolor （c）autoredraw （d）caption 5. 不論何控

2、件，共同具有的屬性是( b ) （a）text （b）name （c）forecolor （d）caption 6. 要使 form1窗體的標(biāo)題欄顯示“歡迎使用vb ”，以下語句正確的是 ( d ) （a）form1.caption= “歡迎使用 vb ”（b）form1.caption= 歡迎使用 vb （c）form1.caption= 歡迎使用 vb （d）form1.caption= 歡迎使用 vb 7.vb 提供了結(jié)構(gòu)化程序設(shè)計(jì)的3 種基本結(jié)構(gòu)，這3 種基本結(jié)構(gòu)是 ( d )（a）遞歸結(jié)構(gòu)，選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)（b）選擇結(jié)構(gòu)，過程結(jié)構(gòu)，順序結(jié)構(gòu)（c）過程結(jié)構(gòu)，輸入、輸出結(jié)構(gòu)，轉(zhuǎn)向結(jié)構(gòu)（

3、d）選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，順序結(jié)構(gòu)8. 給變量賦值 a=123+mid( “123456”,3,2) ，a 變量中的值是 ( d ) （a）“12334”（b）123 （c）12334 （d）157 9. 下面 if語句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40 歲條件的人數(shù)，不正確的語句是 ( d ) （a）if sex=“男” and age40 and instr(duty,“教授” ) 0 then n=n+1 （b）if sex=“男”and age40 and (duty= “教授”or duty=“副教授” ) then n=n+1 （c）if sex=“男” and age

4、40 and right(duty,2)= “教授” then n=n+1 （d）if sex=“男” and age40 and duty=“教授” and duty=“副教授” then n=n+1 10. 若要清除列表框的所有內(nèi)容，可用來實(shí)現(xiàn)的方法是( c ) （a）removeitem （b）cls （c ）clear （d）以上均不可以11. 要使時(shí)鐘控件 timer1 的 timer 事件不起作用，以下正確的語句是( b ) （a）timer1.visible=false （b）timer1.enabled=false （a） timer1.interval=1000 （d）tim

5、er1.index=0 12. 引用列表框 (list1)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的語( b ) (a)list1.list(list1.listcount) (b)list1.list(list1.listcount-1) (c)list1.list(listcount) (d)list1.list(listcount-1) 13. 如下數(shù)組聲明語句，正確的是( b ) （a）dim a3,4as integer （b）dim a(3,4)as integer （c ）dim a(n,n) as integer （d）dim a(3,4)as integer 14. 下面子過程語句說明合法的是(

6、a、d ) （a）sub f1(byval n%) （b）sub f1(n%)as integer （c ）function f1%(f1%) （d）function f1(byval n%) 15. 假定有如下的命令按鈕 (名稱為 command1) 事件過程： private sub command1_click() x=inputbox( 輸入： ， 輸入整數(shù) ) msgbox 輸入的數(shù)據(jù)是：”，”輸入數(shù)據(jù)：+x end sub 程序運(yùn)行后， 單擊命令按鈕， 如果從鍵盤上輸入整數(shù)10，則以下敘述中錯(cuò)誤的是 ( a ) （a）x 的值是數(shù)值 10 （b）輸入對(duì)話框的標(biāo)題是“輸入整數(shù)”（c

7、） 信息框的標(biāo)題是“輸入數(shù)據(jù)： 10”（d） 信息框中顯示的是“輸入的數(shù)據(jù)是： ”二、填空題（每題2 分，共 20 分）1、當(dāng)進(jìn)入 vb集成環(huán)境后，發(fā)現(xiàn)沒有顯示“工具箱”窗口，應(yīng)選擇視圖菜單的工具箱選項(xiàng)，使“工具箱”窗口顯示。第 2 頁 共 7 頁2、vb是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，采用了事件驅(qū)動(dòng)編程機(jī)制。3、int(-5.5)、int(5.5)、fix(-5.5)、round(-5.5) 的值分別是 -6 、 5 、-5 、 -6 。4、表達(dá)式 ucase(mid( “abcdefgh”,3,4)的值是 cdef 。5、將文本框的 scrollbar的屬性設(shè)置為 2(有垂直滾動(dòng)條 ) ，但

8、沒有垂直滾動(dòng)條顯示，原因是沒有將 multline 屬性設(shè)置為 true。6、vb的注釋語句采用字符開頭，若一行上書寫多個(gè)語句，則各語句間用：字符分隔。7、列表框中項(xiàng)目的序號(hào)是從 0 開始的。8、列表框中的 list 和 selected 屬性是數(shù)組。9、 如 果 要 每 隔15 秒 產(chǎn) 生 一 個(gè) 計(jì) 時(shí) 器 事 件 ， 則interval屬 性 應(yīng) 設(shè) 置 為15000 。10、在 vb中，事件過程名由 sub 和 function 構(gòu)成。三、請(qǐng)完成下列的程序（共15 分）1、以下程序的功能是：生成20 個(gè) 200 到 300 之間的隨機(jī)整數(shù)，輸出其中能被5 整除的數(shù)并求出它們的和。請(qǐng)?zhí)羁?/p>

9、。 private sub commandl_c1ick() fori 1to 20 x int(_ rnd*101+200 _) if_ x mod 5=0 _ then print x ss十 x end if next i print sum ：s end sub (5分) 2、某次大獎(jiǎng)賽，有7 個(gè)評(píng)委打分，如下程序?qū)σ幻麉①愓?，輸? 個(gè)評(píng)委的打分分?jǐn)?shù)，去掉一個(gè)最高分和一個(gè)最低分后，求出平均分為該參賽者的得分。請(qǐng)?jiān)谙聞澗€處填入相應(yīng)的內(nèi)容。private sub command1_click() dim mark!,aver!i%,max1!min1! aver=0 for i=1 to

10、 7 mark=inputbox( “輸入第” &i&“位評(píng)委的打分” ) if i=1 then max1=mark: min1=mark else if mark min1 then min1=mark elseif markmax1 then max1=mark end if end if aver=aver+mark next i aver= print aver end sub 四、操作題 (第一題 15 分，第二小題 20 分，共計(jì) 35分) 提示：請(qǐng)同學(xué)們?cè)?e盤下面建立一個(gè)以自己的名字和學(xué)號(hào)命名的文件夾，然后將自己設(shè)計(jì)的窗體保存在這個(gè)文件夾下面即可，工程文件可以

11、不保存， 但窗體一定要保存1、斐波納契（fibonacci ）數(shù)列的第一項(xiàng)是 1. 第二項(xiàng)是 1，以后各項(xiàng)都是前兩項(xiàng)的和。試用遞歸算法編寫一個(gè)程序，求斐波納契數(shù)列第n項(xiàng)的值。（ 15分）2、設(shè)計(jì)一個(gè)窗體，在窗體中設(shè)置3 個(gè)標(biāo)簽、 1 個(gè)文本框、 2 個(gè)單選按鈕、 3 個(gè)復(fù)選按第 3 頁 共 7 頁鈕和兩個(gè)命令按鈕。在文本框中輸入某人的姓名，并在性別和愛好項(xiàng)目中進(jìn)行選擇，單擊“顯示資料”命令按鈕，將個(gè)人資料顯示出來；單擊“充填”按鈕，將文本內(nèi)容清楚，選項(xiàng)回復(fù)到初始狀態(tài)（20分）一、選擇題（每題2 分，共 30 分）1. 在 vb集成環(huán)境創(chuàng)建 vb應(yīng)用程序時(shí)，除了工具箱窗口、窗體窗口、屬性窗口外，

12、必不可少的窗口是 ( c ) （a）窗體布局窗口（b）立即窗口（c ）代碼窗口（d ）監(jiān)視窗口2表達(dá)式 16/4-25*8/4mod52 的值為 ( b ) （a）14 （b）4 （c ）20 （d ）2 3int(198.555*100+0.5)/100的值為 ( c ) （a）198 （b）199.6 （c ）198.56 （d ）200 4已知 a$= “12345678”，則表達(dá)式 val(left$(a $,4)+mid$(a $,4,2)的值為 ( b ) （a）123456 （b）123445 （c ）8 （d ）6 5表達(dá)式 datediff （“y”,#12/30/1999#

13、,#1/13/2000#）的結(jié)果是 ( c )注：一個(gè) y表示相隔天數(shù)，四個(gè)y表示相隔年數(shù)。（a）1 （b）11 （c ）14 （d ）99 6. 若要使命令按鈕不可操作，要設(shè)置的屬性是 ( a ) （a）enabled （b）visible （c）backcol （d）caption 7. 文本框所沒有的屬性是 ( d ) （a）enabled （b）visible （c ）backcolor （d）caption 8. 要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是 ( a ) （a）style 和 picture （b）style 和 icon （c）caption 和 picture

14、（d）value 和 icon 9. 下面正確的賦值語句是 ( c ) （a）x+y=30 （b）y=*r*r （c）y=x+30 （d ）3y=x 10. 下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確的是 ( d ) （a）max=iif(x y,x,y) （b）if xythen max=x else max=y （c ）max=x （d）if y=x then max=y if y x then max=y max=x 11. 以下關(guān)于 visual basic特點(diǎn)的敘述中，錯(cuò)誤的是( d) （a） visual basic是采用事件驅(qū)動(dòng)編程機(jī)制的語言（b） visual basic程序既可以編譯

15、運(yùn)行，也可以解釋運(yùn)行（c ） 構(gòu)成 visual basic程序的多個(gè)過程沒有固定的執(zhí)行順序（d ） visual basic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化程序的三種基本結(jié)構(gòu)12. 復(fù)選框的 value 屬性為 1 時(shí)，表示 ( b ) （a）復(fù)選框未被選中（b）復(fù)選框被選中（c ）復(fù)選框內(nèi)有灰色的勾（d）復(fù)選框操作有錯(cuò)誤13. 在下列關(guān)于鍵盤事件的說法中，正確的是 (d) （a）按下鍵盤上的任意一個(gè)鍵都會(huì)引發(fā)keypress 事件（b）大鍵盤上的“ 1”鍵和數(shù)字鍵盤的“ 1”鍵的 keycode碼相同（c ）keydown 和 keyup的事件過程中有 keyascii 參數(shù)（d ）大鍵盤

16、上的“ 4”鍵的上檔字符是“ $”，當(dāng)同時(shí)按下 shift和大鍵盤上的“ 4”鍵時(shí)14. 如果列表框 (list1)中沒有被選定的項(xiàng)目，則執(zhí)行l(wèi)ist1.removeitem list1.listindex 語句的結(jié)果是 ( a ) (a) 移去第一項(xiàng) (b)移去最后一項(xiàng)(c) 移去最后加入列表的一項(xiàng) (d)以上都不對(duì)15. 設(shè)有如下語句：dim a，b as integer c=visualbasic d=#7202005# 以下關(guān)于這段代碼的敘述中，錯(cuò)誤的是 ( a ) （a） a 被定義為 integer類型變量（b） b 被定義為 integer類型變量第 4 頁 共 7 頁（c）c

17、中的數(shù)據(jù)是字符串（d ）d 中的數(shù)據(jù)是日期類型二、填空題（每題2 分，共 20 分）1 在 vb中，要顯示程序代碼， 必須在代碼窗口；要設(shè)計(jì)程序的運(yùn)行界面，必須在窗體窗口。2整型變量 x 中存放了一個(gè)二位數(shù)，要將二位數(shù)交換位置，例如，13 變成 31，實(shí)現(xiàn)的表達(dá)式是 x10+(x mod 10)*10 3數(shù)學(xué)表達(dá)式 sin15 +-ln(3x)的 vb算術(shù)表達(dá)式為 sin(15/180*)+-exp(3*x) 。4表示 x 是 5 的倍數(shù)或是 9 的倍數(shù)的邏輯表達(dá)式為 x mod 5=0or x mod 9=0 。5在 vb中，123456& 、1.2346d+5這 2 個(gè)常數(shù)分別表示

18、 long 、 double 類型。6. 若已建立了 form1和 form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為 form1 。通過工程屬性菜單的啟動(dòng)對(duì)象命令的通用選項(xiàng)卡， 可將啟動(dòng)窗體設(shè)置為form2。在程序中若要顯示form1窗體，則執(zhí)行 show 語句。7. 文本框 (text1) 中有選定的文本，執(zhí)行text1.seltext=hello 的結(jié)果是hellotext1 8. 在程序運(yùn)行時(shí)，如果將框架的 enable 屬性設(shè)為 false ，則框架的標(biāo)題呈灰色，表示框架內(nèi)的所有對(duì)象均被屏蔽，不允許用戶對(duì)其進(jìn)行操作。9、聲明如下數(shù)組： dim a(3,-2 to 2,5)，則數(shù)組 a 包含的元素的個(gè)

19、數(shù)為 120 10. 賦值語句： a=123&mid( “123456”,3,2) 執(zhí)行后， a 變量中的值是“ 12334”三、請(qǐng)完成下列的程序（共15 分）1、窗體上有名稱分別為text1、text2 的 2 個(gè)文本框，要求文本框text1 中輸入的數(shù)據(jù)小于 500，文本框 text2 中輸入的數(shù)據(jù)小于1000，否則重新輸入。為了實(shí)現(xiàn)上述功能，請(qǐng)為下列程序編寫相應(yīng)的子過程。 private sub text1_lostfocus() call checkinput(text1，500) end sub private sub text2_lostfocus() call check

20、input(text2，1000) end sub sub checkinput(t as control， as integer ) if then end if end sub next i end sub (5分) 2、子過程 movestr() 是把字符數(shù)組移動(dòng)m個(gè)位置，當(dāng) tag為 true 時(shí)左移，將前 m個(gè)字符移到字符數(shù)組尾， 例如， “abcdefghij”左移 3 個(gè)位置后，結(jié)果為“defghijabc ”;當(dāng) tag為 false 時(shí)右移，將后 m個(gè)字符移到字符數(shù)組前，如“abcdefghij ”右移 3 個(gè)位置后，結(jié)果為“ hijabcdefg”。子過程如下：public

21、 sub movestr(a$(),m%,tag as boolean) dim i%,j%,t$ if tag then for i=1 to m t=a(0) for j=0 to ubound(a)-1 a(j)=a(j+1) next j a(ubound(a)=t next i else for i=1 to m t=a(ubound(a) for j=ubound(a) to 1 step -1 a(j)=a(j-1) next j a(0)=c 第 5 頁 共 7 頁next i end if end sub 請(qǐng)?jiān)诔绦蛑邢聞澗€處填入相應(yīng)的內(nèi)容。四、操作題 ( 第一題 15 分，第

22、二小題 20分，共計(jì) 35 分) 提示：請(qǐng)同學(xué)們?cè)?e盤下面建立一個(gè)以自己的名字和學(xué)號(hào)命名的文件夾，然后將自己設(shè)計(jì)的窗體保存在這個(gè)文件夾下面即可，工程文件可以不保存， 但窗體一定要保存1、編程實(shí)現(xiàn)打印以下圖案（15 分） * * * * * * * * * * * * * 2、統(tǒng)計(jì)學(xué)生成績(jī)?cè)O(shè)計(jì)如圖所示應(yīng)用程序，當(dāng)單擊“輸入成績(jī)”按鈕時(shí)，在inputbox對(duì)話框中輸入學(xué)生人數(shù)，然后在對(duì)話框中依次輸入不多于人數(shù)的數(shù)個(gè)成績(jī)。再次單擊“輸入成績(jī)”按鈕將追加學(xué)生人數(shù)和成績(jī)。單擊“顯示成績(jī)”按鈕顯示成績(jī)、平均分和未輸入成績(jī)的人數(shù)。（ 20 分）一、選擇題（每題2 分，共 30 分）1. 下面各種高級(jí)語言中

23、，不是面向?qū)ο蟪绦蛟O(shè)計(jì)語言的是(c) （a）visual basic （b）c+ （c）pascal （d）java 2函數(shù) dateadd(“m ”,1#1/30/2000#) 語句的結(jié)果是 ( a ) （a）00-2-29 （b）00-2-28 （c）00-2-30 （d ）00-1-31 3表達(dá)式 lenb(“123 程序設(shè)計(jì) abc ”) 的值是 (c) （a）10 （b）14 （c）20 （d ）17 4. 當(dāng)文本框的 scrollbars屬性設(shè)置了非零值，沒有效果，其原因是 ( b ) （a）文本框中沒有內(nèi)容（b）文本框的 multiline屬性為 false （c ）文本框的 m

24、ultiline屬性為 true （d）文本框中的 locked 屬性為 true 5. 若要禁止窗體被用戶移動(dòng)，通過設(shè)置可達(dá)此要求的窗體的屬性是 ( b) （a）maxbutton （b）moveable （c）move （d）controlbox 6. 下列語句中將按鈕 (command1) 的標(biāo)題賦值給文本框 (text1)text屬性的是 ( b ) (a)text1=command1 (b)text1=command1.caption (c)text1.text=command1 (d)text1.text=cstr(command1) 7. 語句 if x=1 then y=1,下

25、列說法正確的是 ( c ) （a）x=1和 y=1均為賦值語句（b）x=1和 y=1均為關(guān)系表達(dá)式（c ）x=1為關(guān)系表達(dá)式， y=1 為賦值語句（d ）x=1為賦值語句， y=1 為關(guān)系表達(dá)式8. 要獲得用戶在組合框輸入的內(nèi)容，應(yīng)利用的組合框的屬性是( d ) （a）list （b）selected （c ）listindex （d ）text 9. 將數(shù)據(jù)項(xiàng)“ china”添加到列表框（ list1 ）中成為第一項(xiàng)應(yīng)使用的語句是( a) (a)list1.additemchina,0 （b）list1.additemchina,1 (c)list1.additem 0, china（d）l

26、ist1.additem 1,china10. 在下列說法中，正確的是 (b ) (a) 通過適當(dāng)?shù)脑O(shè)置，可以在程序運(yùn)行期間，讓時(shí)鐘控件顯示在窗體上(b) 在列表框中不能進(jìn)行多項(xiàng)選擇(c) 在列表框中能夠?qū)㈨?xiàng)目按字母順序從大到小排列第 6 頁 共 7 頁(d) 框架也有 click和 dblclick事件11. 在 keydown 或 keyup的事件過程中，能用來檢查ctrl和 f3是否同時(shí)按下的表達(dá)式為 ( c ) (a)(button=vbctrlmask) and (keycode=vbkeyf3) (b)keycode=vbkeycontrol+vbkeyf3 (c)(keycode

27、=vbkeyf3) and (shift and vbctrlmask) (d)(shift and vbctrlmask) and (keycode and vbkeyf3) 12. 設(shè)有命令按鈕 command1 的單擊事件過程，代碼如下：private sub command1_click() dim a(30)as integer for i=1 to 30 a(i)=int(rnd*100) next for each arritem in a if arritem mod 7=0 then print arritem；if arritem90 then exit for next

28、end sub 對(duì)于該事件過程，以下敘述中錯(cuò)誤的是 ( b) a) a 數(shù)組中的數(shù)據(jù)是 30 個(gè) 100 以內(nèi)的整數(shù)b) 語句 for each arritem in a有語法錯(cuò)誤c) if arritem mod 7=0,語句的功能是輸出數(shù)組中能夠被7 整除的數(shù)d) if arritem90,語句的作用是當(dāng)數(shù)組元素的值大于90時(shí)退出 for 循環(huán)13. 要想從子過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語句說明合法的是 (c ) （a）sub f2(byval n%,byval m%) （b） sub f1(n%,byval m%) （c） sub f1(n%,m%) （d） sub f1(byva

29、l n%,m%) 14. 以下關(guān)于 msgbox 的敘述中，錯(cuò)誤的是(d )（a） msgbox 函數(shù)返回一個(gè)整數(shù)（b）通過 msgbox 函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型（c）msgbox 語句沒有返回值（d ） msgbox 函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)量15設(shè) x=4,y=8,z=7 ，表達(dá)式 xz) or zx 的值是 ( d )（a） 1 （b） -1 （c）true （d ） false二、填空題（每題2 分，共 20 分）1 在 vb中設(shè)置或修改一個(gè)對(duì)象的屬性的方法有兩種，它們分別是屬性窗口和 代碼窗口 。2 instr(7 ，“什么 asc

30、ii 是 ascii 編碼” ，“ascii”)的結(jié)果 9 ； instr( “什么 ascii 是 ascii 編碼”，“ ascii”)的結(jié)果 3 。3給變量 w賦值：w=choose(weekday( “2010,1,26 ”), “red ”,“green”, “blue”,“yellow ”) 后，變量 w中的值是星期二。4 將 alignment 屬性設(shè)置為 1， 單選按鈕和復(fù)選框的標(biāo)題顯示在左邊；將 style 屬性設(shè)置為 1，單選按鈕和復(fù)選框以圖形方式顯示。5. 在窗體上有若干控件，其中有一個(gè)名稱為text1 的文本框。影響 text1 的 tab順序的屬性是 tabindex 。6. 表達(dá)式 5/4*65 mod 2的值是。7為了使計(jì)時(shí)器控件timer1 每隔 0.5 秒觸發(fā)一次 timer 事件，應(yīng)將 timer1 控件的interval 屬性設(shè)置為 500 。8. rnd 函數(shù)的值的范圍為 0,1）。9. 為了給 x,