VB考試題庫(kù)-二級(jí)習(xí)題

1、VB考試一1、能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是_。 A：SelStart B：SelLength C：SelText D：Text參考答案：C2、在窗體上畫一個(gè)文本框，其名稱為Text1，為了在程序運(yùn)行后隱藏該文本框，應(yīng)當(dāng)使用的語句為：_。 A：Text1.Enabled = False B：Text1.Hide C：Text1.Clear D：Text1.Visible = False參考答案：D3、對(duì)于語句 If x=1 Then y=1, 下列說法正確的是_。 A： x=1和y=1 均為賦值語句 B： x=1和y=1 均為關(guān)系表達(dá)式 C： x=1為賦值語句，y=1為關(guān)系表達(dá)式

2、 D： x=1為關(guān)系表達(dá)式，y=1 為賦值語句參考答案：D4、以下變量名中，_是不符合Visual Basic的命名規(guī)范的。 A：_mnu_Open_234 B：Abc901 C：price_ D：K參考答案：A5、MsgBox 函數(shù)返回值的類型是_。 A：數(shù)值或字符串 B：字符串 C：變體 D：整型數(shù)值參考答案：D6、VB一共有設(shè)計(jì)、運(yùn)行和中斷三種模式，要使用調(diào)試工具應(yīng)該_。 A：進(jìn)入中斷模式 B：進(jìn)入運(yùn)行模式 C：進(jìn)入設(shè)計(jì)模式 D：不用進(jìn)入任何模式參考答案：A7、設(shè)a=6，則執(zhí)行 x=IIF(a5,-1,0) 后，x的值為_。 A：-1 B：6 C：0 D：5參考答案：A8、可以同時(shí)刪除字

3、符前導(dǎo)和尾部空白的函數(shù)是_。 A：Mid B：Rtrim C：Trim D：Ltrim參考答案：C9、以下語句的輸出結(jié)果是_。 Print Format$(32548.5,000,000.00) A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50參考答案：C10、設(shè)有如下聲明：Dim X As Integer如果Sgn(X)的值為-1，則X的值是_。 A：等于0的整數(shù) B：大于0的整數(shù) C：整數(shù) D：小于0的整數(shù)參考答案：D11、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() For i = 1 T

4、o 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print xEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。參考答案： 15# 15 #15 #1512、執(zhí)行下面的程序段后，S的值為_。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i參考答案：913、下列表達(dá)式有錯(cuò)誤,正確的寫法應(yīng)該是_。 (a+b)+c/80-5(d+e)參考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）14、表示x 是5的倍數(shù)或是9的倍數(shù)的

5、邏輯表達(dá)式為_參考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 015、以下程序的功能是:從鍵盤上輸入若干個(gè)數(shù)字，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，統(tǒng)計(jì)出若干數(shù)字的平均值，輸出結(jié)果。請(qǐng)?zhí)羁?。Private Sub Form_click() Dim x, y As Single Dim z As Integer x = InputBox(Enter a score) Do while x=0 y = y + x z = z + 1 x = InputBox(Enter a score) Loop If z = 0 Then z = 1 End

6、If y = _ Print yEnd Sub參考答案：y/zVB考試二1、列表框中的列表項(xiàng)的數(shù)目可以通過以下哪個(gè)屬性的值獲得_。 A：ListIndex B：ListCount C：Count D：Index參考答案：B2、在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確實(shí)現(xiàn)上述功能的程序是_。 A：Private Sub List1_Click() Label1.Caption=List1.Text End Sub B：Private Sub List1_Click() L

7、abel1.Name=List1.ListIndex End Sub C：Private Sub List1_Click() Label1.Name=List1.Text End Sub D：Private Sub List1_Click() Label1.Caption=List1.ListIndex End Sub參考答案：A3、在列表框中當(dāng)前被選中的列表項(xiàng)的序號(hào)是由下列哪個(gè)屬性表示_。 A：Listindex B：Index C：List D：Tabindex參考答案：A4、為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是：_。 A：Clear B：Remove C：RemoveItem D：

8、Cls參考答案：A5、在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語句為_。 A：For i=1 To List1.ListCount NEXT B：For i=0 To List1.Count-1 NEXT C：For i=0 To List1.ListCount-1 NEXT D：For i=1 To List1.Count NEXT參考答案：C6、設(shè)有如下程序：Option Base 0Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7,

