【精品】VB課后習(xí)題答案

1、第1章參考答案1選擇題（1）b （2）b2綜合題（1）屬性有：藍(lán)色、帶有紋路；方法有：踢、按?。皇录校簼L動、靜止。（2）vb應(yīng)用程序開發(fā)的一般步驟有：創(chuàng)建用戶界面；設(shè)置對象的屬性；編寫代碼；程序運(yùn)行與調(diào)試；保存與編譯。第2章參考答案1選擇題 （1）a （2）c （3）d （4）b （5）a （6）c2操作題 private sub command1_click()label1.caption = text1.textend subprivate sub command2_click()label1.caption = text1.text = end subprivate sub form_

2、load()label1.caption = text1.passwordchar = $end sub第3章參考答案1選擇題(1)b、c 分析：(b)3acd 以數(shù)字開頭；(c)if是vb的關(guān)鍵字(2)b 分析：邏輯常量的值只有兩個true和false，特別注意”false”是字符串常量。(3)c 分析：vb表達(dá)式不區(qū)分大小寫。(4)c 分析：long是長整型，byte是字節(jié)型，interge是整型。2綜合題(1) a = int(rnd * (100) 分析：產(chǎn)生一個區(qū)間在m,n之間的隨機(jī)整數(shù),其表達(dá)式為int(rnd*(n-m+1)+m)(2) int(x*100+0.5)/100 分析

3、：int(x*100+0.5)的作用是將x擴(kuò)大100倍后，第三位小數(shù)小于0.5，則舍掉，大于0.5，則產(chǎn)生進(jìn)位，取整后就是四舍五入的作用，再除以100，是還原為原值。(3) private sub command1_click()a = int(99 * rnd + 1)b = int(99 * rnd + 1)label1.caption = a & + & b & =?end sub(4) false true 8 mod 3+33/45（有改動）答案：3第4章參考答案1填空(1)t f (2)f (3) height160 and height60、lblsc.caption=、else

4、、lblsc.caption=、endif (5)exit (6)21 (7)16 (8) 0 、1 、100 、total+num、num+2 2程序設(shè)計題（略）第5章章參考答案1選擇ccdbddbccabacbb2操作題（1）實(shí)現(xiàn)多中選一的功能，通過用圖片框和框架來實(shí)現(xiàn)單選按鈕的分組，方法是，選中圖片框或框架后，再在里面繪制單選按鈕，另一種方法是將繪制好單選按鈕剪切粘貼到圖片框或框架中。（2）第一種方法是：在屬性面板中通過list屬性添加，操作方法是，每輸入一項(xiàng)按ctr回車。第二種方法是：在代碼中動態(tài)增加或減少選項(xiàng)，應(yīng)用addiitem和removeitem來完成。（3）應(yīng)設(shè)置timer屬

5、性，值設(shè)置為200，用設(shè)置計時器控件的enabled屬性為true或false來控制。（4）dim tao(1 to 10) as stringprivate sub command1_click() dim str as string for i = 1 to 10 if tao(i) then str = str & chr(10) + chr(13) & tao(i) next msgbox 您共買了： & str, vbokonly, 合計end subprivate sub form_load() list1.additem 鉛筆 list1.additem 橡皮 list1.add

6、item 格尺 list1.additem 筆記 list1.additem 水性筆 list1.additem 小刀 list1.additem 鋼筆 for i = 1 to 10 combo1.additem i & 件 next i combo1.text = 1件 combo1.enabled = falseend subprivate sub list1_click() label2.caption = 單價： & val(list1.listindex + 1) * 1 & 元 if list1.selected(list1.listindex) then if tao(list

7、1.listindex + 1) then combo1.text = val(right(tao(list1.listindex + 1), 2) & 件 combo1.enabled = true label1.caption = list1.text & combo1.text tao(list1.listindex + 1) = label1.caption else combo1.text = 1件 combo1.enabled = false end ifend subprivate sub combo1_change() if list1.selected(list1.listi

8、ndex) then label1.caption = list1.text & combo1.text tao(list1.listindex + 1) = label1.caption end ifend subprivate sub combo1_click() if list1.selected(list1.listindex) then label1.caption = list1.text & combo1.text tao(list1.listindex + 1) = label1.caption end ifend sub（5）private sub form_load() c

9、ombo1.additem 宋體 combo1.additem 新宋體 combo1.additem 隸書 combo1.additem 楷體_gb2312 combo1.additem 黑體 combo1.additem 華文行楷 combo1.additem 華文彩云 combo1.additem 華文新魏 combo1.text = 宋體 for i = 10 to 50 step 2 combo2.additem i next iend subprivate sub combo1_click() text1.fontname = combo1.textend subprivate su

10、b combo2_click() text1.fontsize = val(combo2.text)end subprivate sub combo2_keyup(keycode as integer, shift as integer) if keycode = 13 then if val(combo2.text) 5 then text1.fontsize = 5 combo2.text = 5 else text1.fontsize = val(combo2.text) end if end ifend subprivate sub option1_click() text1.fore

11、color = vbblackend subprivate sub option2_click() text1.forecolor = vbredend subprivate sub option3_click() text1.forecolor = vbyellowend subprivate sub option4_click() text1.forecolor = vbblueend subprivate sub option5_click() text1.forecolor = vbgreenend sub第6章參考答案1填空題（1） 靜態(tài)數(shù)組 （2） 0 、 lbound( ) （3

12、）20 （4）erase （5） name 、 index 2編程題（1）參考代碼：private sub form_click() dim i, n, a(1 to 10) as integer randomize (timer) for i = 1 to 10 a(i) = int(100 * rnd) next n = 1 for i = 2 to 10 if a(n) a(i) then n = i end if next print 最大值為; a(n); 位置為; nend sub（2）參考代碼：private sub form_click() dim i, a(1 to 20),

13、 b(1 to 19) as integer randomize (timer) print 數(shù)組a為：; for i = 1 to 20 a(i) = int(100 * rnd) print a(i); next print print 數(shù)組b為：; for i = 1 to 19 b(i) = a(i) + a(i + 1) print b(i); nextend sub（3）參考代碼：private sub form_click() dim i, j, temp, a(1 to 10), b(1 to 10), c(1 to 20) as integer randomize (time

14、r) for i = 1 to 10 a(i) = int(1000 * rnd) b(i) = int(1000 * rnd) c(2 * i - 1) = a(i) c(2 * i) = b(i) next for i = 1 to 19 for j = i + 1 to 20 if c(i) c(j) then temp = c(j) c(j) = c(i) c(i) = temp end if next next for i = 1 to 20 print c(i); nextend sub（4）參考代碼：private sub form_click() dim i, j, m, n,

15、 a(1 to 5, 1 to 6) as integer randomize (timer) for i = 1 to 5 for j = 1 to 6 a(i, j) = int(100 * rnd) next next m = 1 n = 1 for i = 1 to 5 for j = 1 to 6 if a(m, n) a(j) then temp = a(i) a(i) = a(j) a(j) = temp end if next next print 原數(shù)組：; for i = 0 to n - 1 print a(i); next print num = val(inputbo

16、x(請輸入要插入的數(shù), 輸入數(shù)據(jù)) for i = n - 1 to 0 step -1 if num a(i) then a(i + 1) = a(i) else a(i + 1) = num exit for end if next print 新數(shù)組：; for i = 0 to n print a(i); nextend sub（8）參考代碼：private sub form_click() dim i, j, temp, a(1 to 10) as integer randomize (timer) print 原數(shù)組：; for i = 1 to 10 a(i) = int(100

17、 * rnd) print a(i); next print for i = 1 to 9 for j = i + 1 to 10 if a(i) a(j) then temp = a(j) a(j) = a(i) a(i) = temp end if next next print print 排序后：; for i = 1 to 10 print a(i); nextend sub（9）參考代碼：dim cj(100, 4) as variantdim n as integerprivate sub form_load() n = 0end subprivate sub command1_

18、click() if n = 100 then cj(n, 0) = text1.text cj(n, 1) = text2.text cj(n, 2) = text3.text cj(n, 3) = text4.text cj(n, 4) = text5.text combo1.additem (cj(n, 0) combo2.additem (cj(n, 1) end if n = n + 1end subprivate sub combo1_click() dim i as integer label1.caption = for i = 0 to 4 label1.caption =

19、label1.caption & cstr(cj(combo1.listindex, i) & nextend subprivate sub combo2_click() dim i as integer label1.caption = for i = 0 to 4 label1.caption = label1.caption & cstr(cj(combo2.listindex, i) & nextend sub（10）參考代碼：private sub form_click() dim i, j, a(1 to 3, 1 to 5), b(1 to 5, 1 to 3) as integ

20、er randomize (timer) print 原矩陣： for i = 1 to 3 for j = 1 to 5 a(i, j) = int(100 * rnd) b(j, i) = a(i, j) print a(i, j); next print next print print 轉(zhuǎn)置后矩陣： for i = 1 to 5 for j = 1 to 3 print b(i, j); next print nextend sub（11）參考代碼：創(chuàng)建標(biāo)簽lbl并設(shè)置caption屬性為“visual basic程序設(shè)計”；創(chuàng)建命令按鈕控件數(shù)組cmd，設(shè)置backcolor屬性為各種

21、顏色，caption屬性為空，style屬性為1。添加代碼如下：private sub cmd_click(index as integer) lbl.forecolor = cmd(index).backcolorend subprivate sub cmd_mousedown(index as integer, button as integer, shift as integer, x as single, y as single)if button = 2 then lbl.backcolor = cmd(index).backcolorend ifend sub第7章參考答案1（1）

22、 6 26 2 62 -2 98（2）23472(1)d (2)c (3)b (4)b (5)d (6)d 3.(1)在vb程序調(diào)用過程中向過程傳遞數(shù)據(jù)的方式有:按值傳遞和按地址傳遞兩種方式.它們之間的不同是：按值傳遞是單向的，由實(shí)參將數(shù)據(jù)傳遞給形參，在被調(diào)用過程中形參的值方式改變不影響實(shí)參的值；按地址傳遞是實(shí)現(xiàn)調(diào)用過程和被調(diào)過程之間數(shù)據(jù)的雙向傳遞，按地址傳遞參數(shù)時，實(shí)參是將地址傳遞給形參，在被調(diào)用過程執(zhí)行時，形參的值發(fā)生變化時，與之對應(yīng)的實(shí)參也將發(fā)生變化。(2)局部變量是由dim定義變量，局部變量只在定義它的過程中有效，其他過程不能訪問這個局部變量；靜態(tài)變量是由static定義的，它具有連續(xù)

23、性，可以從一次調(diào)用傳遞給下一次調(diào)用。(3)private sub int( )s = inputbox(輸入一個數(shù))if cstr(cint(val(s) = s then msgbox yeselse: msgbox noend ifend sub (4)private sub command1_click()dim a(100) as integerdim n as integerdim i as integer, j as integer, x as integerfor i = 2 to 100x = 0for j = 2 to i - 1if i mod j = 0 then x =

24、 1next jif x = 0 thena(n) = in = n + 1end ifnext ifor i = 0 to n - 1if a(i + 1) - a(i) = 2 thenprint a(i) & ; & a(i + 1)end ifnextend sub(5)private sub command1_click()dim i%, j%, s$, m%for i = 10 to 9999 循環(huán)所有的2,3,4位的數(shù)s = cstr(i)m = 0for j = 1 to len(s) 每位的n次方,之和放到m中m = m + val(mid(s, j, 1) len(s)ne

25、xtif m = i then print i 如果是相等的print此值nextend sub第8章參考答案1填空題（1）編譯錯誤（2）debugprint a （3）運(yùn)行模式、 中斷模式 （4）on error goto 0。（5）rusume 0、resume next、resume /。2簡答題（1）答：（1）邏輯錯誤：如計算n！的程序中缺少語句s=1，程序在設(shè)計和運(yùn)行時都不會出現(xiàn)錯誤，但是無論我們給n賦什么值，都會給出錯誤的運(yùn)行結(jié)果0。（2）編譯錯誤：如輸入了錯誤的關(guān)鍵字dam。（3）運(yùn)行異常錯誤：如試圖訪問未準(zhǔn)備好的軟盤。（2）答：立即窗口顯示程序中debug.print語句的結(jié)果

26、。“立即窗口”是visual basic提供的一個功能強(qiáng)大的調(diào)試工具，可以從應(yīng)用程序中輸出信息到“立即窗口”，也可以在“立即窗口”中運(yùn)行visual basic語句。（3）答：監(jiān)視一個表達(dá)式的方式有三種：(1) 監(jiān)視表達(dá)式：當(dāng)過程中斷時顯示表達(dá)式的值，但不引起相關(guān)過程的自動中斷。如在計算階乘的程序中設(shè)置循環(huán)變量為監(jiān)視表達(dá)式，當(dāng)數(shù)據(jù)溢出時就會打開監(jiān)視窗口。(2) 當(dāng)監(jiān)視值為真時中斷：當(dāng)監(jiān)視表達(dá)式的值為真時，引起相關(guān)過程的自動中斷。如在計算階乘的程序中設(shè)置循環(huán)變量i6為監(jiān)視表達(dá)式，當(dāng)監(jiān)視表達(dá)式為真時就會打開監(jiān)視窗口。(3) 當(dāng)監(jiān)視值改變時中斷：當(dāng)監(jiān)視表達(dá)式的值改變時，引起相關(guān)過程的自動中斷。如在計

27、算階乘的程序中設(shè)置循環(huán)變量為監(jiān)視表達(dá)式，當(dāng)監(jiān)視表達(dá)式的值發(fā)生改變時就會打開監(jiān)視窗口。第9章參考答案1選擇題babcc2操作題（1）點(diǎn)擊窗體選中窗體(注：此時窗體的borderstyle屬性要為非0值)。打開菜單編輯器，方法：點(diǎn)擊工具欄上的菜單工具按鈕，或選擇“工具”菜單下的“菜單編輯器”菜項(xiàng)，或用ctr+e快捷鍵來打開菜單編輯器。在菜單編輯器中添加菜單項(xiàng)，分為主菜單和子菜單，方法參考本章。2、操作方法請參考本章講解。3、用菜單編輯器制作設(shè)置文字大小的菜單，將主菜單設(shè)置為隱藏，在文本框中添加彈出菜單命令代碼：private sub text1_mouseup(button as integer,

28、 shift as integer, x as single, y as single) 如果用戶在文本框點(diǎn)擊鼠標(biāo)右鍵，則彈出快捷菜單 if button = 2 then popupmenu mnucolorend sub實(shí)現(xiàn)文字大小功能的菜單項(xiàng)代碼如下：private sub mnufontsize_click(index as integer) select case index case 1 text1.fontsize = 10 case 2 text1.fontsize = 12 case 3 text1.fontsize = 14 case 4 text1.fontsize =

29、16 end selectend sub4、操作方法參考本章內(nèi)容。5、先在工具箱中添加該控件用commondialog的show方法和action屬性都能實(shí)現(xiàn)打開文件、保存、打印、字體、顏色、幫助標(biāo)準(zhǔn)對話框。6、添加新的窗體方法：點(diǎn)擊工具欄上的第二個添加窗體按鈕。執(zhí)行添加窗體”命令。設(shè)置啟動窗體方法：執(zhí)行“工程”菜單下的“*屬性(e)”第10章參考答案1選擇題dbadbbdccacacbc2操作題（1）分為以下3種類型：l 順序型文件：用于連續(xù)存放的文本數(shù)據(jù)。l 隨機(jī)型文件：用于有固定長度記錄結(jié)構(gòu)的文本數(shù)據(jù)或者二進(jìn)制數(shù)據(jù)。l 二進(jìn)制型文件：用于存放二進(jìn)制數(shù)據(jù)。方法、語句和函數(shù)參考第10章。（2

30、）private sub form_resize() text1.width = scalewidth text1.height = scaleheightend sub定義過程打開文件到文本框中sub readdata(filename as string) dim str as string open filename for input as #1 do until eof(1) line input #1, str text1.text = text1.text & str & chr(10) + chr(13) loop close #1end sub若想實(shí)現(xiàn)退出程序時提示是否保存請

31、加入代碼來自行設(shè)計private sub mnuexit_click(index as integer) unload me endend subprivate sub mnuopen_click() commondialog1.initdir = d:myvb commondialog1.filter = 所有文件(*.*)|*.*|文本文件(*.txt )|*.txt|word文檔|*.doc commondialog1.showopen msgbox 您將打開文件： & chr(10) + chr(13) & commondialog1.filename call readdata(co

32、mmondialog1.filename)end subprivate sub savedata(filename as string) open filename for output as #1 print #1, text1.text close #1end subprivate sub mnusave_click() commondialog1.showsave call savedata(commondialog1.filename)end sub（3）private sub command1_click() dim str as string commondialog1.initd

33、ir = d:myvb commondialog1.filter = 文本文件(*.txt )|*.txt commondialog1.showopen open filename for input as #1 do until eof(1) line input #1, str text1.text = text1.text & str & chr(10) + chr(13) loop close #1end sub（4）type teacher tname as string * 10 tsex as string * 2 tage as integer title as string

34、* 6 college as string * 12 salary as singleend typeprivate sub command1_click() dim str as string commondialog1.initdir = d:myvb commondialog1.filter = 文本文件(*.txt )|*.txt commondialog1.showopen open filename for input as #1 do until eof(1) line input #1, str print str loop close #1end sub第11章參考答案1、填

35、空題(1) 坐標(biāo)原點(diǎn)、坐標(biāo)度量單位、坐標(biāo)值(2) 緹、scalemode(3) scaletop 、 scaleleft 、scalewidth、 scaleheight、scaleleft、 scaletop+scaleheight、scaleleft+scalewidth、scaletop(4) rgb（255，255，0）、 qbcolor（14）、 &h00ffff&(5) autosize、stretch(6) (100,200) 、(200,400)(7) 1、2(8) 1、2、4(9) 按下鼠標(biāo)任意鍵，移動鼠標(biāo)，再釋放鼠標(biāo)鍵2、選擇題(1)b (2)c (3)b (4)d (5)

36、a 3、思考題：(1) scaleheight、scalewidth屬性是窗體坐標(biāo)系統(tǒng)內(nèi)部的高度和寬度的度量單位數(shù)，height、width屬性是窗體的絕對高度和寬度。(2)容器是可以在其內(nèi)部繪制圖形和放置其他對象的控件，容器內(nèi)的對象只能在容器的范圍內(nèi)移動位置，而且在移動容器時，容器內(nèi)的對象也隨之移動，并保持其在容器內(nèi)的相對位置不變。常見容器包括窗體、圖片框等(3)picturebox控件可以作為其他控件的容器，圖片框控件不能改變被裝入的圖形大小以適應(yīng)圖片框的尺寸，但是可以使用圖片框的autosize屬性調(diào)整圖片框的大小以適應(yīng)其裝入圖形的尺寸。image控件不是容器控件，不能作為父控件，圖像框

37、控件的stretch屬性設(shè)置為false時，圖像框可以自動改變大小以適應(yīng)其中的圖形，設(shè)置為true時，可以自動伸展圖像框中的圖形大小以適應(yīng)圖形框的尺寸。另外image控件使用的系統(tǒng)資源比圖片框少，重新繪圖的速度快。(4)在line畫出直線的終止點(diǎn)位置。(5)逆時針(6) bitmap位圖文件、icons圖標(biāo)文件、圖元文件、jpeg圖形文件、gif圖形文件(7) 圖像框控件的stretch屬性設(shè)置為false時，圖像框可以自動改變大小以適應(yīng)其中的圖形，設(shè)置為true時，可以自動伸展圖像框中的圖形大小以適應(yīng)圖形框的尺寸。(8) pset畫點(diǎn)、line畫直線或矩形、circle畫圓、橢圓、弧線或扇形

38、(9) 裝入圖形：圖片框?qū)ο髉icture=loadpicture(“圖形文件名”)刪除圖形：圖片框?qū)ο髉icture=loadpicture( )第12章參考答案1方法一：對toolbar控件點(diǎn)擊右鍵，彈出屬性頁對話框，選擇按鈕選項(xiàng)，利用按鈕選項(xiàng)中的“插入按鈕”和“刪除按鈕”增加和刪除toolbar上的按鈕。在按鈕選項(xiàng)中的“樣式”屬性可以控制按鈕的樣式。方法二：動態(tài)添加按鈕。在程序中我們可以使用add（index,key,cpation,style,image）方法添加按鈕。其中index表示按鈕在當(dāng)前按鈕組中的位置，key表示按鈕的關(guān)鍵字，cpation表示按鈕上顯示文字的內(nèi)容，style

39、表示按鈕的樣式，image表示按鈕上被顯示的圖片2add(relative,relationship,key,text,image,selectedimage) 其中relative（可選的）表示已存在的node對象的索引號，新節(jié)點(diǎn)與已存在的節(jié)點(diǎn)的關(guān)系，可以在下一個參數(shù)relationship中找到；relationship（可選的）表示指定node對象的相對位置；key（可選的）表示關(guān)鍵字；text（必需的）表示節(jié)點(diǎn)所顯示的內(nèi)容；image（可選的）表示節(jié)點(diǎn)的圖標(biāo)；selectedimage（可選的）表示當(dāng)選中節(jié)點(diǎn)時所顯示的圖片。第13章參考答案1填空題（1）datasource、 data1、dat