VB程序設(shè)計(jì)(20211201073525)

1、1 vb程序設(shè)計(jì)綜合復(fù)習(xí)資料一、填空題1.在 vb 中工程文件的擴(kuò)展名是_，窗體文件的擴(kuò)展名是_，標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是_。2.一個(gè)控件在窗體的位置由_和_屬性決定，其大小由_和 _屬性決定。3.變量的聲明分為兩種方法：_和_。4.使用 _方法可在窗體中進(jìn)行文本的輸出，用_方法可畫圓，用_方法可畫直線。5.類是具有相同性質(zhì)的對(duì)象的_。6.利用對(duì)象的屬性setfocus 可獲得焦點(diǎn)，對(duì)于一個(gè)對(duì)象，只有其visible 屬性和 _屬性為 true，才能接受焦點(diǎn)。7.文 件 按 存 取 方 式 及 其 組 成 結(jié) 構(gòu) 可 分 為 _ 文 件 、 _ 文 件 和_文件。8.在vb中 ， 用 _ 語(yǔ) 句

2、 設(shè) 定 數(shù) 組 的 下 界 ， 用 _ 和_語(yǔ)句分別返回?cái)?shù)組的上、下界。9.在窗體上畫一個(gè)名稱為“ command1 ” 、標(biāo)題為 “ 計(jì)算 ” 的命令按鈕，再畫7 個(gè)標(biāo)簽，其中5 個(gè)標(biāo)簽組成名稱為label1 的控件數(shù)組；名稱為label2 的標(biāo)簽用于顯示計(jì)算結(jié)果，其caption 屬性的初始值為空；標(biāo)簽label3 的標(biāo)題為 “ 計(jì)算結(jié)果 ” 。運(yùn)行程序時(shí)會(huì)自動(dòng)生成5 個(gè)隨機(jī)數(shù)，分別顯示在標(biāo)簽控件數(shù)組的各個(gè)標(biāo)簽中。單擊“ 計(jì)算 ” 按鈕，則將標(biāo)簽數(shù)組各元素的值累加，然后計(jì)算結(jié)果顯示在label2 中。請(qǐng)?zhí)羁铡rivate sub command1_click() sum = 0 for

3、 i=0 to 4 sum=sum+_ next i _=sum end sub 10.在窗體上畫兩個(gè)名稱分別為command1 和 command2、標(biāo)題分別為 “ 初始化 ” 和“ 求和 ” 的命令按鈕。程序運(yùn)行后，如果單擊“ 初始化 ” 命令按鈕，則對(duì)數(shù)組a 的各元素賦值；如果單擊“ 求和 ” 命令按鈕，則求出數(shù)組a 的各元素之和，并在文本框中顯示出來(lái)。請(qǐng)?zhí)羁?。option base 1 2 dim a(3,2) as integer private sub command1_click() ,“初始化”命令按鈕for i=1 to 3 for j=1 to 2 _=i+j next j

4、 next i end sub private sub command2_click() , “求和”命令按鈕for j=1 to 3 for i=1 to 2 s=s+_ next i next j text1.text= _ end sub 11.語(yǔ)句 for j = 3 to 20 step 3 使循環(huán)體執(zhí)行了_次。12.若要將窗體form1 隱藏起來(lái)，則可通過(guò)執(zhí)行代碼_來(lái)實(shí)現(xiàn)。13.要將焦點(diǎn)定位到命令按鈕command1 上，需要使用代碼_。14.為 了 使 一 個(gè)picture控 件 能 自 動(dòng) 根 據(jù) 裝 入 的 圖 片 調(diào) 整 大 小 ， 應(yīng) 設(shè) 置 該 控 件 的_屬性為 tr

5、ue。15.要使裝入到列表框中的數(shù)據(jù)項(xiàng)能自動(dòng)按字母順序排序，應(yīng)設(shè)置該控件的_屬性為_。16.在 visual basic 中聲明靜態(tài)變量的關(guān)鍵字是_。17.表達(dá)式 10 mod 6 4 的值為 _。18.窗體上放置了若干個(gè)文本框和命令按鈕，當(dāng)窗體裝入后， 要將焦點(diǎn)自動(dòng)定位到文本框text1上，則在設(shè)計(jì)時(shí)需要將_控件的 _屬性設(shè)置為 _。19.要使一個(gè)picture 控件不能自動(dòng)根據(jù)裝入的圖片調(diào)整大小，應(yīng)設(shè)置該控件的autosize 屬性為_。20.對(duì)于正在使用的動(dòng)態(tài)數(shù)組arraya() ，要增加一個(gè)單元，但不能破壞數(shù)組內(nèi)的數(shù)據(jù)，則必須在語(yǔ)句 redim 中包括 _。21.函數(shù) abs(x) 的

