9月計算機等級考試將于9月23日-26日舉行，目前處于緊張的備考階段，以下是百分網小編搜索整理的一份全國計算機二級《VB》練習題及答案，供參考練習，預祝考生們考出自己理想的成績!想了解更多相關信息請持續關注我們應屆畢業生考試網!

1.雙擊窗體中的對象后，VB將顯示的窗口是(C)(單)

A.工具箱

【資料圖】

B.項目(工程)窗口

C.代碼窗口

D.屬性窗口

2.下述選項中，VB的程序設計方法是(B)(單)

A.面向對象、順序驅動

B.面向對象、事件驅動

C.面向過程、事件驅動

D.面向過程、順序驅動

3.在VB中，要將一個窗體裝載到內存進行變量初始化等預處理，但沒有顯示該窗體，應使用的方法或語句是(C)(單)

A.Show

B.Unload

C.Load

D.Hide

4.文本框的默認屬性是(B)(單)

A.Caption

B.Text

C.Name

D.Top

5.標簽默認屬性是(A)(單)

A.Caption

B.Text

C.Name

D.Top

6.執行以下程序段：

a$="abbacddcba"

For I=6 To 2 Step -2

X=Mid(a,I,I)

Y=Left(a,I)

z=Right(a,I)

z=Ucase(X&Y&z)

Next I

Print z

輸出結果為(B)(單)

A.ABA

B.BBABBA

C.ABBABA

D.AABAAB

7.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click( )

Dim a As Variant

a=Array(1,2,3,4,5)

Sum=0

For I=1 To 5

Sum = sum+a(I)

Next I

x=Sum/5

For I =1 To 5

If a(I)>x Then Print a(I);

Next I

End Sub

程序運行后，單擊命令按鈕，在窗體上顯示的內容是(D)(單)

A.1 2

B.1 2 3

C.3 4 5

D.4 5

8.假定一個工程由一個窗體文件Form1和兩個標準模塊文件Model1及Model2組成。Model1代碼如下：

Public x As Integer

Public y As Integer

Sub S1( )

x =1

S2

End Sub

Sub S2( )

y=10

Form1.Show

End Sub

Model2的代碼如下：

Sub Main( )

S1

End Sub

其中Sub Main被設置為啟動過程。程序運行后，各模塊的執行順序是(C)(單)

A.Form1->Model1->Model2

B.Model1->Model2->Form1

C.Model2->Model1->Form1

D.Model2->Form1->Model1

9.設有如下程序段：

a$="beijingshanghai"

b$=Mid(a$,InStr(a$,"g")+1)

執行上面的程序段后，變量b$的值為【shanghai】

10.以下程序段的輸出結果是【3】

Num =0

Do While num<=2

num = num+1

Loop

Print num

11.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click( )

Move 500，500

End Sub

程序運行后，單擊命令按鈕，執行的操作為(A)(單)

A.命令按鈕移動到距窗體左邊界、上邊界各500的位置

B.窗體移動到距屏幕左邊界、上邊界各500的位置

C.命令按鈕向左、上方向各移動500

D.窗體向左、上方向各移動500

