VisualBASIC程序設(shè)計(jì)VB試題及其答案2004.6

1、visual basic程序設(shè)計(jì)試題2004.7 院（系）： 班級(jí)： 學(xué)號(hào)： 姓名： 注意事項(xiàng): 1本試卷共五大題，滿分100分，考試時(shí)間120分鐘。 2所有答案請(qǐng)答在答案欄上，答在其它地方無(wú)效。一填空題 （每題1分，共10分）1要從字符串“visual basic 6.0”中截取子字符串“basic”可使用函數(shù)（ mid(“visual basic 6.0”,8,5) ）。2產(chǎn)生從整數(shù)a到整數(shù)b之間的隨機(jī)整數(shù)使用的表達(dá)式（ int(b-a+1)*rnd+a) ）。3將x四舍五入到百位（例如，若x=12374.52應(yīng)舍入成12300），可使用表達(dá)式（ int(x / 100 + 0.5) *

2、100 ）。4表達(dá)式：true or not 53 = 4的值為（ true ）。5表示條件“年份year能被4整除，但不能被100整除”的邏輯表達(dá)式為（ year mod 4=0 and year mod 1000 ）。6除了在設(shè)計(jì)階段通過(guò)修改picture屬性裝載圖形外，還可以使用（ loadpicture ）函數(shù)在運(yùn)行程序時(shí)裝載圖形。7在程序運(yùn)行期間，用戶在文本框輸入的內(nèi)容，存放到文本框的（ text ）屬性中。8. 已知數(shù)組元素a(1)=4, a(2)=2, a(3)=1, a(4)=3，則a(a(1)+a(2)-a(4)的值為 ( 1 )。9當(dāng)文本框的text屬性被修改時(shí)，會(huì)發(fā)生(

3、change )事件。10.假定在用戶界面上有多個(gè)控件，要在程序中把光標(biāo)設(shè)置在接受輸入的控件上，應(yīng)使用的方法是（ setfocus ）。答案欄：1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 二單項(xiàng)選擇題 （每題1.5分，共30分）1給定程序代碼：text1.text= visual basic程序設(shè)計(jì) ，其中的text1、text和 visual basic程序設(shè)計(jì) 分別表示（ c ）。a) 控件、屬性值和屬性 b) 控件、方法和屬性c) 控件、屬性和屬性值 d) 事件、方法和屬性2以下關(guān)于表達(dá)式的運(yùn)算順序，錯(cuò)誤的說(shuō)法是 ( c )。a) 函數(shù)運(yùn)算最優(yōu)先 b) 最后進(jìn)行的是邏輯

4、運(yùn)算c) 關(guān)系運(yùn)算的優(yōu)先級(jí)比算術(shù)運(yùn)算的優(yōu)先級(jí)高d) 取負(fù)運(yùn)算的優(yōu)先級(jí)比求冪運(yùn)算的優(yōu)先級(jí)低3s、t、r為字符串變量，它們的值分別是xyz、321和66，執(zhí)行下列語(yǔ)句后，顯示的結(jié)果為 （ d ）。 s = s + r: r = r + t: print s;spc(2);ra) xyz66 387 b) xyz66 387c) xyz66 66321 d) xyz66 66321 4. 假設(shè)a1，a2，a3是布爾變量，其值依次為：true，true，false，下列表達(dá)式的值為 false的是 （ c ）。 a) a1 and a2 or a3 b) true or not（7 3 y then

5、print xy b) if x then t = t * xc) if x mod 3=2 then ? xd) if x10 y=x+1 end selectb) select case x case 1, 3, 5 y=2*x-1 case is x =1 y=2*x+1end selectc) select case x case is 0 y=sqr(x)+1 end select d) select case xcase x=1 and x10y=x*x+1end select7設(shè)有程序段：dim k%k=3do until k=0k=k-1loop下面對(duì)上述循環(huán)語(yǔ)句描述正確的是（

