九江學(xué)院VB期末考試題目及詳細(xì)答案

1、九江學(xué)院期末考試復(fù)習(xí)題（政法 A1111） 第一套 一、判斷題 1、Visual Basic程序開發(fā)的特點(diǎn)是面向?qū)ο蟮氖录?qū)動(dòng)。（“ 2、Print_Text 是一個(gè)不合法的變量名。（為3、窗體的AutoRedraw屬性實(shí)現(xiàn)了屏幕圖像的重 建。（“ 4、設(shè)置字體大小應(yīng)使用Font屬性（為 5、Sub過程可以實(shí)現(xiàn)嵌套調(diào)用（“ 6、IIF函數(shù)中的三個(gè)參數(shù)都不能省略。（坊 7、塊結(jié)構(gòu)條件語句以End If結(jié)束，而單行結(jié)構(gòu)條件語句沒有 End IR （“ 8當(dāng)終值小于初值時(shí)，步長為負(fù)數(shù)。（“ 9、執(zhí)行 While-Wend 循環(huán)時(shí)，如果一開始條件就不成立，則語句塊一次也 不會(huì)執(zhí)行。（坊 10、關(guān)于數(shù)組

2、的引用 ,在程序中 ,凡是簡單變量可以出現(xiàn)的地方都可以出現(xiàn)數(shù) 組元素的引用（“） 二、單項(xiàng)選擇題 1Print Format（123， ” # ”執(zhí)行之后的結(jié)果為 A 123B 123C 123D 【答案】 B 2下面可以表示注釋語句開頭的為 A Re B R C Rem D dim 【答案】 C 3下列選項(xiàng)中窗體載入事件為 A) Load 事件 B) Click 事件 C) DbICIick 事件 D) Un load 事件 【答案】 A 4Timer 控件可以使用下列哪種事件 A) Click事件 B) Timer 事件 C) DblcIick 事件 D) Change事件 【答案】 B

3、5在 InputBox 函數(shù)中哪一個(gè)參數(shù)是必須的 A) Prompt B) Buttons C) Title D) Context 【答案】 A 6以下敘述中錯(cuò)誤的是： A)如果過程被定義為Static類型，則該過程中的局部變量都是 Static類型 B) Sub過程中不能嵌套定義Sub過程 C) Sub過程可以嵌套調(diào)用Sub過程 D) 事件過程可以像通用過程一樣由用戶定義過程名 【答案】 C 7要填加一個(gè)標(biāo)準(zhǔn)模塊，可使用 “菜”單中的 “添加模塊 ”命令。 A)文件B)視圖C)工程D)工具 【答案】 C 8 .在塊結(jié)構(gòu)條件語句If-Then / Endif中 (A) 必須至少有一個(gè)Elsei

4、f語句 (B )可以有任意多個(gè)Elself-Then語句 (C)如果沒有Else語句，運(yùn)行時(shí)將出現(xiàn)錯(cuò)誤 (D )給定的條件只能是關(guān)系表達(dá)式或邏輯表達(dá)式 【答案】 B 9.以下Case語句中錯(cuò)誤的是 (A) Case 10 To 1 (B) Case Is10 (C) Case Is10 , Is10 【答案】 A 17 / 17 10.對(duì) Do Until Lo循p環(huán)， 正確的是 () A. 如果循環(huán)條件為常數(shù)0,則一次循環(huán)也不執(zhí)行 B. 如果循環(huán)條件為常數(shù)0,則至少執(zhí)行一次循環(huán) C. 如果循環(huán)條件是不為0的常數(shù)，則至少執(zhí)行一次循環(huán) D. 無論循環(huán)條件是否為True，則至少執(zhí)行一次循環(huán) 答案】

