2007年9月計(jì)算機(jī)二級(jí)VB模擬試題(6)及答案

(29) 下列程序段的執(zhí)行結(jié)果為
a=6
For k=1 To 0
   a=a + k
Next k
Print k; a
A) -1 6       
B) -1 16
C) 1 6       
D) 11 21
正確答案:  C

(30) 下列程序段的執(zhí)行結(jié)果為
a=1
b=1
For I=1 To 3
   f=a + b
   a=b
   b=f
   Print f;
Next I
A) 2 3 6       
B) 2 3 5
C) 2 3 4       
D) 2 2 8
正確答案:  B

(31) 下列過程定義語句中，形參個(gè)數(shù)為不確定數(shù)量的過程是
A) Private Sub Pro3(x As Double,y As Single)
B) Private Sub Pro3(Arr(3),Option x,Option y)
C) Private Sub Pro3(ByRef x,ByVal y,Arr( ))
D) Private Sub Pro3(ParamArray Arr( ))
正確答案:  D

(32) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
   Dim x As Integer, y As Integer
   x=12: y=32
   Call PCS(x, y)
   Print x; y
End Sub
Public Sub PCS(ByVal n As Integer, ByVal m As Integer)
   n=n Mod 10
   m=m Mod 10
End Sub
A) 12 32      
B) 2 32
C) 2 3       
D) 12 3
正確答案:  A

(33) 單擊一次命令按鈕后，下列程序的執(zhí)行結(jié)果是
Private Sub Command1_Click()
   s=P(1) + P(2) + P(3) + P(4)
   Print s
End Sub
Public Function P(N As Integer)
   Static Sum
   For i=1 To N
    Sum=Sum + i
   Next i
   P=Sum
End Function
A) 15       
B) 25
C) 35       
D) 45
正確答案:  C

(34) 下列程序的執(zhí)行結(jié)果為
Private Sub Command1_Click()
   Dim s1 As String, s2 As String
   s1="abcdef"
   Call Invert(s1, s2)
   Print s2
End Sub
Private Sub Invert(ByVal xstr As String, ystr As String)
   Dim tempstr As String
   i=Len(xstr)
   Do While i >=1
     tempstr=tempstr + Mid(xstr, i, 1)
     i=i - 1
   Loop
   ystr=tempstr
End Sub
A) fedcba     
B) abcdef
C) afbecd     
D) defabc
正確答案:  A

(35) 閱讀下列程序：
Private Sub Command1_Click()
   Dim i As Integer, k As Integer
   k=2
   For i=1 To 3
      Print H(k) ;
    Next i
End Sub
Function H(j As Integer)
   a=0
   Static b
   a=a + 1
   b=b + 1
   H=a*b + j
End Function
程序運(yùn)行后，單擊命令按鈕輸出結(jié)果是
A) 2 3 4     
B) 3 4 5
C) 5 6 7     
D) 3 5 6
正確答案:  B