9、8, 9) For i = 0 To 3 Print a(5 - i); NextEnd Sub程序運(yùn)行后，單擊窗體，則在窗體上顯示的是_。 A： 6 5 4 3 B： 5 4 3 2 C： 4 3 2 1 D： 7 6 5 4參考答案：A7、設(shè)執(zhí)行以下程序段時(shí)依次輸入1、3、5，執(zhí)行結(jié)果為_。 Dim a(4) As Integer, 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： 0 B： 3 C： 5 D： 1參考答案：D8、在窗體

10、上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是_。 A： 1 2 3 4 5 6 7 8 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 2 4 6 3 6

11、 9參考答案：A9、用下面的語句所定義的數(shù)組的元素個(gè)數(shù)是：_。Dim arr(3 To 5,-2 to 2) A：24 B：12 C：15 D：20參考答案：C10、下列_語句可以為動(dòng)態(tài)數(shù)組分配實(shí)際元素個(gè)數(shù)。 A：static語句 B：Dim語句 C：public語句 D：ReDim語句參考答案：D11、假定程序中有以下語句： answer = MsgBox(String1,String2,String3,2)執(zhí)行該語句后，將顯示一個(gè)信息框，此時(shí)如果單擊確定按鈕，則answer的值為：_。 A：String3 B：String2 C：String1 D：1參考答案：D12、設(shè)有語句x=Inpu

12、tBox(輸入數(shù)值,0,示例)程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是_。 A：0是默認(rèn)值 B：變量X的值是字符串10 C：在InputBox對(duì)話框標(biāo)題欄中顯示的是示例 D：變量X的值是數(shù)值10參考答案：B13、以下程序段運(yùn)行的結(jié)果是：_。 Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1 If a(i) = False Then a(i)