6、 c ）。a) 循環(huán)體1次也不執(zhí)行 b) 循環(huán)體執(zhí)行1次c) 循環(huán)體執(zhí)行3次 d) 循環(huán)體執(zhí)行無(wú)限次8. 關(guān)于循環(huán)語(yǔ)句的說(shuō)法，正確的是 ( c )。a) do while loop是先執(zhí)行循環(huán)體再判斷條件是否成立b) do until loop是先執(zhí)行循環(huán)體再判斷條件是否成立c) do loop while 是先執(zhí)行循環(huán)體再判斷條件是否成立d) do loop until 是先判斷條件再?zèng)Q定是否執(zhí)行循環(huán)體9下面程序段中循環(huán)語(yǔ)句的循環(huán)次數(shù)是（b ）。for x=7 to 1 step -3 print xnext xa) 0b) 3c) 4d) 710使用文本框text1接受用戶輸入的口令時(shí)，可

7、使用以下選項(xiàng)( c )，屏蔽在文本框中輸入的內(nèi)容。 a) text1.value = * b) text1.text = *c) text1.passwordchar = * d) text1.caption = *11要把窗體縮小為其大小的一半（非最大化狀態(tài)下），可使用以下（ b ） 語(yǔ)句。 a) form1 = form1/2 b) form1.width = form1.width / 2 : form1.height = form1.height / 2c) form1.left = form1.left / 2: form1.top = form1.top / 2 d) form1.

8、size = form1.size / 212. 列表框不具有的屬性是( d )。a) name b) textc) sortedd) value13復(fù)選框的value屬性值為2時(shí)，表示( c )。 a)沒有選擇該復(fù)選框 b)選中該復(fù)選框 c)該復(fù)選框被禁止使用 d)該復(fù)選框獲得焦點(diǎn)14下列控件中（ d ）不能接受gotfocus和lostfocus事件。a) 命令按鈕b) 組合框c) 復(fù)選按鈕d) 計(jì)時(shí)器15設(shè)置計(jì)時(shí)器的時(shí)間間隔可以通過(guò)（ d ）屬性來(lái)實(shí)現(xiàn)。a) value b) text c) maxd) interval16設(shè)有數(shù)組說(shuō)明語(yǔ)句：dimb（-to 1，-1 to），則數(shù)組b中

9、元素的個(gè)數(shù)是（a ）。a) 12 b) 15 c) 16 d) 2017. 下列關(guān)于數(shù)組和記錄的說(shuō)法 ( a ) 是不正確的。a) 記錄是由可變數(shù)目元素組成的結(jié)構(gòu)類型數(shù)據(jù)b) 記錄中的元素可以具有不同的數(shù)據(jù)類型c) 數(shù)組是由固定數(shù)目同類元素按一定順序排列而成的結(jié)構(gòu)類型數(shù)據(jù)d) 記錄是由固定數(shù)目元素組成的結(jié)構(gòu)類型數(shù)據(jù)18已知有說(shuō)明語(yǔ)句type datyear as integermonth as integerend typetype empname as string8sex as string*1birthday as datend typedim person as emp并假設(shè)變量per

10、son所表示職工的出生日期是“1968年6月”，則下列正確的賦值語(yǔ)句是（ d ）。a) year=1968：month=6b) birthday.year=1968：birthday.month=6c) person.year=1968：person.month=6d) person.birthday.year=1968：person.birthday.month=619. 關(guān)于變量，不正確的說(shuō)法是( c )。a) 同一模塊中不同級(jí)的變量可以同名b) 局部變量只能在它說(shuō)明的過(guò)程中使用c) 在窗體模塊中各過(guò)程之外用dim語(yǔ)句定義的變量全都是全局變量d) 不同模塊中定義的變量可以同名20. （ a

11、 ）不能在標(biāo)準(zhǔn)模塊中定義。a) 事件過(guò)程 b) 子過(guò)程 c) 函數(shù)過(guò)程 d) 公共過(guò)程答案欄：1. _ 2. _3. _ 4. _5. _ 6. _7. _8. _9. _10. _11. _12. _ 13. 14. 15. 16. _17. _ 18. 19. 20. 三.閱讀下面程序，寫出程序的運(yùn)行結(jié)果。(共26分)1private sub command1_click()dim x as integer, y as integerfor x=1 to 10 step 3 select case x*2case is 8 if a mod 2 = 1 then y = y * aelse

