07年4月計算機等級考試二級VB考前密卷(1)

(31) 以下程序段的輸出結果為
  Dim l, a(10) , p(3)
  k=5
  For i=0 To 10
     a(i) =i
  Next i
  For i=0 To 2
     p(i) =a(i �� (i + 1) )
  Next i
  For i=0 To 2
    k=k + p(i) �� 2
  Next i
  Print k
  A) 20       
  B) 21
  C) 56       
  D) 32

  答案：B

(32) 下列程序的執(zhí)行結果為
  Private Sub Command1_Click()
   Dim x As Integer, y As Integer
   x=12: y=20
   Call Value(x, y)
   Print x; y
  End Sub
  Private Sub Value(ByVal m As Integer, ByVal n As Integer)
   m=m * 2: n=n - 5
   Print m; n
  End Sub
  A) 20  12      
     20  15 
  B) 12  20     
     12  25
  C) 24  15      
     12  20 
  D) 24  12       
     12  15

  答案：C

(33) 在窗體上畫一個命令按鈕，然后編寫下列程序
  Private Sub Command3_Click()
   Tcl 2
   Tcl 3
   Tcl 4
  End Sub
  Sub Tcl(a As Integer)
   Static x As Integer
   x=x + a
   Print x;
  End Sub
程序運行后，單擊命令按鈕，輸出結果為
  A) 2  3  4      
  B) 2  5  9
  C) 3  5  4      
  D) 2  4  3

  答案：B

(34) 下面程序段，運行后的結果是Private Sub Command1_Click()
   Dim b%(1 To 4) , i%, t#
   For i=1 To 4
      b(i) =i
   Next i
   t=Tof(b() )
   Print "t="; t,
  End Sub
  Function Tof(a() As Integer)
   Dim t#, i%
   t=1
   For i=2 To UBound(A)
      t=t * a(i)
   Next i
   Tof=t
  End Function
  A) t＝18       
  B) t＝24
  C) t＝30       
  D) t＝32
 
  答案：B

(35) 單擊按鈕時，以下程序運行后的輸出結果是
 Private Sub Command1_Click()
   Dim x As Integer, y As Integer, z As Integer
   x=1: y=2: z=3
   Call God(x, x, z)
   Print x; x; z
   Call God(x, y, y)
   Print x; y; y
 End Sub
 Private Sub God(x As Integer, y As Integer, z As Integer)
   x=3 * z + 1
   y=2 * z
   z=x + y
 End Sub
   A) 6  6  12      
      7  11  11
   B) 8  5  10      
      5  11  11
   C) 9  6  12      
      9  10  15
   D) 8  10  10        
      5  9   10

  答案：A

希望與更多計算機等級考試的網(wǎng)友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目