13、 = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j A：20 B：7 C：8 D：35參考答案：D14、設(shè)a=5，b=6，c=7，d=8，則執(zhí)行下列語句后，x的值為：_。x= IIF(ab) And (c 0 Then Func = x Else Func = y End IfEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 4 c = Func(a, b) Print a=; a P

14、rint b=; bPrint c=; c End Sub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為：_。 A：a= 3 b= 4 c= 12 B：a= 13 b= 12 c= 12 C：a= 3 b= 4 c= 3 D：a= 3 b= 12 c= 3參考答案：D 題分：63、單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為_。Public Sub Procl(n As Integer, ByVal m As Integer) n = n Mod 10 m = m / 10End SubPrivate Sub Command1_Click() Dim x As Integer, y As Integer

15、x = 12: y = 34 Call Procl(x, y) Print x; yEnd Sub A： 12 3 B： 2 3 C： 12 34 D： 2 34參考答案：D 題分：64、以下關(guān)于函數(shù)過程的敘述中，正確的是_。 A：在函數(shù)過程中，過程的返回值可以有多個(gè) B：函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系 C：當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞 D：如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型參考答案：B 題分：65、以下說法錯(cuò)誤的是_。 A：函數(shù)過程可以帶參數(shù) B：子過程沒有返回值 C：函數(shù)過程沒有返回值 D：子過程可以帶參數(shù)參考答案：C 題

16、分：66、在窗體上畫一個(gè)命令按鈕（名稱為Command1），然后編寫如下事件過程：Private Sub Command1_Click() Dim b As Integer b = b + 1End Sub運(yùn)行程序，三次單擊命令按鈕后，變量b的值是：_。 A：2 B：1 C：0 D：3參考答案：B 題分：67、假定有以下函數(shù)過程：Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1=UCase(Mid(S,i,1)+s1 Next i Fun = s1End Function在窗體上畫一個(gè)命令按鈕

17、，然后編寫如下事件過程：Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1 = InputBox(請(qǐng)輸入一個(gè)字符串) Str2= Fun(Str1) Print Str2End Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串a(chǎn)bcdefg則單擊確定按鈕后在窗體上的輸出結(jié)果為_。A：GFEDCBA B：ABCEDFG C：gfedcba D：abcdefg參考答案：A 題分：68、Sub過程與Function過程最根本的區(qū)別是_。 A：兩種過程參數(shù)的傳遞方式不同 B：Function過程可以有參數(shù)，

18、Sub過程不可以 C：Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以 D：Sub過程的過程名不能返回值，而Function過程能通過過程名返回值參考答案：D 題分：69、在代碼中定義了一個(gè)子過程：Sub P(a,b) .End Sub下面_調(diào)用該過程的格式是正確的。 A：Call P B：Call P 10,20 C：P(10,20) D：Call P(10,20)參考答案：D 題分：610、在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：Private Sub Command1_Click() Static X As Integer Sta

19、tic Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X, YEnd Sub程序運(yùn)行時(shí)，三次單擊命令按鈕Command1后，窗體上顯示的結(jié)果為_。 A： 15 15 B： 15 6 C： 15 16 D： 5 6參考答案：B 題分：611、設(shè)有以下循環(huán)結(jié)構(gòu)Do 循環(huán)體Loop While則以下敘述中錯(cuò)誤的是_。 A：循環(huán)體中可以使用Exit Do語句 B：條件可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù) C：若條件是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體 D：如果條件總是為True，則不停地執(zhí)行循環(huán)體參考答案：C 題分：612、在窗體上畫一個(gè)名稱為Com

20、mand1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print sEnd Sub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示是_。 A：7 B：6 C：8 D：9參考答案：A 題分：6VB考試

21、四1、某人編寫了如下程序，用來求10個(gè)整數(shù)（整數(shù)從鍵盤輸入）中的最大值：Private Sub Command1_Click() Dim a(10) As Integer,max As Integer For k=1 To 10 a(k)=InputBox(輸入一個(gè)整數(shù)) Next k max=0 For k=1 To 10 If a(k)max Then max=a(k) End If Next k Print maxEnd Sub運(yùn)行程序時(shí)發(fā)現(xiàn)，當(dāng)輸入10個(gè)正數(shù)時(shí)，可以得到正確結(jié)果，但輸入10個(gè)負(fù)數(shù)時(shí)結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改中可以得到正確運(yùn)行結(jié)果的是_。 A：把max=a(k

22、)改為a(k)=max B：把If a(k)max Then改為If a(k)max Then C：把第2個(gè)循環(huán)語句For k=1 To 10改為For k=2 To 10 D：把max=0改為max=a(10)參考答案：D2、設(shè)有語句：Open d:Test.txt For Output As #1，以下敘述中錯(cuò)誤的是_。 A：執(zhí)行該語句后，就可以通過Print#語句向文件Test.txt中寫入信息 B：用該語句建立的文件的文件號(hào)為1 C：該語句打開d盤根目錄下一個(gè)已存在的文件Test.txt，之后就可以從文件中讀取信息 D：若d盤根目錄下無Test.txt文件，則該語句創(chuàng)建此文件參考答案：

23、C3、工程中有2個(gè)窗體，名稱分別為Form1、Form2，F(xiàn)orm1為啟動(dòng)窗體，該窗體上有命令按鈕Command1。要求程序運(yùn)行后單擊該命令按鈕時(shí)顯示Form2，則按鈕Click事件過程應(yīng)該是_。 A：Private Sub Command1_Click() Form2.Load End Sub B：Private Sub Command1_Click() Form2.Visible End Sub C：Private Sub Command1_Click() Load Form2 End Sub D：Private Sub Command1_Click() Form2.Show End Su

24、b參考答案：D4、在窗體上畫一個(gè)名為Command1的命令按鈕，然后編寫如下代碼：Option Base 1Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print sEnd Sub運(yùn)行上面的程序，其輸出結(jié)果是_。 A：12 B：1234 C：34 D：4321參考答案：B5、設(shè)在窗體中有一個(gè)名稱為L(zhǎng)ist1的列表框，其中有若干個(gè)項(xiàng)目（如圖）。要求選中某一項(xiàng)后單擊Command1按鈕，就刪除選中的項(xiàng)，則正確的事件過程是_。 A：Priva

25、te Sub Command1_Click() List1.Clear List1.ListIndex End Sub B：Private Sub Command1_Click() List1.Clear End Sub C：Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End Sub D：Private Sub Command1_Click() List1.RemoveItem End Sub參考答案：C6、窗體上有一個(gè)名稱為Frame1的框架（如圖），若要把框架上顯示的Frame1改為漢字框架，下面正確的語句是_。

26、 A：Frame1.Caption=框架 B：Frame1.Name=框架 C：Frame1.Text=框架 D：Frame1.Value=框架參考答案：A7、設(shè)窗體上有一個(gè)圖片框Picture1，要在程序運(yùn)行期間裝入當(dāng)前文件夾下的圖形文件File1.jpg，能實(shí)現(xiàn)此功能的語句是_。 A：Call LoadPicture(File1.jpg) B：Picture1.Picture=LoadPicture(File1.jpg) C：LoadPicture(File1.jpg) D：Picture1.Picture=File1.jpg參考答案：B8、在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，要

27、求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語句是_。 A：Timer1.Interval=50 B：Timer1.Interval=5 C：Timer1.Interval=0.5 D：Timer1.Interval=500參考答案：D9、在窗體上畫一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕，并編寫如下事件過程：Private Sub Command1_Click() CommonDialog1.Filter=All Files(*.*)|*.*|Text Files &_ (*.txt)|*.txt|Executable Files(*.exe)|*.e

28、xe CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNameEnd Sub程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)打開對(duì)話框，此時(shí)在文件類型框中顯示的是_。 A：Text Files(*.txt) B：AllFiles(*.*) C：Executable Files(*.exe) D：不確定參考答案：C10、在窗體上畫一個(gè)名稱為Command1命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() c = ABCD For n = 1 To 4 Print _

