2007Äê9Ô¼ÆËã»ú¶þ¼¶VBÄ£ÄâÊÔÌâ(10)¼°´ð°¸

(31) ÓÐÈçϺ¯Êý¹ý³Ì£º
Function HFC(ByVal x As Integer, ByVal y As Integer) As Integer
   Do While y <> 0
     sic=x / y
     x=y
     y=sic
   Loop
   HFC=x
End Function
ÒÔÏÂÊǸú¯ÊýµÄµ÷Óùý³Ì£¬¸Ã³ÌÐòµÄÔËÐнá¹ûÊÇ
Private Sub Command1_Click()
   Dim a As Integer
   Dim b As Integer
   a=12
   b=2
   x=HFC(a, b)
   Print x
End Sub
A) 0        
B) 6
C) 2        
D) 80
ÕýÈ·´ð°¸:  B

(32) ÓÐÈçÏÂʼþ¹ý³Ì£º
Sub ABD(x%, y%, z%)
   z%=x% + y%
End Sub
Private Sub Command1_Click()
   a%=30: b%=40
   Call ABD(a%, b%, c%)
   Print c%
End Sub
ÔËÐÐÉÏÃæµÄ³ÌÐò£¬µ¥»÷ÃüÁî°´Å¥£¬Êä³ö½á¹ûΪ
A) 70       
B) 70.0
C) 7.0E+1      
D) ÏÔʾ´íÎóÐÅÏ¢
ÕýÈ·´ð°¸:  A

(33) ÈçÏÂʼþ¹ý³Ì£º
Function Feed(x)
   If x < 10 Then
     Feed=x
   Else
     Feed=10 + x
End If
End Function
Private Sub Command1_Click()
   x=Val(InputBox("", , 0) )
   pay=Feed(x)
   Print pay
End Sub
ÔËÐÐʱÔÚÊäÈë¿òÄÚÊäÈë±äÁ¿xµÄֵΪ15£¬Êä³ö½á¹ûΪ
A) 0        
B) 15
C) 25       
D) 30
ÕýÈ·´ð°¸:  C

(34) ÔÚ´°ÌåÉÏ»­Ò»¸öÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º
Sub BTC(oldCopy() As Integer, newCopy() As Integer)
   Dim i As Integer
   For i=LBound(oldCopy() ) To UBound(oldCopy() )
     newCopy(i) =oldCopy(i)
   Next i
End Sub
Private Sub Command1_Click()
   Dim m(10) As Integer, n(10) As Integer
   For i=1 To 10
      m(i) =i ª³ i
   Next i
   Call BTC(m, n)
   Print n(5)
End Sub
³ÌÐòÔËÐк󣬵¥»÷ÃüÁî°´Å¥Êä³ö½á¹ûΪ
A) 0        
B) 2
C) 10       
D) 25
ÕýÈ·´ð°¸:  D

(35) ÔÚ´°ÌåÉÏ»­Ò»¸öÃüÁî°´Å¥£¬È»ºóд³öÈçÏÂʼþ¹ý³Ì£º
Private Sub Command1_Click()
   s=1
   Do
      s=(s + 1) ^ (s + 2)
     Number=Number + 1
   Loop Until s >=6
   Print Number, s
End Sub
³ÌÐòÔËÐкó£¬Êä³öµÄ½á¹ûÊÇ
A) 23       
B) 318
C) 18       
D) 1020
ÕýÈ·´ð°¸:  C