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

1、九江學(xué)院期末考試復(fù)習(xí)題（政法A1111）第一套一、判斷題1、Visual Basic程序開發(fā)的特點(diǎn)是面向?qū)ο蟮氖录?qū)動。 （）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 IF。（）8、當(dāng)終值小于初值時(shí)，步長為負(fù)數(shù)。 （）9、執(zhí)行While-Wend循環(huán)時(shí)，如果一開始條件就不成立，則語句塊一次也不會執(zhí)行。（）10、關(guān)于數(shù)組的引用,在程序中,凡

2、是簡單變量可以出現(xiàn)的地方都可以出現(xiàn)數(shù)組元素的引用 ()二、單項(xiàng)選擇題1Print Format（123，”#”）執(zhí)行之后的結(jié)果為A）123 B）123 C）123 D）【答案】B2下面可以表示注釋語句開頭的為A）Re B）R C）Rem D）dim 【答案】C3下列選項(xiàng)中窗體載入事件為A）Load事件 B）Click事件 C）DblClick事件 D）Unload事件【答案】A4Timer控件可以使用下列哪種事件A）Click事件 B）Timer事件 C）Dblclick事件 D）Change事件【答案】B5在InputBox函數(shù)中哪一個(gè)參數(shù)是必須的A）Prompt B）Buttons C）T

3、itle D）Context【答案】A6以下敘述中錯誤的是：A）如果過程被定義為Static類型，則該過程中的局部變量都是Static類型B）Sub過程中不能嵌套定義Sub過程C）Sub過程可以嵌套調(diào)用Sub過程D）事件過程可以像通用過程一樣由用戶定義過程名【答案】C7要填加一個(gè)標(biāo)準(zhǔn)模塊，可使用“_”菜單中的“添加模塊”命令。A）文件 B）視圖 C）工程 D）工具【答案】 C8在塊結(jié)構(gòu)條件語句If-Then / Endif中(A) 必須至少有一個(gè)Elseif語句(B ) 可以有任意多個(gè)ElseIf-Then語句(C) 如果沒有Else語句，運(yùn)行時(shí)將出現(xiàn)錯誤(D ) 給定的條件只能是關(guān)系表達(dá)式或

4、邏輯表達(dá)式【答案】B9以下Case語句中錯誤的是(A) Case 10 To 1 (B) Case Is10 (C)Case Is10 , Is10【答案】A10對Do UntilLoop循環(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)【答案】B11語句Dim arr(-3 To 5, 2 To 6) As Integer定義的數(shù)組元素有_個(gè)。A) 45 B) 40 C) 11 D) 54【答案】A12下列關(guān)于Option Base語句說法錯

5、誤的是_DA) Option Base語句只能出現(xiàn)在窗體層或模塊層B) Option Base語句不能出現(xiàn)在過程中C) Option Base語句必須位于數(shù)組的定義之前D) Option Base語句只對一維數(shù)組有效【答案】D13、Visual Basic的特點(diǎn)不包括下面的（A）A 不需編程 B 面向豆象的程序設(shè)計(jì)C 可視化程序設(shè)計(jì) D 時(shí)間驅(qū)動的程序設(shè)計(jì)14、從鍵盤上能夠輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是（D）A Left B MidC String D Instr15、如果將布爾常量值True賦值給一個(gè)整型變量，則整型變量的

6、值為（B）A 0 B -1C True D false16、下列符號常量的聲明中，（C）是不合法的。A Const a As Single = 1.1 B Const a As Integer = “12”C Const a As Double = Sin(1) D Const a =”O(jiān)K”17、四個(gè)字符“E”,“y”,“B”,“8”的ASCII碼值最大的是（B）A “E” B “y”C “B” D “8”18、將變量k四舍五入保留2位小數(shù)的表達(dá)式是（C）A Int(k+0.5)*100)/100 B Int(k*100)/100)+0.5C Int(k*100+0.5)/100 D Int

7、(k*(100+0.5)/100”19、30將數(shù)學(xué)表達(dá)式Cos2(a+b)+5e2寫成Visual Basic的表達(dá)式，其正確的形式是（A）A) Cos(a+b)2+5*exp(2) B) Cos2(a+b)+5*exp(2)C) Cos(a+b)2+5*ln(2) D) Cos2(a+b)+5*ln(2)20、在順序文件中，當(dāng)使用Write#語句時(shí)，文件打開的方式必須是（B）A Output和Input B Output和AppendC Output D Append三、程序分析題1以下語句的輸出結(jié)果是（注：表示一個(gè)空格） a = 123b = 456Print a; bA）123456 B

