VB練習(xí)題含答案

1、一、單項(xiàng)選擇（每小題2分，共40分）1、窗體文件、標(biāo)準(zhǔn)模塊文件的擴(kuò)展名分別是_d_。(a).frm和.mdb(b).frm和.vbp(c).bas和.vbp工程文件擴(kuò)展名(d).frm和.bas2、 如果要設(shè)置窗體的標(biāo)題欄，應(yīng)選擇_ b_屬性。(a) name窗體名稱(chēng) (b) caption (c) tips (d) text3、當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的_ d _事件過(guò)程。(a)click(b)unload(c)gotfocus(d)load4、 visual basic程序設(shè)計(jì)語(yǔ)言屬于_c_。(a) 面向過(guò)程的語(yǔ)言(b) 面向問(wèn)題的語(yǔ)言(c) 面向?qū)ο蟮恼Z(yǔ)言(d) 面向機(jī)器的語(yǔ)言

2、5、 任何控件都具有的屬性是_b_。(a)text(b) name(c)forecolor(d)caption文本框沒(méi)有6、 vb的一個(gè)文本框控件名為mytxt，要使該控件中顯示“我的vb程序”，以下_c_語(yǔ)句執(zhí)行后能正確結(jié)果。(a)text1.text = "我的vb程序"(b)text1.caption = "我的vb程序"(c)mytxt.text = "我的vb程序"(d)mytxt.caption = "我的vb程序"7、 visual basic程序設(shè)計(jì)中，構(gòu)成對(duì)象的三要素是_b_。(a) 屬性、控件和

3、方法 (b) 屬性、事件和方法 (c) 控件、過(guò)程和模塊 (d)窗體、控件和過(guò)程8、 在語(yǔ)句public sub sort(i as integer)中的 i 是一個(gè)按_c_傳遞的參數(shù)。(a) 地址(b) 值(c) 變量(d) 常量9、 要將變量x賦值為50到100之間（含50和100）的一個(gè)隨機(jī)整數(shù)，下面語(yǔ)句正確的是_b_。 x=下限+int(上限-下限+1*rnd)(a) x=50+int(50*rnd) (b) x=50+int(51*rnd)(c) x=int(49+50*rnd)(d)x=int(49+51*rnd)10、 在通用聲明代碼中有以下語(yǔ)句：option base 1dim

4、 a (4,-3 to 3) as string則該數(shù)組有_ _個(gè)元素。a(a) 28 (b) 24(c) 35(d) 3011、 要使某控件在運(yùn)行時(shí)不可見(jiàn)，應(yīng)將其_d_屬性設(shè)置為false。(a) text(b) caption(c) enabled(d) visible12、 為了使標(biāo)簽label1的大小根據(jù)其caption屬性的值自動(dòng)擴(kuò)大或縮小，應(yīng)對(duì)label1的何種屬性進(jìn)行怎樣的設(shè)置？b(a) 將borderstyle屬性設(shè)為1有邊框 (b) 將autosize屬性設(shè)為true(c) 將borderstyle屬性設(shè)為0 (d) 將autosize屬性設(shè)為false13、 下列哪一個(gè)是v

5、b中合法的變量名? d(a) 123abc數(shù)字開(kāi)頭(b) a-b減號(hào)(c) dimvb關(guān)鍵字(d) str_x空格14、 以下事件過(guò)程中，private表示_b_。private sub text1_changeprint "text1 changed"end sub(a) 此過(guò)程可以被任何其他過(guò)程調(diào)用(b) 此過(guò)程只可以被本窗體中的其他過(guò)程調(diào)用(c) 此過(guò)程不可以被任何其他過(guò)程調(diào)用(d) 此過(guò)程只可以被本工程中的其他過(guò)程調(diào)用15、 下面語(yǔ)句的循環(huán)次數(shù)為_(kāi)b_。for i = -3 to 20 step 4(a) 5(b) 6(c) 7(d) 816、 如果變量a、b、c的

6、值分別為3、2、-3.5，則abs(b*c-a)+int(c)的值為_(kāi)a_。(a) 6(b) 7(c) 14(d) -13 |2*-3.5-3|-4=6下列函數(shù)中_d_的值與其他三個(gè)的不一樣。(a) val ("-1")-1(b) round (-0.9) -1(c) int (-0.9) 小于等于n最大整數(shù)-1(d) fix (-0.9) n整數(shù)部分017、 下列程序代碼執(zhí)行的結(jié)果是 dconst st as string = "1234" st = st + "5678" print st (a) 1234(b) 12345678

