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) ÏÂÁгÌÐòµÄÖ´Ðнá¹ûΪ
  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

Ï£ÍûÓë¸ü¶à¼ÆËã»úµÈ¼¶¿¼ÊÔµÄÍøÓѽ»Á÷£¬Çë½øÈë¼ÆËã»úµÈ¼¶¿¼ÊÔÂÛ̳

¸ü¶àÐÅÏ¢Çë·ÃÎÊ£º¿¼Ê԰ɼÆËã»úµÈ¼¶¿¼ÊÔÀ¸Ä¿