VB測(cè)試習(xí)題(必做部分)

1、VB必做測(cè)驗(yàn)及答案目錄實(shí)驗(yàn)4 選擇結(jié)構(gòu)程序設(shè)計(jì)2實(shí)驗(yàn)6 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)6實(shí)驗(yàn)7 數(shù)組8實(shí)驗(yàn)9 常用控件1015實(shí)驗(yàn)4 選擇結(jié)構(gòu)程序設(shè)計(jì)1.若整型變量a的值為2、b的值為3，則下列程序段執(zhí)行后整型變量c的值為_(kāi)。 If a5 then If b3 then c=a*b Else c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案：A2.下列程序的執(zhí)行結(jié)果為_(kāi)。 A=100:b=50 If ab Then a=a-b Else b=b+a End if Print a a) 50 b) 100 c) 200 d) 10 答案：A 3.以下程序輸出1到1000之間所有

2、的偶數(shù)之和，請(qǐng)補(bǔ)充完該程序。 Private Sub Command_Click() Dim x As Double For I=0 To 1000 If _ Then x=x+I End If Next I Print x End Sub a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 0 d) x Mod 2 0 答案：A4.下列程序段的執(zhí)行結(jié)果為 。x=Int(Rnd+4)Select Case xCase 3Print 優(yōu)秀Case 4Print 良好Case 5Print 合格Case ElsePrint 不合格End SelectA）優(yōu)秀B）良好C

3、）合格D）不合格答案：B5.以下程序段的執(zhí)行結(jié)果是_。 X=2:y=1 If x*y0 End If a) Ture b) False c) -1 d) 1 答案：B 6.設(shè)計(jì)兩個(gè)CheckBox，一個(gè)顯示粗體，一個(gè)顯示斜體，通過(guò)對(duì)CheckBox的選擇，在一個(gè)文本框中顯示相應(yīng)效果的文本，完成下列程序。Private Sub Form_Load()Check1.Caption=顯示粗體Check2.Caption=顯示斜體Text1.Text=Visual Basic 6.0End SubPrivate Sub Check1_Click()If Check1.Value =1 ThenText

4、1.FontBold=TrueElseText1.FontBold=FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value=1 ThenText1. FontItalic =TrueElseText1. FontItalic =FalseEnd IfEnd Sub7.下列程序的作用是將三個(gè)數(shù)按從大到小進(jìn)行排序，請(qǐng)補(bǔ)充完該程序。 If ab Then d=a:a=b:b=d EndIf If ac Then d=a:a=c:c=d EndIf If_Then d=b:b=c:c=d EndIf Print a,b,c 答案：b0 T

5、hen X=Y-3 Else Y=X+3Print X-Y;Y-X選擇一個(gè)答案 a. 3 -3 b. -3 3 c. 5 -8 d. 25 -25 10.下列說(shuō)法正確與否：If語(yǔ)句中的條件表達(dá)式中只能使用關(guān)系或邏輯表達(dá)式選擇一個(gè)答案 a. 正確 b. 錯(cuò)誤 11.以下說(shuō)法正確與否：在情況語(yǔ)句中，各分支（即Case表達(dá)式）的先后順序無(wú)關(guān)。選擇一個(gè)答案 a. 錯(cuò)誤 b. 正確 12.以下說(shuō)法正確與否：有If 則必有與之對(duì)應(yīng)的Endif。選擇一個(gè)答案 a. 錯(cuò)誤 b. 正確 實(shí)驗(yàn)6 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)1. 下列程序的執(zhí)行結(jié)果為_(kāi)。Dim S As Integer,n As Integer S=0:n=

6、1 Do While n=100 S=S+n n=n+1 Loop Print S a) 5050 b) 2500 c) 3000 d) 4000 答案：A 2. 以下程序計(jì)算2到50間所有偶數(shù)的和，請(qǐng)補(bǔ)充完該程序Sub mult()Dim Sum As IntegerSum=0Dim I as integerFor_to 50 If I MOD 2=_Then_ Next IPrint sumEnd Sub 答案：I=2#0#SUM=SUM+I3.下列程序段的執(zhí)行時(shí)，共循環(huán)_次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next