7、(c) 6912(d) 出錯(cuò)信息18、 用戶(hù)釋放任意一個(gè)鼠標(biāo)按鈕時(shí)觸發(fā)的事件是_。b(a) mousedown(b) mouseup(c) mousemove(d) mouseclick19、 當(dāng)用戶(hù)在文本框中鍵入一個(gè)字符時(shí)，能觸發(fā)文本框的_事件。c(a) keypress和click(b) keypress和lostfocus(c) keypress和change(d) change和lostfocus二、填空（每空2分，共40分）1、 把數(shù)學(xué)表達(dá)式寫(xiě)成vb表達(dá)式是_(1)_ ，把數(shù)學(xué)表達(dá)式 | x + y | + z7 寫(xiě)成vb表達(dá)式是_(2)_。(-b+sqr(b2-4*a*c)/2*a

8、 abs(x+y)+z72、 窗體中有兩個(gè)命令按鈕：“顯示”（控件名為cmddisplay）和“測(cè)試”（控件名為cmdtest）。完成下列事件代碼過(guò)程，使單擊“測(cè)試”按鈕時(shí)，隱藏“顯示”按鈕。private sub cmdtest_click () _(3)_ cmddisplay.visible=falseend sub3、 窗體中有圖像框image1，完成下列事件過(guò)程代碼，使單擊image1時(shí)，image1移到窗體中心。private sub image1_click () image1. _ (4)_ = (form1.scalewidth - image1.width) 2 left

9、image1.top = _ (5)_ (form1.scalehighth - image1.highth) 2end sub4、 窗體中有圖片框（picture1）和計(jì)時(shí)器（timer1）兩個(gè)控件。完成下列事件代碼過(guò)程，使運(yùn)行程序時(shí)，將指定圖片加載到圖片框里，然后圖片框以每2秒鐘一次的速度向窗體的右下角移動(dòng)（每次向右移動(dòng)100個(gè)twip，同時(shí)向下移動(dòng)100個(gè)twip）。private sub form_load () picture1.picture = _ (6)_ ("c:white.bmp") loadpicture timer1.interval = _ (7)

10、_ 2000end subprivate sub timer1_timer () picture1.move _ (8)_ , _ (9)_ picture1.left+100 picture1.top+100end sub5、 完成以下程序，使其運(yùn)行后，點(diǎn)擊窗體，能打印出如圖1所示的結(jié)果。圖1private sub form_click () dim se as string print tab(35); "九九乘法表" for i = _ (10)_ 1 to 9 for j = _ (11)_ i to 9 se = i & "×"

11、; & j & "=" & i * j print tab ( (j - 1) * 9 + 1); _ (12)_; se next j next iend sub6、 用公式可以計(jì)算的近似值。請(qǐng)完成下列程序，編寫(xiě)函數(shù)pi（n）求的近似值，并調(diào)用該函數(shù)求n100時(shí)的近似值。function pi (byval n as integer) as double dim i as integer pi = 0 for i = 1 to n pi = pi + _ (13)_ (-1)(i-1)/(2*n-1) next i pi =_ (14)_ 4*pi

12、end functionprivate sub form_click () print "n=100時(shí)，的近似值為：" _ (15)_ pi(100)end sub7、 輸入任意一個(gè)整數(shù)x，將其插入到一個(gè)按升序排列的整數(shù)數(shù)組中，并保證數(shù)組在插入之后仍按原來(lái)的升序排列，請(qǐng)?zhí)顚?xiě)完整程序。const n = 9private sub form_click()dim adim i  as integer, j  as integer, x as integer _(16)_  = array(1, 3, 4, 5, 9, 15, 22, 28

13、, 30, 60) a x = inputbox("輸入一個(gè)整數(shù)x：") redim preserve a(n + 1) for i = n to 1 _(17)_ step -1   if   _(18)_   then x<a(i)     a(i + 1) = a(i)   else       _(19)_  &#

14、160; a(i+1)=x     exit for   end if next i if i < 1 then _(20)_      a(1)=xend sub三、程序設(shè)計(jì)（每題10分，共20分）1、 編寫(xiě)程序，使得單擊窗體時(shí)，產(chǎn)生10個(gè)值為100400之間（含100和400）的隨機(jī)整數(shù)，用冒泡法將10個(gè)數(shù)從小到大排序后，顯示在窗體上。private sub form_click()dim i, x as integer, a(1 to 10) as in

15、tegerrandomizefor i = 1 to 10a(i) = int(rnd * 301) + 100print a(i);next iprintfor i = 10 to 2 step -1 for j = 1 to i - 1 if a(j) > a(j + 1) then x = a(j): a(j) = a(j + 1): a(j + 1) = x next jnext ifor i = 1 to 10print a(i);next iprintend sub2、編寫(xiě)程序?qū)崿F(xiàn)求水仙花數(shù)（水仙花數(shù)是指一種三位數(shù),其各個(gè)數(shù)之立方和等于該數(shù)）option explicitpr

16、ivate sub command1_click() dim x% dim hundred%, ten%, one% if len(text1) <> 3 then msgbox ("請(qǐng)輸入三位數(shù)的正整數(shù)") '如果text1中的不是三位數(shù)時(shí)，則 text1 = "" label2 = "" else x = val(text1) hundred = x 100 '百位數(shù)上的數(shù) ten = (x mod 100) 10 '十位數(shù)上的數(shù) one = x mod 10 '個(gè)位數(shù)上的數(shù) if hundred 3 + ten 3 + one 3 = x then label2.caption = x & "是水仙花數(shù)！" else label2.caption = x & "不是水仙花數(shù)！" end if end ifend subprivate sub command2_click() text1 = "" label2 = ""end subp