8、）123456 C）123456 D）123456【答案】D2下列程序執(zhí)行的結(jié)果為 x = -6 2Print Sgn(x) + Abs(x) + Int(x)A）36 B）1 C）1 D）72【答案】C3在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Label1的標(biāo)簽，然后編寫如下的事件過程：Private Sub Command1_Click() s = 0 For i = 0 To 15 X = 2 * i - 1 If X Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = sEnd Sub程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示

9、的內(nèi)容為A）1 B）5 C）27 D）45【答案】B4在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Label1、Label2、Label3的標(biāo)簽，然后編寫如下的事件過程： Private x As IntegerPrivate 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 = zEnd Sub運(yùn)行程序后，連續(xù)三次單擊命令按鈕后，則三個(gè)

10、標(biāo)簽中顯示的內(nèi)容分別是A）10 10 10 B）30 30 30 C）30 30 10 D）10 30【答案】C5在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Label1、Label2的標(biāo)簽，然后編寫如下的事件過程： Private x As IntegerPrivate Sub Command1_Click() x = 5: y = 3 Call Proc(x, y) Label1.Caption = x Label2.Caption = yEnd SubPrivate Sub Proc(ByVal a As Integer, ByVal b As Integer) x = a

11、 * a y = b + bEnd Sub運(yùn)行程序后，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是A）5和3 B）25和3 C）25和6 D）5和6 【答案】B6.下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確的是 （A）If xy Then Max=x Else Max=y （B） Max=IIf(xy,x,y)（C）If y=x Then Max=y Max=x (D)If yx Then Max=y Max=x【答案】D7如果x的值大于或等于y的立方，則打印“OK”，表示這個(gè)條件的單行格式的If語句是A）If x=y3 Print “OK” B）If x=y*y*y Then “OK”C）If x=y3 Then

12、Print “OK” D）If x=y*y*y Then Print “OK” End If【答案】C8下列程序段執(zhí)行結(jié)果為 x = 5y = -6If Not x 0 Then x = y - 3 Else y = x + 3Print y - x; x - y A) 3 3 B) 9 5 C) 3 3 D) 5 6 【答案】A9已知x的值，計(jì)算分段函數(shù)f(x)，下面選項(xiàng)不正確的是當(dāng) x=1， f(x)= ；當(dāng)x1 ，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

13、=sqr(x+1 ) else f= x2+3【答案】B10執(zhí)行完下面的程序段后，循環(huán)執(zhí)行了( )次。For i = 1.7 To 5.9 Step 0.9 a = a + 1 Print aNext IA3 B4 C5 D6【答案】C11下列程序段的執(zhí)行結(jié)果為( )。n = 0j = 1Do Until n 2 n = n + 1 j = j + n * (n + 1)LoopPrint n; jA0 1 B3 7 C3 21 D3 13【答案】C12以下正確的ForNext結(jié)構(gòu)是 （A） For x=1 To 10 for y=1 to 10Next （B）For x=1 To 10 fo

14、r y=1 to 10 Next y , x（C）For x=1 To 10 for y=1 to 10Next x Next y（D）For x=1 To 10 for y=1 to 10 Next x , y【答案】B13下列程序中，第一個(gè)Do語句共執(zhí)行了( )次循環(huán)。Dim i As Integer, j As Integeri = 1Do j = 1 Do Sum = Sum + j j = j + 2 Print j; Loop Until j 3 i = i + 2Loop Until i 10Print SumA10 B20 C5 D7【答案】A14下列語句中，a是一個(gè)數(shù)組，則使

15、用正確的是_A) Option Base 2B) Redim aC) Erase aD) a = Array()【答案】C15.在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private 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) + arr

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

17、體上顯示的是_A) 1 2 3 2 4 63 6 9 B) 2 3 4 3 4 54 5 6C) 1 4 7 2 5 8 3 6 9D) 1 2 3 4 5 6 7 8 9【答案】D17.設(shè)有如下程序：Option Base 0Private 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); NextEnd Sub程序運(yùn)行后，單擊窗體，則在窗體上顯示的是_A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4【答案】C

18、18執(zhí)行以下Command1的Click事件過程在窗體上顯示_。Private Sub Command1_Click() Dim a a = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”) Print a(1); a(3); a(5)End SubA) a b c B) b d f C) a c e D) 出錯【答案】B19、設(shè)有語句Openc:Test.DatFor Output As#1則以下錯誤的敘述是（B）A）該語句打開C盤根目錄下一個(gè)已存在的文件Test.DatB）該語句在C盤根目錄下建立一個(gè)名為Test.Dat的文件C）該語句建立的文件的文件號為1D）執(zhí)行該語句后，就可以通過Print#語句向文件Test.Dat中寫入信息20、 以下代碼完成對順序文件test1.txt追加打開的是（C）A）Open test1.txt For Input As #1B）Open test1.txt For Output As #1C）Open test1.txt For Append As #1D）Open test1.txt For Redom As #1四、上機(jī)題1小王