1、1 vb程序設(shè)計(jì)復(fù)習(xí)題考試題型及分值 : 一、單項(xiàng)選擇題 （18*1=18% ）二、根據(jù)要求，寫出相應(yīng)的vb表達(dá)式或 sql命令（3*4=12% ）三、讀程序?qū)懡Y(jié)果題 （4*7=28% ）四、程序填空（每空4 分, 共 24% ）五、編 程題（ 2*9=18% ）復(fù)習(xí)題 :一、單項(xiàng)選擇題1、改變控件在窗體中的上下位置應(yīng)修改該控件的（）屬性？ a 、width b、left c、top d、right 2、下面選項(xiàng)中不屬于事件的是（） 。a、dblclick b、show c、load d 、keyup 3、設(shè)窗體上有一個(gè)文本框，text1, 要求只能顯示信息，不能輸入則（）。 a、 text1

2、.maxlength = 0 b、 text1.visible = false c、 text1.enabled = false d、 text1.width = 0 4、設(shè)菜單中有一個(gè)菜單項(xiàng)為 open。若要為該菜單命令設(shè)計(jì)訪問鍵， 即按下 alt及字母 o時(shí)，能夠執(zhí)行 open命令，則在菜單編輯器中設(shè)置“open命令的方式是（） 。 a 、把 name 屬性設(shè)置為 o&pen b、把 caption 屬性設(shè)置為 o&pen c 、把 name 屬性設(shè)置為 &open d、把 caption 屬性設(shè)置為 o&pen 5、以下關(guān)于 msgbox的敘述中，錯(cuò)誤的是

3、（）。 a、 msgbox函數(shù)返回一個(gè)整數(shù) b、 通過 msgbox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型 c、 msgbox過程沒有返回值 d、 msgbox函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)量2 6、在窗體上畫一個(gè)名稱為timer1 的計(jì)時(shí)器控件， 要求每隔 0.5 秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語句是（）。 a、timer1.interval=0.5 b、 timer1.interval=5 c、 timer.interval=50 d、 timer1.interval=500 7、以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是（）。 a、對(duì)于多重窗體程序中

4、，而且單獨(dú)保存每個(gè)窗體 b、在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的 c、在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體d、用 hide 方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體8、假定時(shí)鐘控件timer1 的 interval值為 500，enabled 屬性為 true，并且有下面的事件過程，計(jì)算機(jī)將在窗體上輸出多少個(gè)“x”？（） private sub timer1_timer() dim i as integer for i = 1 to 10 print x next i end sub a 、1000 b、不清楚 c、100000 d、10 9、 以下敘述中錯(cuò)誤的是（）。 a、事

5、件過程是響應(yīng)特定事件的一段程序 b、不同的對(duì)象可以具有相同名稱的方法 c、對(duì)象的方法是執(zhí)行指定操作的過程 d、對(duì)象事件的名稱可以由編程者指定10、 以下合法的 visual basic標(biāo)識(shí)符是（）。a、 forloop b、 const c、 9abc d、 a#x 11、設(shè)計(jì)時(shí)添加到圖片框或圖像框的圖片數(shù)據(jù)保存在（） a 、窗體的 frm 文件中 b、工程文件中 c 、圖片的原始文件中 d、窗體的 frx文件中12、 將數(shù)據(jù)項(xiàng)“china” 添加到列表框 list1中且使其成為第一項(xiàng)應(yīng)使用語句 （） a 、list1.additem 0，china b、list1.additem china

6、,1 c 、list1.additem china,0 d、list1.additem 1，china 13、 表達(dá)式 5 mod 3+135*2的值是（）。a、 3 b 、 0 c、4 d 、6 14、設(shè) x=4,y=8,z=7 ，以下表達(dá)式的值是（）。 xz) or zx a 、 1 b 、 -1 c 、 true d、 false 3 15、工程文件的擴(kuò)展名為 ( ) a 、.vbp b、.bas c、.frx d、.frm 16、將命令按鈕的 ( )屬性設(shè)置成 true，當(dāng)用戶按下esc鍵時(shí)可以激發(fā)對(duì)應(yīng)按鈕的 click 事件。 a、name b、cancel c、default d、

7、enable 17、 在窗體上畫一個(gè)名稱為command1 的命令按鈕，然后編寫如下事件過程： private sub command1_click() a$=visualbasic print string(3,a$) end sub 程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是（）。a、 vvv b 、 vis c、 sic d、 11 18、 以下敘述中錯(cuò)誤的是（）。a、 在 keypress 事件過程中不能識(shí)別鍵盤的按下與釋放b、 在 keypress 事件過程中不能識(shí)別回車鍵c、 在 keydown 和 keyup事件過程中， 將鍵盤輸入的 a 和a 視作相同的字母d、 在 key