6、功能是 _。22.表達(dá)式 3/6*5 的值是 _。23.表達(dá)式 chr(asc(a) + 5) 的值為 _。24.vb 中使用注釋有2 種方法，即 _和_。3 25.vb 中的數(shù)據(jù)以四種形式存儲(chǔ)：常量、_、_和記錄。26.在標(biāo)簽控件中通過(guò)編程使文字換行用的代碼是_。27.要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀，應(yīng)設(shè)置的屬性值是_。28.設(shè)某列表框共有10 項(xiàng)，按題目要求補(bǔ)齊程序，完成相應(yīng)的功能。（ 1）按下命令按鈕command1 時(shí)將列表框第8 項(xiàng)的內(nèi)容顯示在窗體上：private sub command1_click( ) list._(7)=true print list1._ end

7、sub （ 2）單擊列表框某一項(xiàng)時(shí)立即將該項(xiàng)打印在窗體上：private sub list1_click( ) print_ end sub （ 3）按下命令按鈕command1 時(shí)在窗體上刪除第1、3、5、7、9 項(xiàng)：private sub command1_click( ) for i=1 to 5 list1._ next i end sub （ 4）在列表框的每一項(xiàng)之后插入一個(gè)新的項(xiàng)：private sub command1_click( ) for i=1 to 10 x=inputbox(“請(qǐng)輸入插入的第” & i & “ 項(xiàng)內(nèi)容 ”)list1.additem_

8、next i end sub 29.設(shè)在界面上放置了一個(gè)滾動(dòng)條hscroll1 和一個(gè)標(biāo)簽控件label1，要使每次單擊滾動(dòng)條兩端箭頭時(shí)，或單擊滾動(dòng)條滑塊與兩端箭頭之間的空白區(qū)域時(shí)，標(biāo)簽內(nèi)容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。private sub hscroll1._( ) label1.caption = hscroll1._ end sub 要使拖動(dòng)滾動(dòng)條滑塊時(shí)標(biāo)簽內(nèi)容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。private sub hscroll1._( ) label1.caption = hscroll1._ end sub 4 30.生成消息框的命令是_，生成輸入框的命令是_。二、選擇題1

9、以下敘述中錯(cuò)誤的是（）a事件過(guò)程是響應(yīng)特定事件的一段程序b不同的對(duì)象可以具有相同名稱的方法c對(duì)象的方法是執(zhí)行指定操作的過(guò)程d對(duì)象事件的名稱可以由編程者指定2以下合法的visual basic 標(biāo)識(shí)符是（）a forloop bconst c9abc da#x 3當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的value 屬性的值是（）a 3 b2 c1 d0 4表達(dá)式5 mod 3+35*2的值是（）a 0 b2 c4 d6 5設(shè) x=4,y=8,z=7 ，表達(dá)式 xz) or zx的值是（）a 1 b-1 ctrue dfalse 6假定有以下程序段：for i=1 to 3 for j=5 to 1 step

10、1 print i*j next j,i 則語(yǔ)句 print i*j 的執(zhí)行次數(shù)是（）a 15 b16 c17 d18 7以下敘述中錯(cuò)誤的是（）a如果過(guò)程被定義為static 類型，則該過(guò)程中的局部變量都是static 類型bsub 過(guò)程中不能嵌套定義sub 過(guò)程csub 過(guò)程中可以嵌套調(diào)用sub 過(guò)程d事件過(guò)程可以像通用過(guò)程一樣由用戶定義過(guò)程名8從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2 中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是（）a left b mid cstring dinstr 9以下能夠觸發(fā)文本框change 事件的操作是（）5 a文本框失去焦點(diǎn)b文本框獲

11、得焦點(diǎn)c設(shè)置文本框的焦點(diǎn)d改變文本框的內(nèi)容10假定有一個(gè)菜單項(xiàng)，名為menuitem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使用的語(yǔ)句為（）a menuitem.enabled=false bmenuitem.enabled=true cmenuitem.visible=true dmenuitem.visible=false 11為了使用通用對(duì)話框進(jìn)行打開文件的操作，應(yīng)將通用對(duì)話框的action 屬性設(shè)定為（）a 0 b1 c2 d3 12為了檢測(cè)到用戶按下鍵盤上的所有鍵，應(yīng)該使用的鍵盤事件為（）a keypress bmousedown ckeydown dmouseup 13用于從內(nèi)存刪