5、 B 11 .語句Dim arr(-3 To 5, 2 To 6) As Intege定義的數(shù)組元素有 A) 45 B) 40 C) 11 D) 54 【答案】 A 12 .下列關(guān)于Option Base語句說法錯(cuò)誤的是 D A) Optio n Base語句只能出現(xiàn)在窗體層或模塊層 B) Optio n Base語句不能出現(xiàn)在過程中 C) Optio n Base語句必須位于數(shù)組的定義之前 D) Optio n Base語句只對(duì)一維數(shù)組有效 【答案】 D 13、Visual Basic的特點(diǎn)不包括下面的(A) A 不需編程 B 面向豆象的程序設(shè)計(jì) C 可視化程序設(shè)計(jì) D 時(shí)間驅(qū)動(dòng)的程序設(shè)計(jì)

6、14、 從鍵盤上能夠輸入兩個(gè)字符串，分別保存在變量str1 、 str2 中。確定第 二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是( D) A Left B Mid C String D Instr 15、如果將布爾常量值True賦值給一個(gè)整型變量，則整型變量的值為 ( B) A 0B -1 C True D false 16、下列符號(hào)常量的聲明中，(C)是不合法的。 A Const a As Single = 1.1B Const a As Integer =“ 12” C Const a As Dou Sin(1)D Const a =” OK” 17、 四個(gè)字符“ E”，“ y ”，的“A

7、”CI碼值最大的是(B) A “ E” B “ y” C “ B” D “ 8 ” 18、將變量 k 四舍五入保留 2 位小數(shù)的表達(dá)式是( C) A Int(k+0.5)*100)/100B Int(k*100)/100)+0.5 C Int(k*100+0.5)/100D Int(k*(100+0.5)/100” 19、30.將數(shù)學(xué)表達(dá)式 Cos2(a+b)+5e2寫成Visual Basic的表達(dá)式，其正確 的形式是( A) A) Cos(a+b)A2+5*exp (2)B) CosA2(a+b)+5*exp(2) C) Cos(a+b)A2+5*l n( 2)D) CosA2(a+b)+

8、5*l n(2) 20、 在順序文件中，當(dāng)使用 Write#語句時(shí)，文件打開的方式必須是(B) A Output 和 Input B Output 和 Append C Output D Append 三、程序分析題 1 .以下語句的輸出結(jié)果是(注： 表示一個(gè)空格) a = 123 b = 456 Print a; b A) 123 456B) 123 456C) 123 456 D) 123 456 【答案】 D 2. 下列程序執(zhí)行的結(jié)果為 x = -6 A 2 Print Sgn(x) + Abs(x) + Int(x) A)36B) 1C)1D)72 【答案】 C 3. 在窗體上畫一個(gè)名

9、稱為 Command1 的命令按鈕，一個(gè)名稱為 Label1 的 標(biāo)簽，然后編寫如下的事件過程： Private Sub Command1_Click() For i = 0 To 15 X = 2 * i - 1 If X Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = s End Sub 程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容為 A)1B)5C)27D)45 Label1、 【答案】 B 4在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，一個(gè)名稱為 Label2、Label3的標(biāo)簽，然后編寫如下的事件過程： Private x A

10、s Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 運(yùn)行程序后，連續(xù)三次單擊命令按鈕后，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是 A)101010B)303030C)303010D)1030 【答案】 C 5在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，一個(gè)名稱為 Label1、 Label2的標(biāo)簽，

11、然后編寫如下的事件過程： Private x As Integer Private Sub Command1_Click() x = 5: y = 3 Call Proc(x, y) Label1.Caption = x Label2.Caption = y End Sub Private Sub Proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub 運(yùn)行程序后，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是 A) 5 禾口 3B) 25 禾口 30 25 禾口 6D) 5 禾口 6 【答案】 B 6. 下面程序段求兩個(gè)

12、數(shù)中的大數(shù)，不正確的是 (A) If x y Then Max=x Else Max=y (B) Max=llf(xy,x,y) ( C) If y =x Then Max=y Max=x (D)lf yx Then Max=y Max=x 【答案】 D 7. 如果x的值大于或等于y的立方，則打印“OK表示這個(gè)條件的單行格 式的 lf 語句是 A) If x=yA3Print“ OK B) lf x=y*y*y Then“OK” C) lf x=yA3Then Print“ OK” D) lf x=y*y*y Then Print“ OK”End lf 【答案】 C 8. 下列程序段執(zhí)行結(jié)果為