8、down 和 keyup事件過程中，從大鍵盤上輸入的1 和從右側(cè)小鍵盤上輸入的 1 被視作不同的字符 19 、當(dāng)下面的 for 循環(huán)執(zhí)行完成后，變量intx 的值為多少？ ( ) for intx = 1 to 10 step 3 print intx next intx a、1 b、4 c 、 13 d、9 20、圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是（）a、appearance b 、stretch c、autoredraw d、autosize 21、當(dāng)一個(gè)檢查框被選中時(shí)，它的value 屬性的值是（） a 、3 b、2 c、0 d、1 22、如要使用標(biāo)

9、準(zhǔn)的顏色對(duì)話框應(yīng)該調(diào)用通用對(duì)話框的什么方法（） a 、showdisplay b、showcolor c、displaycolor d、colorshow 23、以下能在窗體 form1的標(biāo)題欄中顯示“ one dream, one world ” 的語句是（） a 、form1.name=one dream, one world b、form1.title=one dream, one world 4 c 、form1.text=one dream, one world d 、form1.caption=one dream, one world 24、要從 fornext 總退出循環(huán)使用的語

10、句（）。a、 exit b、stop loop c、 continue d、exit for 25、在運(yùn)行時(shí)，系統(tǒng)自動(dòng)啟動(dòng)窗體的（）事件過程。a、click b、gotfocus c、load d、unload 26、如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其caption 屬性設(shè)置為（） a 、= b、* c、- d、& 27、可以從身份證號(hào)碼中截取出出生年份的函數(shù)是( ) a、mid b、left c、instr d、right 28、語句 dim x as integer作用是 : 將 x 定義為（）變量a、整型 b 、單精度型 c 、 布爾型 d 、字符型二、根據(jù)要求，寫出相應(yīng)的v

11、b表達(dá)式或 sql命令將下列命題用 vb布爾表達(dá)式表示1、a不等于 c, 并且 b小于等于 c 。 vb 布爾表達(dá)式表示為： ac and b=c 2、數(shù)學(xué)表達(dá)式vb表達(dá)式表示為： sin(45*3.14/180)+abs(exp(10)+log(10)+x)/sqr(x+y+1) 3、選拔優(yōu)秀生的條件為：年齡(age) 小于 19 歲，三門課總分 (total)高于 285分，其中有一門（ mark）為 100 分，vb表達(dá)式寫為：age285 and ( mark1=100 or mark2 =100 or mark3=100 ) 4、設(shè)數(shù)據(jù)庫 xs 中有“學(xué)生基本情況”表（含有字段：學(xué)號(hào)

12、、姓名、性別、出生年月、專業(yè)、入學(xué)總分） ，要求查詢計(jì)算機(jī)和工商管理專業(yè)學(xué)生的學(xué)號(hào), 姓名,入學(xué)總分?jǐn)?shù)據(jù) ,sql命令為 : select 學(xué)號(hào), 姓名 , 入學(xué)總分 from 學(xué)生基本情況 where 專業(yè) in (計(jì)算機(jī), 工商管理 ) 5、設(shè)數(shù)據(jù)庫 xs 中有“學(xué)生基本情況”表（含有字段：學(xué)號(hào)、姓名、性別、出生年月、專業(yè)、入學(xué)總分） ，要求查詢 1985-01-01 到 1986-12-31 之間出生的學(xué)生,sql命令為: 1|10lne|45sin10yxx5 select * from學(xué)生基本情況where 出生年月 between #1985-01-01# and #1986-12

13、-31# 三、讀程序?qū)懡Y(jié)果題仔細(xì)閱讀程序后按題目說明寫結(jié)果1、有如下事件過程 private sub form_click() x = 4 y = x 2 if x * y 100 then print 4; x; y; else print 44; x; y; end if end sub 程序運(yùn)行后在窗體上單擊鼠標(biāo)左鍵其結(jié)果為：44 4 16 2、有如下事件過程 private sub command1_click() for i = 1 to 3 for j = 1 to 2 print i + j; i - j; next j print next i end sub 程序運(yùn)行后單擊命

14、令按鈕, 則在窗體上顯示的內(nèi)容是：2 0 3 -1 3 1 4 0 4 2 5 1 3、有如下事件過程6 private sub command1_click() dim a(1 to 5) as integer for i = 1 to 5 a(i) = 2 * i + 1 a(1)=3,a(2)=5,a(3)=7,a(4)=9,a(5) =11 next i min = a(1)/min=3 max = a(5)/=11 sum = 100 for i = 1 to 5 sum = sum - a(i) next i print min, max, sum end sub 程序運(yùn)行后單擊命

