1． Command1_Click( )事件程序的功能是：按順序讀入10名學生4門課程的成績，計算出每位學生的平均分并輸出，程序如下：
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 & “名學生第” & k & “門課的成績：”)
sum = sum + score
Next k
ave = sum / 4
Print “第” & n & “個學生的平均成績?yōu)椋骸?& ave
Next n
上述程序運行后結(jié)果不正確，調(diào)試中發(fā)現(xiàn)有一條語句出現(xiàn)在程序中的位置不對。這條語句是（ �。�
（A）sum = 0# （B）sum = sum + score
（C）ave = sum / 4 （D）Print “第” & n & “個學生的平均成績?yōu)椋骸?& ave
2． 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是（ ）
（A）1 3.4 5.8 （B）1 3 5
（C）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． 在窗體上畫一個名稱為Text1的文本框和一個名稱為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
程序運行后，單擊命令按鈕，在文本框中顯示的值是（ �。�
（A）12 （B）13 （C）14 （D）15
5． 設有如下程序：
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
程序運行后，單擊窗體，則在窗體相顯示的內(nèi)容是（ ）
（A）4 3 2 1 （B）5 4 3 2 （C）6 5 4 3 （D）7 6 5 4
6． 在窗體上畫一個名稱為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
程序運行后，單擊命令按鈕，則在窗體上輸出的內(nèi)容是（ �。�
（A）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
在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Comman1_Click( )
Dim Str1 As String, Str2 As String
Str1 = InputBox(“請輸入一個字符串：”)
Str2 = Fun(Str1)
Print Str2
End Sub
程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上輸出的結(jié)果為（ ）
（A）abcdefg （B）ABCDEFG （C）gfedcba （D）GFEDCBA
8． 在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為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
程序運行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是（ �。�
（A）0 （B）12 （C）Str(z) （D）沒有顯示
9． 以下關于過程的敘述中錯誤的是（ �。�
（A） 如果過程被定義為Static類型，則該過程中的局部變量都是Static類型
（B） Sub過程中不能嵌套定義Sub過程
（C） Sub過程中可以嵌套調(diào)用Sub過程
（D） 事件過程可以像通用過程一樣由用戶定義過程名
10． 在窗體上畫一個名稱為Command1的命令按鈕，再畫兩個名稱分別為Label1、Label2的標簽，然后編寫如下程序代碼：
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
單擊命令按鈕，兩個標簽中顯示的內(nèi)容分別是（ ）
（A）5和3 （B）25和3 （C）25和6 （D）5和6
，我們將會及時處理。 |  2015年全國職稱計算機考試教材（2007模.. 定價：￥225 優(yōu)惠價：￥213 更多書籍 |
 | 全國職稱計算機考試速成過關系列套裝:W .. 定價：￥133 優(yōu)惠價：￥133.0 更多書籍 |