9月計(jì)算機(jī)二級(jí)VB模擬試題(4)及答案

1、姓名：_ 班級(jí)：_ 學(xué)號(hào)：_-密-封 -線- 9月計(jì)算機(jī)二級(jí)vb模擬試題(4)及答案考試時(shí)間：120分鐘 考試總分：100分題號(hào)一二三四五總分分?jǐn)?shù)遵守考場(chǎng)紀(jì)律，維護(hù)知識(shí)尊嚴(yán)，杜絕違紀(jì)行為，確?？荚嚱Y(jié)果公正。一 、選擇題(1) 在窗體上畫一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過程：private sub command1_click() move 500,500end sub程序運(yùn)行后，單擊命令按鈕，執(zhí)行的操作為a) 命令按鈕移動(dòng)到距窗體左邊界、上邊界各500的位置b) 窗體移動(dòng)到距屏幕左邊界、上邊界各500的位置c) 命令按鈕向左、上方向各移動(dòng)500d) 窗體向左、上方向各移動(dòng)

2、500正確答案: b(2) 在窗體上有若干控件，其中有一個(gè)名稱為text1的文本框。影響text1的tab順序的屬性是a) tabstopb) enabledc) visibled) tabindex正確答案: d(3) 以下定義數(shù)組或給數(shù)組元素賦值的語句中，正確的是a)dim a as variant a=array(1,2,3,4,5)b)dim a(10) as integer a=array(1,2,3,4,5) c)dim a%(10) a(1) =“abcde”d)dim a(3) ,b(3) as integer a(0) =0 a(1) =1 a(2) =2 b=a正確答案:

3、a(4) 在窗體上畫一個(gè)名稱為list1的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語句為a) for i=0 to list1.listcount-1 nextb) for i=0 to list1.count-1 nextc)for i=1 to list.listcount nextd)for i=1 to list1.count next正確答案: a(5) 以下case語句中錯(cuò)誤的是a) case 0 to 10b) case is10c) case is10 and is50d) case 3, 5, is10正確答案: c(6) 以下關(guān)于圖片框控件的說法中，錯(cuò)誤的

4、是a) 可以通過print方法在圖片框中輸出文本b) 清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形c) 圖片框控件可以作為容器使用d) 用stretch屬性可以自動(dòng)調(diào)整圖片框中圖形的大小正確答案: d(7) 執(zhí)行語句s=len(mid(“visualbasic”,1,6) ) 后，s的值是a) visualb) basicc) 6d) 11正確答案: c(8) 以下敘述中錯(cuò)誤的是a) 下拉式菜單和彈出式菜單都用菜單編輯器建立b) 在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng)c) 除分隔線外，所有菜單項(xiàng)都能接收click事件d) 如果把一個(gè)菜單項(xiàng)的enabled屬性設(shè)置為false，則該菜

5、單項(xiàng)不可見正確答案: d(9) 在窗體上畫一個(gè)命令按鈕，其名稱為command1,然后編寫如下事件過程：private sub command1_click() a=12345 print format(a,”000.00”) end sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是a) 123.45b) 12345.00c) 12345d) 00123.45正確答案: b(10) 以下敘述中錯(cuò)誤的是a) 一個(gè)工程可以包括多種類型的文件b) visual basic應(yīng)用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行c) 程序運(yùn)行后，在內(nèi)存中只能駐留一個(gè)窗體d) 對(duì)于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)

6、行順序可以不一樣正確答案: c希望與更多計(jì)算機(jī)等級(jí)考試的友交流，. (11) 以下關(guān)于函數(shù)過程的敘述中，正確的是a) 函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系b) 在函數(shù)過程中，過程的返回值可以有多個(gè)c)la) width和heightb) width或heightc) top和leftd) top或left正確答案: c(14) 在窗體上畫一個(gè)名稱為text1的文本框和一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過程：private sub command1_click() text1.text=“visual” me.text1=“basic” text1=“program”

7、end sub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的是a) visualb) basicc) programd) 出錯(cuò)正確答案: c(15) 以下關(guān)系表達(dá)式中，其值為false的是a) “abc”“abc”b) “the”“they”c) “visual”=ucase(“visual”)d) “integer”“int”正確答案: a(16) 語句print 5/4*65 mod 2的輸出結(jié)果是a) 0b) 1c) 2d) 3正確答案: b(17) 在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為text1、label1和command1,然后編寫如下兩個(gè)事件過程：priv