13、 x = 5 y = -6 lf Not x =1, f(x)二； 當(dāng) XV 1, f(x)= x2+3 (A) Select Case x Case Is=1 f=sqr(x+1 ) Case x=1 f=sqr(x+1 ) Case Is=1 then f=sqr(x+1 ) else f= xA2+3 【答案】 B 10執(zhí)行完下面的程序段后，循環(huán)執(zhí)行了 ( For i = 1.7 To 5.9 Step 0.9 a = a + 1 Print a Next I A 3 B4 C 5 D6 【答案】 C 11下列程序段的執(zhí)行結(jié)果為 ()。 n = 0 j = 1 Do Until n 2

14、n = n + 1 j = j + n * (n + 1) Loop Print n; j A. 01 B. 37 C. 321 D. 313)次?！敬鸢浮緾 12 .以下正確的ForNe結(jié)構(gòu)是 （A）For x=1 To 10 for y=1to 10 Next （B）For x=1 To 10 for y=1to 10 Next y , x （C）For x=1 To 10 for y=1to 10 Next x Next y （D）For x=1 To 10 for y=1to 10 Next x , y 【答案】 B 13 .下列程序中，第一個(gè)Do語句共執(zhí)行了（）次循環(huán) Dim i A

15、s Integer, j As Integer i = 1 Do j = 1 Do Sum = Sum + j j = j + 2 Print j; Loop Until j 3 i = i + 2 Loop Until i 10 Print Sum A10 B20 C5 D 7 【答案】 A 14下列語句中， a 是一個(gè)數(shù)組，則使用正確的是 A) Option Base 2 B) Redim a C) Erase a D) a = Array() 【答案】 C 15.在窗體上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Command1 的命令 按鈕，然后編寫如下事件過程： Private

16、 Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 for j = 2 To 4 array1(i, j) = i + j next j next i Text1.Text = arrry1(2, 3) + array(3, 4) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 A) 12B) 13C) 14D) 15 【答案】 A 16.在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下事件過 程： Private Su

17、b Command1_Click() Dim a (10,10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 for j = 1 To 3 a (i, j) = (i -) * 3 + j Print a(i, j ); next j Print next i End Sub 程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 A) 1 2 3 2 4 6 3 6 9 B) 2 3 4 3 4 5 4 5 6 C) 1 4 7 2 5 8 3 6 9 D) 1 2 3 4 5 6 7 8 9 【答案】 D 17.設(shè)有如下程序： Opt

18、ion Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 -i); Next End Sub 程序運(yùn)行后，單擊窗體，則在窗體上顯示的是 A) 4 3 2 1B) 5 4 3 2C) 6 5 4 3D) 7 6 5 4 【答案】 C 18 .執(zhí)行以下Command1的Click事件過程在窗體上顯示 c Private Sub Command1_Click() Dim a a = Array(“ a” , ” b” , ” c” ,

19、 ” d” , ” e” , ” f, ” , ” g”) Print a(1); a(3); a(5) End Sub A) a b c B) b d f C) a c e 出錯(cuò) 【答案】 B 19 、設(shè)有語句 Openc:Test.DatFor Output As#1 則以下錯(cuò)誤的敘述是( B) A) 該語句打開C盤根目錄下一個(gè)已存在的文件 Test.Dat B) 該語句在C盤根目錄下建立一個(gè)名為Test.Dat的文件 C) 該語句建立的文件的文件號(hào)為1 D) 執(zhí)行該語句后，就可以通過 Print#語句向文件Test.Dat中寫入信息20、 以下代碼完成對(duì)順序文件 test1.txt 追加打開的是( C) A) Open test1.txt For Input As #1 B) Open test1.txt For Output As #1 C) Open test1.txt For Append As #1 D) Open test1.txt For R