12.在窗體上有若干控件，其中有一個名稱為Text1的文本框。影響Text1的`Tab順序的屬性是(D)(單)

A.TabStop

B.Enabled

C.Visible

D.TabIndex

13.在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進行處理，應使用的循環語句為(A)(單)

A.For i=0 To List1.ListCount-1 ......　 Next i

B.For i=0 To ListCount-1 ...... Next i

C.For i=1 To List1.listCount 　...... Next i

D.For i=1 To ListCount ...... Next i

14.以下Case語句中錯誤的是(C)(單)

A.Case 0 To 10

B.Case Is>10

C.Case Is>10 And Is<50

D.Case 3,5,Is>10

15.以下關于圖片框控件的說法中，錯誤的是(D)(單)

A.可以通過Print方法在圖片框中輸出文本

B.清空圖片框控件中圖形的方法之一是加載一個空圖形

C.圖片框控件可以作為容器使用

D.用圖片框控件的Stretch屬性可以自動調整圖片框中圖形的大小

16.執行語句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(單)

A.Visual

B.Basic

C.6

D.11

17.以下敘述中錯誤的是(D)(單)

A.下拉式菜單能用菜單編輯器建立

B.在多窗體程序中，每個窗體都可以建立自己的菜單系統

C.能夠對菜單項的Click事件編程

D.如果把一個菜單項的Enabled屬性設置為False，則該菜單項不可見

18.在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：

Private Sub Command1_Click( )

a = "12345"

Print Format$(a, "000.00")

End Sub

程序運行后，單擊命令按鈕，窗體上顯示的是(B)(單)

A.123.45

B.12345.00

C.12345

D.00123.45

19.以下關于函數過程的敘述中，正確的是(A)(單)

A.函數過程形參的類型與函數返回值的類型沒有關系

B.在函數過程中，過程的返回值可以有多個

C.當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以傳址方式傳遞

D.如果不指明函數過程參數的類型，則該參數不能有數據類型的參數

20.以下關于變量作用域的敘述中，正確的是(C)(單)

A.用dim定義變量是靜態變量

B.靜態變量必須在標準模塊中聲明

C.用public定義變量是全局變量

D.Static類型變量的作用域范圍是它所在的窗體或模塊文件

21.確定一個控件在窗體上的位置的屬性是(C)(單)

A.Width和Height

B.Width或Height

C.Top和Left

D.Top或Left

22.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click( )

Text1.Text = "Visual"

Me.Text1 = "Basic"

Text1 = "Program"

End Sub

程序運行后，如果單擊命令按鈕，則在文本框中顯示的是(C)(單)

A.Visual

B.Basic

C.Program

D.出錯

23.以下關系表達式中，其值為False的是(A)(單)

A."ABC">"AbC"

B."the"<>"they"

C."VISUAL"=UCase("Visual")

D."Integer">"Int"

24.語句Print int(5/4*65) Mod 2的輸出結果是(B)(單)

A.0

B.1

C.2

D.3

25.在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個事件過程：

Private Sub Command1_Click( )

strText = InputBox("請輸入")

Text1.Text = strText

End Sub

Private Sub Text1_Change( )

Label1.Caption = Right(Trim(Text1.Text), 3)

End Sub

程序運行后，單擊命令按鈕，如果在輸入對話框中輸入abcdef，則在標簽中顯示的內容是(D)(單)

A.空

B.abcdef

C.abc

D.def

26.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click( )

x = -5

If x >0 Then

y = x ^ 2

Else

y = x

End If

Print y

End Sub

程序運行后，單擊命令按鈕，窗體上顯示的是(A)(單)

A.-5

B.25

C.1

D.-1

27.一個工程中含有窗體Form1、Form2和標準模塊Model1，如果在Form1中有語句Pubilc X As

Integer，在Model1中有語句Pubilc Y As Integer，則以下敘述中正確的是(A)(單)

A.變量X、Y的作用域相同

B.Y的作用域是Model1

C.在Form1的任何地方中可以直接使用Y

D.在Form2中可以直接使用X和Y

28.在窗體上畫一個名稱為Drive1的驅動器列表框，一個名稱為Dir1的目錄列表框。當改變當前驅動器時，目錄列表框應該與之同步改變。設置兩個控件同步的命令放在一個事件過程中，這個事件過程是(A)(單)

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_KeyPress

29.在窗體上畫一個命令按鈕(其NAME屬性為Command1)，然后編寫如下代碼：

Option Base 1

Private Sub Command1_Click( )

Dim a

s = 0

a = Array(1, 2, 3, 4)

For I = 4 To 1 Step -1

s = s + a(I)

Next I

Print s

End Sub

運行上面的程序，單擊命令按鈕，其輸出結果是(D)(單)

A.4321

B.1234

C.34

D.10

30.在窗體上畫一個名稱為Text1的文本框，編寫以下代碼：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 65 　Or　 KeyAscii> 90 Then

msgBox "請輸入大寫字母"

KeyAscii = 0

End If

End Sub

以下能說明該事件過程正確是(A)(單)

A.要求文本框只能接收大寫字母的輸入

B.要求文本框只能接收小寫字母的輸入

C.要求文本框只能接收數字的輸入

D.要求文本框只能接收65到90之間的數值的輸入