全國計算機二級考試VB語言考試試題

為了使廣大考生在備戰計算機等級考試時，更快的掌握相應知識點，下面是小編搜索整理的全國計算機等級考試VB語言考試試題，供參考練習，預祝考生們考出自己理想的成績!

　全國計算機二級考試VB語言考試試題

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

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

程序運行後，單擊命令按鈕，則窗體上顯示的內容是

（A）1 3.4 5.8 （B）1 3 5 （C）1 4 7 （D）無數據輸出

2． 有如下函數：

Function Facn ( x As Integer ) As Long

Dim p As Long , i As Integer

p = 1

For i = 1 To x

p = p * i

Next i

Facn = p

End Function

調用它的事件過程如下：

Private Sub Command1_Click ( )

i = Val ( InputBox ( “請輸入數據”))

a = Facn (( i ) ) ‘實參i用圓括號括起，則強制為值傳遞

Print a

End Sub

若輸入數據6，則程序運行結果為（ 【73】 ）

（A）60 （B）120 （C）600 （D）720

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

Private Sub Command1_Click()

Dim a As Integer, s As Integer

a = 8

s = 1

Do

s = s + a

a = a－1

Loop While a <= 0

Print s; a

End Sub

程序運行後，單擊命令按鈕，則窗體上顯示的內容是

（A） 7 9 （B） 34 0（C）9 7（D）死循環

4． 下列程序的執行結果為（ 【74】 ）

Dim IntSum As Integer , i As Integer

IntSum = 0

For i = 30.2 To 1 Step -5.3

IntSum = IntSum + i

Next i

Print IntSum

（A）106 （B）105 （C）102 （D）101

5． 在窗體上畫一個命令按鈕，然後編寫如下事件過程，該過程執行結果為（ 【75】 ）

Option Base 1

Private Sub Command1_Click ( )

Dim a As Variant , s As Integer

a = Array ( 2 , 4 , 6 , 8 )

j = 1

For i = 1 To 4 Step 1

s = s + a ( i ) * j

j = j *10

Next i

Print s

End Sub

（A）0 （B）1110 （C）2468 （D）8642

設有如下通用過程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

6． 在窗體上畫一個名稱為Command1的`命令按鈕，然後編寫如下事件過程：

Private Sub Command1_Click()

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

程序運行後，如果單擊命令按鈕，則在窗體上顯示的內容是

（A）10 5 （B）20 5 （C）20 40 （D）10 40

7． 對窗體編寫如下代碼：

Option Base 1

Private Sub Form_KeyPress( KeyAscii As Integer)

a = Array (123 , 86 , 57 , 248 , 32)

m1 = a ( 1 )

m2 = 1

If KeyAscii = 13 Then

For i=2 To 5

If a ( i ) > m1 Then

m1 = a ( i )

m2 = i

End If

Next i

End If

Print m1 , m2

End Sub

程序運行後，按回車鍵，輸出結果為（ 【76】 ）

（A）32 5 （B）248 4 （C）32 1 （D）248 5

設有如下通用過程：

Public Sub Fun(a(), ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next

End Sub

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

Private Sub Command1_Click()

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next

n = 10

Call Fun(arr(), n)

= n

End Sub

程序運行後，單擊命令按鈕，則在文本框中顯示的內容是

（A）10 （B）15 （C）25 （D）24

9． 閲讀程序：

Function Func ( a As Integer )

b = 1

Static c As Integer

b = b +1

c = c +1

Func = a + b + c

End Function

Private Sub Command1_Click( )

Dim a As Integer

a = 3

For i =1 to 3

Print Func( a )

Next i

End Sub

運行上面的程序，單擊命令按鈕後，輸出結果為（ 【77】 ）

（A）6 （B）6 （C）6 （D）6

7 6 8 13

8 6 10 21

10． 在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下代碼：

Option Base 1

Private Sub Command1_Click()

d = 0

c = 10

x = Array(10, 12, 21, 32, 24)

For i = 1 To 5

If x(i) > c Then

d = d + x(i)

c = x(i)

Else

d = d－c

End If

Next i

Print d

End Sub

程序運行後，如果單擊命令按鈕，則在窗體上輸出的內容為

（A）89 （B）99 （C）23 （D）77