7、 bnext a 答案：12 4. 下列程序的執(zhí)行結(jié)果是_。 K=0 For I=1 To 3 a=IIK print a; Next I a) 1 1 1 b) 1 2 3 c) 0 0 0 d) 1 4 9 答案：A 5. 下列程序運(yùn)行后，輸出的結(jié)果為_(kāi)。 B=1 Do while (b40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6 d) 1 答案：A 6. 下列程序執(zhí)行后，變量s的值為_(kāi)。 Dim s As long ,x As Integer s=0:x=1 Do While (x5 x=x*y y=y+1loopprint x a) 2 b)

8、5 c) 10 d) 20 答案：C 8. 執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第一行是（15） ，第二行是（16） 。Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer c = -2 For a=6 To 1 Step c a = a +1 c = c-a b = b+1 Next a Print b Print cEnd Sub答案：6 -299.要實(shí)現(xiàn)同樣的循環(huán)控制，在Do While Loop和Do Loop While循環(huán)結(jié)構(gòu)中給定的循環(huán)條件一樣的。該結(jié)論是否正確：選擇一個(gè)答案 a. 正確 b

9、. 錯(cuò)誤 10.Do Loop While語(yǔ)句實(shí)現(xiàn)循環(huán)時(shí)，不管條件真假，首先無(wú)條件地執(zhí)行一次循環(huán)。該結(jié)論是否正確：選擇一個(gè)答案 a. 錯(cuò)誤 b. 正確 11.Do Loop Until語(yǔ)句實(shí)現(xiàn)循環(huán)時(shí)，只要條件是假，循環(huán)將一直進(jìn)行下去。該結(jié)論是否正確：選擇一個(gè)答案 a. 錯(cuò)誤 b. 正確 12.For循環(huán)語(yǔ)句正常結(jié)束（即不是通過(guò)Exit For語(yǔ)句退出循環(huán)或強(qiáng)制中斷）其循環(huán)控制變量的值一定大于“終值”，并等于“終值”+“步長(zhǎng)”。該結(jié)論是否正確：選擇一個(gè)答案 a. 正確 b. 錯(cuò)誤 13.如果有多重Do循環(huán)嵌套，位于最里層循環(huán)體語(yǔ)句中的Exit Do語(yǔ)句可以退出所有的循環(huán)。該結(jié)論是否正確：選擇一個(gè)

10、答案 a. 正確 b. 錯(cuò)誤 實(shí)驗(yàn)7 數(shù)組1. 在窗體上畫(huà)一個(gè)命令按鈕（其Name屬性為Command1），然后編寫(xiě)如下代碼：Private Sub Command1_Click()Dim a(5)For i=0 To 4A(i)=i+1t=i+1If t=3 ThenPrint a(i)A(t-1)=a(i-2)ElseA(t)=a(i)End if If i=3 Then a(i+1)=a(t-4)A(4)=1Print a(i)Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 1 2 3 1 4 1 。2. 設(shè)執(zhí)行以下程序段時(shí)依次輸入1、3、5，執(zhí)行結(jié)果為_(kāi)。 Dim a(

11、4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“請(qǐng)輸入數(shù)據(jù)：) b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5 d) 0 答案：A3. 如果有數(shù)組聲明 Dim a(10) As Integer，則該數(shù)組共有_個(gè)元素。 a) 10 b) 11 c) 9 d) 不確定 答案：B 4. 數(shù)組的下標(biāo)可取的變量類型是_。 a) 日期型 b) 字符型 c) 數(shù)值型 d) 可變型 答案：C 5. 用以下語(yǔ)句 Dim b(-2 to 4)as string 所定義的數(shù)組的