12、x = x * aend ifa = a + 1 loop print “x=”;x,”y=”; yend sub運(yùn)行結(jié)果：x= 384 y= 1054private sub command1_click()dim a(1 to 10) as integer, x as integerfor x = 1 to 10 if x3 then a(x) = x mod 5 else a（1）a（2）a（3）a（4）a（5）a(x) = x * 2 mod 9 2 4 6 4 0 end ifnext xfor x = 1 to 9 a(x) = a(x) + a(x+1) 6 10 10 4 1 n

13、ext xfor x=1 to 10 print a(x), if x mod 4=1 then printnext xend sub運(yùn)行結(jié)果：6101041357405private sub command1_click()dim x as integer, y as integery = 1for x=1 to 10 do while y20 then exit do loop if y25 then exit for next x print x, yend sub 運(yùn)行結(jié)果：3 26答案欄：1. 2. 3. 4. 5. 四程序填空題（每空2分，共20分）1下面事件過(guò)程的功能是：求滿足1

14、*2*n 10000的最小n值。private sub command1_click() dim n%, t& n = 0: t = 1 while （1） t = 10000 n = n + 1 t = （2） t*n wend print tab(8); 最小n值為：; nend sub2 在窗體設(shè)置一個(gè)名為list1的列表框，下面程序的功能是：當(dāng)程序運(yùn)行后，單擊窗體，輸出的結(jié)果為：計(jì)算機(jī)學(xué)院電子與信息學(xué)院自動(dòng)化學(xué)院private sub form_click()dim i%for i = 0 to （3） list1.listcount - 1 if i mod 2 = 0 then p

15、rint （4） list1.list(i) end ifnext iend subprivate sub form_load()list1.additem 計(jì)算機(jī)學(xué)院list1.additem 建筑學(xué)院list1.additem 電子與信息學(xué)院list1.additem 機(jī)械學(xué)院list1.additem 自動(dòng)化學(xué)院end sub3假設(shè)數(shù)組a和數(shù)組b都是已經(jīng)按從小到大排好序的數(shù)組，下面子過(guò)程merge的功能是把a(bǔ)和b合并到數(shù)組c中，合并后數(shù)組c也從小到大排好序。 private sub merge(a%(), b%(), c%(), byval na%, byval nb%, byval n

16、c%) dim i as integer, j as integer, k as integer i = 1: j = 1: k = 1 do while i = na and j = nb if （5） then a(i) b(j) c(k) = a(i) i = i + 1 else c(k) = b(j) j = j + 1 end if （6） k = k + 1 loop do while i = na （7） c(k) = a(i) k = k + 1 i = i + 1 loop do while j max then max=score wend print 最高分?jǐn)?shù)為：; m

17、ax close #3end sub答案欄：(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) 五程序設(shè)計(jì)題（每題7分，共14分）1編寫一個(gè)command1_click事件過(guò)程：產(chǎn)生20個(gè)100到999之間的隨機(jī)數(shù)，按生成順序保存在數(shù)組中，并按每行5個(gè)數(shù)的格式輸出。用戶任意輸入一個(gè)數(shù)，如果該數(shù)出現(xiàn)在這20個(gè)數(shù)中，則輸出該數(shù)的生成序號(hào)；否則，輸出“沒有找到”的信息。 答案欄：private sub command1_click() dim a(20) as integer, x as integer, i as integer for i = 1 to 20 a(i

18、) = int(900 * rnd) + 100 print a(i); if i mod 5 = 0 then print next i print x = inputbox(請(qǐng)輸入一個(gè)數(shù)) for i = 1 to 20 if a(i) = x then exit for next i if i 20 then print 沒有找到 else print 該數(shù)的序號(hào)是:; i end ifend sub2求s=的值。要求定義求f=函數(shù)過(guò)程，由命令按鈕的單擊事件過(guò)程輸入m、n和p的值，調(diào)用f函數(shù)過(guò)程求s的值，然后在窗體上顯示計(jì)算結(jié)果。答案欄：option explicitprivate sub command1_click() di