15、令按鈕, 則在窗體上顯示的內(nèi)容是：3 11 65 4、窗體上有一個(gè)名稱為label1的標(biāo)簽，并有如下事件過程： private sub form_click() dim ans as string x = val(inputbox(input an integer please) select case x mod 5 case is 3 x = 2 case 2 to 4 x = 3 case else x = ok end select 7 label1.caption = x= & x end sub 程序運(yùn)行后在窗體上單擊，并輸入的數(shù)據(jù)分別為 22 、33、44、bb時(shí)，按順序

16、分別寫出標(biāo)簽 label1上顯示的內(nèi)容。x=3 /22 x=3 /33 x=2 /44 x=1 /bb 四、程序填空1編寫一個(gè)計(jì)算求 1 到 5 的階乘之和的函數(shù)， 然后單擊 command1 按鈕調(diào)用該函數(shù)將計(jì)算結(jié)果在label1 上顯示。請(qǐng)?jiān)谙铝谐绦虻臋M線處填上適當(dāng)?shù)膬?nèi)容使程序完整。 1!+2!+3!+4!+5! function fact(x as integer) as long dim p as long, i as integer p=1 for i=1 to x p= p=p*i next i = p fact =p end function private sub comman

17、d1_click( ) dim sum as long, i as integer for i=1 to _ 5 sum= sum= sum+fact(i) next i label1.caption=sum end sub 2 編寫一個(gè)計(jì)算矩形面積的sub過程，然后調(diào)用該過程計(jì)算矩形面積。private sub form_click( ) dim a as single, b as single a = val(inputbox(what is the length? ) b =val( inputbox(what is the width? ) call _ recarea _ ( a ,

18、 b ) 8 end sub sub recarea( rlen as single, rwid as single) dim area as single area = _ rlen *_ rwid _ msgbox total area is & _ area輸出矩形面積end sub 3. 在下列事件過程中， 如果選中復(fù)選框 1， 則文本變成斜體， 如果選中復(fù)選框 2，則 text1 的前景色變成紅色，否則背景色變成黑色。 private sub check1_click( ) if check1.value=1 then text1. fontitalic=_ true els

19、e text1.fontitalic=false end if end sub private sub check2_click( ) if check2.value=1 then text1._=vbred forecolorelse text1._=vbblack backcolorend if end sub 4. 編寫一個(gè)對(duì)輸入字符進(jìn)行轉(zhuǎn)換的程序。轉(zhuǎn)換規(guī)則為，將其中的大寫字母轉(zhuǎn)換成小寫字母，小寫字母轉(zhuǎn)換成大寫字母，空格不轉(zhuǎn)換，其余轉(zhuǎn)換成“。要求每輸入一個(gè)字符，馬上就進(jìn)行判斷和轉(zhuǎn)換。“輸入字符串“文本框?qū)ο髏ext1 對(duì)應(yīng)的 keypress 事件代碼為如下。請(qǐng)?jiān)谙铝谐绦虻臋M線處填上適當(dāng)

20、的內(nèi)容使程序完整。private sub text1_keypress(keyascii as integer) dim aa as string*1aa =_ chr$(keyascii) select case aa case a to z 大寫轉(zhuǎn)換成小寫9 aa = chr$(keyascii + 32) case a to z 小寫轉(zhuǎn)換成大寫 aa = _ chr$(keyascii - 32) case aa = case else aa =_ ”*”end select text2.text = text2.text & aa end sub 五、編程題1、 設(shè)計(jì)一個(gè)程序。

21、用 inputbox 輸入球體的半徑，然后計(jì)算球體的體積 , 在 label1上顯示球體的半徑 , label2上顯示球體的體積。如圖1、2 所示。private sub command1_click() dim r as single, v as single const pi = 3.14 r = val(inputbox( 請(qǐng)輸入球體半徑, 球體半徑 , 0) v = 4 / 3 * pi * r 3 label1.caption = label1.caption + str(r) label2.caption = label2.caption + str(v) end sub2、設(shè)計(jì)一

22、個(gè)程序。在文本框中輸入一個(gè)三位數(shù)，當(dāng)單擊“顯示”按鈕，在三個(gè)標(biāo)簽上分別顯示其個(gè)位數(shù)、十位數(shù)和百位數(shù)。如圖1 所示。10 圖 1 private sub command1_click() n = val(text1.text) n1 = n 100 n2 = (n / 10) mod 10 n3 = n mod 10 label2.caption = n3 label3.caption = n2 label4.caption = n1 end sub 3、設(shè)計(jì)一個(gè)程序。當(dāng)單擊“輸入成績(jī)”將彈出一個(gè)輸入對(duì)話框，進(jìn)行某班30名同學(xué)的數(shù)學(xué)成績(jī)的輸入， 輸入完畢計(jì)算并在標(biāo)簽上分別顯示該班數(shù)學(xué)成績(jī)的總分和平均分 , 如圖 2、3 所示圖 2 圖 3 private sub command1_click() dim score(1 to 30) as single dim i as integer, sum as single dim aver as single, str1 as string 11 sum = 0 fo