8、ate sub command1_click() strtext=inputbox(“請(qǐng)輸入”) text1.text=strtextend subprivate sub text1_change() label1.caption=right(trim(text1.text) ,3) end sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入abcdef,則在標(biāo)簽中顯示的內(nèi)容是a) 空b) abcdefc) abcd) def正確答案: d(18) 在窗體上畫一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過程：private sub command1_click() x=-5 if

9、 sgn(x) then y=sgn(x2) else y=sgn(x) end if print yend sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是a) -5b) 25c) 1d) -1正確答案: c(19) 一個(gè)工程中含有窗體form1、form2和標(biāo)準(zhǔn)模塊model1,如果在form1中有語句public x as integer,在model1中有語句public y as integer。則以下敘述中正確的是a) 變量x、y的作用域相同b) y的作用域是model1c) 在form1中可以直接使用xd) 在form2中可以直接使用x和y正確答案: c(20) 在窗體上畫一個(gè)名稱

10、為drive1的驅(qū)動(dòng)器列表框，一個(gè)名稱為dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動(dòng)器時(shí)，目錄列表框應(yīng)該與之同步改變。設(shè)置兩個(gè)控件同步的命令放在一個(gè)事件過程中，這個(gè)事件過程是a) drive1_changeb) drive1_clickc) dir1_clickd) dir1_change正確答案: a希望與更多計(jì)算機(jī)等級(jí)考試的友交流，. (21) 在窗體上畫一個(gè)命令按鈕(其name屬性為command1) ，然后編寫如下代碼：option base 1 private sub command1_click() dim a s=0 a=array(1,2,3,4) ; j=1 for i=4 to 1

11、 step-1 s=s+a(i) *j j=j*10 next i print send sub運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是a) 4321b) 1234c) 34d) 12正確答案: b(22) 在窗體上畫一個(gè)名稱為text1的文本框，要求文本框只能接收大寫字母的輸入。以下能實(shí)現(xiàn)該操作的事件過程是a) private sub text1_keypress(keyascii as integer) if keyascii65 or keyascii90 then msgbox”請(qǐng)輸入大寫字母” keyascii=0 end ifend subb) private sub text1

12、_keydown(keycode as integer, shift as integer) if keycode65 or keycode90 then msgbox”請(qǐng)輸入大寫字母” keycode=0 end ifend subc) private sub text1_mousedown(button as integer,_ shift as integer, x as single, y as single) if asc(text1.text) 65 or asc(text1.text) 90 then msgbox”請(qǐng)輸入大寫字母” end ifend subd) private

13、 sub text1_change() if asc(text1.text) 64 and asc(text1.text) 91 then msgbox”請(qǐng)輸入大寫字母” end ifend sub正確答案: a(23) 假定在窗體(名稱為form1) 的代碼窗口中定義如下記錄類型：private type animal animalname as string *20 acolor as string *10end type在窗體上畫一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過程：private sub command1_click() dim rec as animal ope

14、n “c:vbtest.dat”for random as #1 len=len(rec) rec.animalname=“cat” rec.acolor=“white” put #1,rec close #1end sub則以下敘述中正確的是a) 記錄類型animal不能在form1中定義，必須在標(biāo)準(zhǔn)模塊中定義b) 如果文件c:vbtest.dat不存在，則open命令執(zhí)行失敗c) 由于put命令中沒有指明記錄號(hào)，因此每次都把記錄寫在文件的末尾d) 語句”put #1,rec”將animal類型的兩個(gè)數(shù)據(jù)元素寫到文件中正確答案: d(24) 在窗體上畫一個(gè)名稱為text1的文本框，一個(gè)名稱為

15、command1的命令按鈕，然后編寫如下事件過程和通用過程：private sub command1_click() n=val(text1.text) if n2=n/2 then f=f1(n) else f=f2(n) end if print f;nend subpublic function f1(byref x) x=x*x f1=x+xend functionpublic function f2(byval x) x=x*x f2=x+x+xend function程序運(yùn)行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是a) 72 36b) 108 36c) 72 6d)

16、108 6正確答案: a(25) 在窗體上畫一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過程：private sub command1_click() c=1234 c1=trim(str(c) ) for i=1 to 4 print nextend sub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在下劃線處應(yīng)填入的內(nèi)容為a) right(c1,i)b) left(c1,i) c) mid(c1,i,1)d) mid(c1,i,i) 正確答案: b(26) 在窗體上畫一個(gè)名稱為command1的命令按鈕和一個(gè)名稱為text1的文本框，然后編寫如下事件