12、元素個(gè)數(shù)是_個(gè)。 a) 2 b) 4 c) 6 d) 7 答案：D6. 下列程序是將數(shù)組a的元素倒序交換，即第1個(gè)變?yōu)樽詈笠粋€(gè)，第2個(gè)變?yōu)榈箶?shù)第2個(gè)，設(shè)數(shù)組中有10個(gè)元素完成下列程序。Private Sub Backward(a()Dim i As Integer, Tmp As IntegerFor i=1 To 5Tmp=a(i) Next iEnd Sub7. 如下數(shù)組聲明語(yǔ)句，正確的是_。 a) dim a3,4 as intiger b) dim a(3,4) as string c) dim a(n,n) as single d) dim a(3 4) as integer 答案：

13、B 8.下列關(guān)于數(shù)組的說(shuō)法正確的是（ ）選擇一個(gè)答案 a. 在VB中，數(shù)組只能在模塊中定義，不能在過(guò)程中定義 b. 在VB中，一個(gè)數(shù)組中所包含的元素只能是相同類型的數(shù)據(jù) c. 在定義數(shù)組時(shí)，數(shù)組的每一維元素的個(gè)數(shù)必須是常數(shù)，不能是變量或表達(dá)式 d. 同普通變量一樣，數(shù)組也可以不定義，先使用 9.使用 Dim 定義數(shù)組時(shí)，其數(shù)組的上界或下界，可使用已賦值的變量。該結(jié)論是否正確：選擇一個(gè)答案 a. 正確 b. 錯(cuò)誤 10.數(shù)組的下界一定是大于 0 的整數(shù)。該結(jié)論是否正確：選擇一個(gè)答案 a. 錯(cuò)誤 b. 正確 11.可以在程序中多次使用 ReDim 語(yǔ)句來(lái)改變動(dòng)態(tài)數(shù)組的大小、維數(shù)和類型。 該結(jié)論是否

14、正確：選擇一個(gè)答案 a. 錯(cuò)誤 b. 正確 12.可以使用 Option Base 2 語(yǔ)句把數(shù)組下標(biāo)下界的默認(rèn)值設(shè)置為 2 。 該結(jié)論是否正確：選擇一個(gè)答案 a. 正確 b. 錯(cuò)誤 實(shí)驗(yàn)9 常用控件1. 所有控件都有的屬性是_，在程序中作為對(duì)象的標(biāo)識(shí)引用。 a) Caption b) Value c) Text d) name 答案：D 2. 下列_屬性用于設(shè)置或返回文本框中的文本。 a) Caption b) Text c) Name d) DragIcon 答案：B 3. 可以用作其它控件容器的控件有（ ） a) 窗體控件，列表控件，圖像控件 b) 窗體控件，文本框控件，框架控件 c)

15、窗體控件，框架控件，圖片框控件 d) 窗體控件，標(biāo)簽控件，圖片控件 答案：C 4. 以下不屬控件的一項(xiàng)是_。 a) 文本框 b) 標(biāo)簽框 c) 列表框 d) 消息框 答案：D 5. 改變控件在窗體中的上下位置應(yīng)修改控件的_屬性。 a) Top b) Left c) Width d) Height 答案：A 6. 復(fù)選框控件其Value屬性的可取值是_。 a) Trut和False b) 0和1 c) 1、2、3 d) 0、1、2 答案：D 7. 如果有三個(gè)單選按鈕直接畫(huà)在窗體上，另有四個(gè)單選按鈕畫(huà)在框架中，則運(yùn)行時(shí)，可以同時(shí)選中_個(gè)選項(xiàng)按鈕（提示：該題答案不能出現(xiàn)漢字）。 答案：28. 我們?cè)?/p>

16、一個(gè)窗體上建立兩個(gè)文本框，名稱分別為T(mén)ext1和Text2，事件過(guò)程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub則在Text1文本框輸入“visual basic”，Text2將顯示_。 a) Text2中無(wú)內(nèi)容顯示。 b) Text2顯示VISUAL BASIC。 c) Text2顯示visual basic d) Text1顯示visual basic 答案：B 9.選中復(fù)選框控件時(shí)，Value屬性的值為（ ）選擇一個(gè)答案 a. 1 b. True c. 0 d. False 10.讓復(fù)選框控件的事件過(guò)程不響應(yīng)事件，可修改控件的（ ）屬性。選擇