- 相關(guān)推薦
計(jì)算機(jī)二級(jí)考試VB程序設(shè)計(jì)單選題
為了使廣大考生在備戰(zhàn)計(jì)算機(jī)等級(jí)考試時(shí)，更快的掌握相應(yīng)知識(shí)點(diǎn)，下面是小編搜索整理的計(jì)算機(jī)二級(jí)考試VB程序設(shè)計(jì)單選題，供參考練習(xí)，預(yù)祝考生們考出自己理想的成績!
計(jì)算機(jī)二級(jí)考試VB程序設(shè)計(jì)單選題
1． Command1_Click( )事件程序的功能是：按順序讀入10名學(xué)生4門課程的成績，計(jì)算出每位學(xué)生的平均分并輸出，程序如下：
Dim n As Integer, k As Integer
Dim score As Single, sum As Single, ave As Single
sum = 0#
For n = 1 To 10
For k =1 To 4
score = InputBox(“請輸入第” & n & “名學(xué)生第” & k & “門課的成績：”)
sum = sum + score
Next k
ave = sum / 4
Print “第” & n & “個(gè)學(xué)生的平均成績?yōu)椋骸?& ave
Next n
上述程序運(yùn)行后結(jié)果不正確，調(diào)試中發(fā)現(xiàn)有一條語句出現(xiàn)在程序中的位置不對(duì)。這條語句是（ ）
�。ˋ）sum = 0# （B）sum = sum + score
�。–）ave = sum / 4 （D）Print “第” & n & “個(gè)學(xué)生的.平均成績?yōu)椋骸?& ave
2． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是（ ）
（A）1 3.4 5.8（B）1 3 5
�。–）1 4 7 （D）無數(shù)據(jù)輸出
3． 以下程序的輸出結(jié)果是（ ）
Dim i As Integer, a As Integer
Do While i < 20
Do While True
If i Mod 10 = 0 Then
Exit Do
Else
i = i -1
End If
Loop
i = i + 11 : a = a + i
Loop
Print a
（A）21（B）32 （C）33 （D）11
4． 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：
Private Sub Command1_Click( )
Dim array1(10,10) As Integer
Dim i, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i,j) = i + j
Next j
Next i
Text1.Text = array1(2,3) + array1(3,4)
End Sub
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是（ ）
�。ˋ）12 （B）13 （C）14 （D）15
5． 設(shè)有如下程序：
Option 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)行后，單擊窗體，則在窗體相顯示的內(nèi)容是（ ）
（A）4 3 2 1 （B）5 4 3 2（C）6 5 4 3 （D）7 6 5 4
6． 在窗體上畫一個(gè)名稱為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
程序運(yùn)行后，單擊命令按鈕，則在窗體上輸出的內(nèi)容是（ ）
�。ˋ）89 （B）99 （C）23 （D）77
7． 假定有以下函數(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 = s1
End Function
在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Comman1_Click( )
Dim Str1 As String, Str2 As String
Str1 = InputBox(“請輸入一個(gè)字符串：”)
Str2 = Fun(Str1)
Print Str2
End Sub
程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上輸出的結(jié)果為（ ）
（A）abcdefg （B）ABCDEFG（C）gfedcba （D）GFEDCBA
8． 在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下代碼：
Private Sub Command1_Click( )
Dim x, y, z As Integer
x = 5
y = 7
z = 0
Text1.Text = “”
Call P1(x, y, z)
Text1.Text = Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c = a + b
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是（ ）
�。ˋ）0（B）12 （C）Str(z) （D）沒有顯示
9． 以下關(guān)于過程的敘述中錯(cuò)誤的是（ ）
（A） 如果過程被定義為Static類型，則該過程中的局部變量都是Static類型
�。˙） Sub過程中不能嵌套定義Sub過程
�。–） Sub過程中可以嵌套調(diào)用Sub過程
�。―）事件過程可以像通用過程一樣由用戶定義過程名
10． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，再畫兩個(gè)名稱分別為Label1、Label2的標(biāo)簽，然后編寫如下程序代碼：
Private X As Integer
Private Sub Command1_Click( )
X = 5: Y = 3
Call proc(X, Y)
Label1.Caption = X
Label2.Catpion = Y
End Sub
Private Sub proc(Byval a As Integer, ByVal b As Integer)
X = a * a
Y = b + b
End Sub
單擊命令按鈕，兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是（ ）
（A）5和3（B）25和3 （C）25和6 （D）5和6
【計(jì)算機(jī)二級(jí)考試VB程序設(shè)計(jì)單選題】相關(guān)文章：
二級(jí)考試VB程序設(shè)計(jì)復(fù)習(xí)試題單選題12-18
計(jì)算機(jī)二級(jí)VB語言程序設(shè)計(jì)單選題及答案05-12
計(jì)算機(jī)二級(jí)考試VB程序設(shè)計(jì)選擇練習(xí)05-27
計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)題08-14
2016計(jì)算機(jī)二級(jí)《VB語言程序設(shè)計(jì)》考試大綱06-01
計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)模擬試題07-13
計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)選擇練習(xí)06-01