17、過程：private sub command1_click() n=val(text1.text) for i=2 to n for j=2 to sqr(i) if i mod j=0 then exit for next j if jsqr(i) then print i next iend sub該事件過程的功能是a) 輸出n 以內(nèi)的奇數(shù)b) 輸出n 以內(nèi)的偶數(shù)c) 輸出n 以內(nèi)的素?cái)?shù)d) 輸出n以內(nèi)能被j整除的數(shù)正確答案: c(27) 以下描述中正確的是a) 標(biāo)準(zhǔn)模塊中的任何過程都可以在整個(gè)工程范圍內(nèi)被調(diào)用b) 在一個(gè)窗體模塊中可以調(diào)用在其他窗體中被定義為public的通用過程c) 如

18、果工程中包含sub main過程，則程序?qū)⑹紫葓?zhí)行該過程d) 如果工程中不包含sub main過程，則程序一定首先執(zhí)行第一個(gè)建立的窗體正確答案: b(28) 在窗體上畫一個(gè)名稱為command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：private function f(m as integer) if m mod 2=0 then f=m else f=1 end ifend functionprivate sub command1_click() dim i as integer s=0 for i=1 to 5 s=s+f(i) next print send sub程序運(yùn)

19、行后，單擊命令按鈕，在窗體上顯示的是a) 11b) 10c) 9d) 8正確答案: c(29) 在窗體上畫一個(gè)名稱為text1的文本框和一個(gè)名稱為command1的命令按鈕，然后編寫如下事件過程：private sub command1_click() dim array1(10,10) as integer dim i as integer, j as integer for i=1 to 3 for j=2 to 4 array1(i,j) =i+j next j next i text1.text=array1(2,3) +array1(3,4) end sub程序運(yùn)行后，單擊命令按鈕，

20、在文本框中顯示的值是a) 15b) 14c) 13d) 12正確答案: d(30) 在窗體上畫4個(gè)文本框(如圖所示) 并用這4個(gè)文本框建立一個(gè)控件數(shù)組，名稱為text1(下標(biāo)從0開始，自左至右順序增大) ，然后編寫如下事件過程：private sub command1_click() for each textbox in text1 text1(i) =text1(i) index i=i+1 nextend sub程序運(yùn)行后，單擊命令按鈕，4個(gè)文本框中顯示的內(nèi)容分別為a) 0 1 2 3b) 1 2 3 4c) 0 1 3 2d) 出錯(cuò)信息正確答案: a希望與更多計(jì)算機(jī)等級(jí)考試的友交流，.

21、 二 、填空題(1) visual basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是 【1】 。正確答案: 1.(.bas)(2) 在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為mnuedit, visible屬性為false。程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuedit對(duì)應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁?。private sub form 【2】 (button as integer, shift as integer, x as single, y as single) if button=2 then 【3】 mnuedit end ifend sub正確答案: 1.(m

22、ousedown) 2.(popupmenu)(3) 為了使計(jì)時(shí)器控件timer1每隔0.5秒觸發(fā)一次timer事件，應(yīng)將timer1控件的 【4】 屬性設(shè)置為 【5】 。正確答案: 1.(interval) 2.(500)(4) 與數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的visual basic表達(dá)式是 【6】 。正確答案: 1.(cos(a+b) ) ) /(3*x）+5)(5) 將c盤根目錄下的圖形文件moon.jpg裝入圖片框picture1的語句是 【7】 。正確答案: 1.(picture1.picture=loadpicture(“c:moon.jpg”) )(6) 在窗體上畫一個(gè)名稱為text1的文

23、本框，然后畫3個(gè)單選按鈕，并用這3個(gè)單選按鈕建立一個(gè)控件數(shù)組，名數(shù)為option1。程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示。請(qǐng)?zhí)羁?。private sub option1_click(index as integer) select case 【8】 case 0 a=“宋體” case 1 a=“黑體” case 2 a=“楷體_gb2312” end select text1 【9】 =aend sub正確答案: 1.(index) 2.(fontname)希望與更多計(jì)算機(jī)等級(jí)考試的友交流，. (7) 在窗體上畫兩個(gè)組合框，其名稱分別為combo1、combo2，然后畫兩個(gè)標(biāo)簽，名稱分別為label1、label2，如圖所示。程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來。請(qǐng)?zhí)羁?。private sub combo1_click() call showitem(combo1,