12、除窗體的命令是（）a move bhide cunload ddelete 14用于設(shè)置文件列表框控件顯示文件類型的屬性是（）a filter bpath cpartern dfilename 15用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵ǎ゛ scalewidth bscaleleft c scaleheight d scaletop 三、讀程序題1分析以下程序，寫出運(yùn)行結(jié)果。private sub form_click() score = int(rnd * 10) + 80 select case score case is 60 a$ = f case 60 to 69 a$ = d case

13、 70 to 79 a$ = c case 80 to 89 a$ = b case else a$ = a end select print a$ end sub 2讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。6 在窗體上有一個(gè)命令按鈕，名稱為command1。然后編寫如下程序：private sub command1_click() for i = 1 to 4 for j = 0 to i print chr$(65 + i); next j print next i end sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？3閱讀下面的程序，寫出執(zhí)行結(jié)果。private s

14、ub form_load() form1.show d = 0 for a = 1 to 2 for b = 1 to a for c = b to 5 d = d + 1 next c next b next a print d end sub 4閱讀下面的程序，分析并寫出其功能。sub insert(a() as single,byval x as single) dim m as integer,n as integer n=1 do while na(n) n=n+1 loop for m=20-1 to n step 1 a(m+1)=a(m) next m a(n)=x end s

15、ub 5分析以下程序，寫出運(yùn)行結(jié)果。sub selectprint() dim a as integer dim b as integer dim c as integer a=2:b=5:c=2 if(a=b)and(a=c) or (bc) then 7 print a a=a+2 else print b endif print a;b;c end sub 6閱讀下面的程序，寫出執(zhí)行結(jié)果。sub selectprint() dim a as integer dim b as integer dim c as integer a=3:b=3:c=2 if(a=b)and(ac)then p

16、rint a print a,b,c end sub 四、簡(jiǎn)答題1在程序設(shè)計(jì)中為什么盡量不用goto 語(yǔ)句？2框架的作用是什么？3滾動(dòng)條的change 事件和 scroll 事件有什么不同？4顏色函數(shù)主要有哪些？3如何為一個(gè)菜單項(xiàng)設(shè)置熱鍵和快捷鍵？4表達(dá)式23 and 44 的值是什么？8為了防止文本框中的信息運(yùn)行后被用戶修改，應(yīng)將什么屬性設(shè)置為什么值？9如何在框架中建立控件？10逐語(yǔ)句和逐過(guò)程有什么區(qū)別？五、編程題（界面自行設(shè)計(jì)）1編程求任意兩個(gè)正整數(shù)（利用兩個(gè)文本框輸入）的最大公約數(shù)，并利用標(biāo)簽輸出結(jié)果。2編程實(shí)現(xiàn)對(duì)n 個(gè)整數(shù)按由小到大的順序排序。3輸入一年號(hào)，判斷它是否是閏年。界面如下圖

17、所示，包括兩個(gè)標(biāo)簽、一個(gè)文本框和一個(gè)命令按鈕。 提示 ：如果此年號(hào)能被400 整除或者不能被400 除盡，也不能被100 除盡，但能被4 整除，則它是閏年；否則，不是閏年。4求一元二次方程ax2+bx+c=0 的根（包括實(shí)根和復(fù)根）。5隨機(jī)輸入10 個(gè) 100 以內(nèi)的整型數(shù)，計(jì)算其和及平均值。8 6輸入某學(xué)生成績(jī)（百分制），若是100成績(jī) 90 輸出優(yōu)秀；若是90成績(jī) 80 輸出良好；若是 80成績(jī) 70 輸出中等；若是70成績(jī) 60 輸出及格；若是60成績(jī) 0，輸出不及格；若是其他數(shù)則輸出error 信息。7實(shí)現(xiàn)二維數(shù)組（矩陣）轉(zhuǎn)置。8實(shí)現(xiàn)二進(jìn)制方式文件的復(fù)制。vb程序設(shè)計(jì)綜合復(fù)習(xí)資料參考答

18、案一、填空題1.vbp、frm、bas。2.left 、top、height、width。3.隱式聲明、顯示聲明。4.print 、circle、 line。5.集合。6.enabled。7.順序、隨機(jī)、二進(jìn)制。8.option base、ubound、 lbound。9.label1(i).caption 、label2.caption 10. a(i,j) 、a(j,i) 、s 11.6。12.form1.hide 。13.command1.setfocus。14.autosize。15.sorted、ture。16.static。17.0。18.text1、tabindex、0 19.f