29、 NextEnd Sub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容DCDBCDABCD則在_處填入的內(nèi)容為。 A：Left(c,n) B：Right(c,n) C：Mid(c,n,n) D：Mid(c,n,1)參考答案：B11、在窗體上畫一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為VisualBasic考試的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為開始和停止的命令按鈕，然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500，如圖所示。編寫如下程序：Private Sub Form_Load() Timer1.Enabled=FalseEnd Sub

30、Private Sub Command1_Click() Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If Label1.Left 0 And a 10 And a 20 And a = 31,頤和園,) Text1.Text = tEnd Sub程序運(yùn)行后，如果從鍵盤上輸入16，則在文本框顯示的內(nèi)容是_。 A：旅游景點(diǎn)：長(zhǎng)城頤和園 B：旅游景點(diǎn)：長(zhǎng)城故宮 C：旅游景點(diǎn)：頤和園 D： 旅游景點(diǎn)：故宮參考答案：D15、若

31、變量a未事先定義而直接使用（例如：a=0），則變量a的類型是_。 A：Variant B：String C：Boolean D：Integer參考答案：A16、有如下程序：Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 0 And i Mod 3 = 0 Then sum = sum + iEnd If Next i Print sumEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。 A：30 B：12 C：24 D：18參考答案：B17、以下能從字符串V

32、isualBasic中直接取出子字符串Basic的函數(shù)是_。 A：String B：Mid C：Left D：Instr參考答案：B18、設(shè)窗體上有一個(gè)列表框控件List1，含有若干列表項(xiàng)。以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是_。 A：List1.ListIndex B：List1.List C：List1.Text D：List1.Index參考答案：C19、設(shè)a=5,b=10，則執(zhí)行c = Int(b - a) * Rnd + a) + 1后，c值的范圍為_。 A：610 B：69 C：510 D：59參考答案：A20、在窗體上有1個(gè)名為Cd1的通用對(duì)話框，為了在運(yùn)行程序時(shí)打開保存文件對(duì)話

33、框，則在程序中應(yīng)使用的語句是_。 A：Cd1.Action=2 B：Cd1.ShowSave=True C：Cd1.Action=1 D：Cd1.ShowSave=0參考答案：A21、下面可以正確定義2個(gè)整型變量和1個(gè)字符串變量的語句是_。 A：Dim a As Integer,b,c As String B：Dim a%,b$,c As String C：Dim n,m As Integer,s As String D：Dim x%,y As Integer,z As String參考答案：D22、在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1和Text1，把文本框的Tex

34、t屬性設(shè)置為空白，然后編寫如下事件過程：Private Sub Command1_Click() a = InputBox(Enter an integer) b = InputBox(Enter an integer) Text1.Text = b + aEnd Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10，則文本框中顯示的內(nèi)容是_。 A：出錯(cuò) B：18 C：810 D：108參考答案：D23、在窗體上畫一個(gè)名稱為CommonDialog1的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過程：Private Sub Command1_Click()

35、CommonDialog1.FileName = CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=VBTest CommonDialog1.Action=1End Sub對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是_。 A：在該對(duì)話框中指定的默認(rèn)文件類型為文本文件(*.Txt) B：在該對(duì)話框中指定的默認(rèn)文件名為空 C：該對(duì)話框的標(biāo)題為VBTest D：該對(duì)話框被設(shè)置為打開對(duì)話框參考答案：A24、設(shè)在窗體Forml上有一個(gè)列表框Listl，其中有若