19、alse 20.preserve 21.求 x 的絕對(duì)值22.2.5 9 23.f 24.rem、?25.變量、數(shù)組26.chr(10) 27.mousepointer 28.selected、text、 list1.text 、removeitem 2*i-1 、x,2*i-1 29.change、value、scrol、value 30.msgbox 、inputbox 二、選擇題dacbd 、addda 、bccca 三、讀程序題1、結(jié)果如下：b 2、結(jié)果如下：bb ccc dddd eeeee 3、結(jié)果如下：14 4、功能如下：在 20 個(gè)由小到大排列的數(shù)據(jù)中插入一個(gè)數(shù)，插入數(shù)據(jù)后的數(shù)

20、據(jù)仍按由小到大的順序排列。5、結(jié)果如下：2 452 6、結(jié)果如下：3 3 3 2 四、簡(jiǎn)答題答案要點(diǎn)1、主要是為了結(jié)構(gòu)化。10 2、框架主要是用作容器，可以實(shí)現(xiàn)多組單選按鈕，并且可以美化界面。3、主要是用鼠標(biāo)拖動(dòng)滑塊時(shí)對(duì)value 屬性的影響不同。4、顏色函數(shù)主要有：rgb、qbcolor 。3、為一個(gè)菜單項(xiàng)設(shè)置熱鍵時(shí)需要在相應(yīng)字符前面加&，設(shè)置快捷鍵需要在菜單編輯器中選擇。4、false。8、應(yīng)將 locked 屬性設(shè)為 true。9、先建立框架，然后再在其中建立控件。10、逐語(yǔ)句和逐過(guò)程的區(qū)別：前者進(jìn)入過(guò)程內(nèi)部，而后者不進(jìn)入過(guò)程內(nèi)部。五、編程題說(shuō)明：只要能完成指定的功能，界面怎么設(shè)

21、計(jì)都行。也就是說(shuō)，界面如何以及代碼寫在哪個(gè)事件中都沒有關(guān)系，但前提是必須保證完成相應(yīng)的功能。1、參考程序如下：private sub command1_click() dim m, n, r as integer m = val ( text1.text ) n = val ( text2.text ) if m 0 or n 0 then label2.caption = 輸入數(shù)據(jù)有錯(cuò)！ else r = m mod n do while r 0 m = n n = r r = m mod n loop label2.caption = 最大公約數(shù)為： & n end if end

22、sub 2、參考程序如下：private sub sort(arraya() as integer, n as integer) 11 dim p as integer, i as integer, j as integer, temp as integer for i = 1 to n - 1 p = i for j = i + 1 to n if arraya(p) arraya(j) then p = j next j if p i then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = temp next i end su

23、b 3、參考程序如下：private sub command1_click() dim year, x as integer year = val(text1.text) if year mod 400 = 0 then label2.caption = 是閏年 else if year mod 4 = 0 and year mod 100 0 then label2.caption = 是閏年 else label2.caption = 不是閏年 end if end if end sub 4、參考程序如下：private sub command1_click() dim a, b, c,

24、delt, realpart, imagpart as single a = val(text1.text): b = val(text2.text): c = val(text3.text): delt = b * b - 4 * a * c if a = 0 then label2.caption = 是一元一次方程: 12 if b0 then text4.text = x1= & -c / b else if c=0 then text4.text = 有無(wú)窮根 else text4.text = 無(wú)根 end if end if else if delt = 0 then l

25、abel2.caption = 有兩個(gè)相等的實(shí)根: text4.text = x1= & -b / 2 / a text5.text = x2= & -b / 2 / b elseif delt 0 then label2.caption = 有兩個(gè)不等的實(shí)根: text4.text = x1= & (-b + sqr(delt) / (2 * a) text5.text = x2= & (-b - sqr(delt) / (2 * a) else label2.caption = 有兩個(gè)共軛復(fù)根: realpart = -b / (2 * a) imagpar

26、t = sqr(-delt) / (2 * a) text4.text = x1= & realpart & + & imagpart & i text5.text = x2= & realpart & - & imagpart & i end if end if end sub 5參考代碼如下：private sub form_click() dim a(10) as integer, i as integer 13 dim sum as integer, ave as integer sum = 0 for i = 1 to

27、10 a(i) = int(rnd * 101) sum = sum + a(i) next i ave = sum / 10 print sum, ave end sub 6參考代碼如下：private sub command1_click() dim x as single x = val(text1.text) if x 100 or x 0 then text2.text = error elseif x 60 then text2.text = 不及格 elseif x 70 then text2.text = 及格 elseif x 80 then text2.text = 中等 elseif x 90 then text2.text = 良好 else text2.text = 優(yōu)秀 end if end sub 7參考代碼如下：option base 1 private sub form_load() 14 const n = 4 常量 n 決定二維數(shù)組大小d