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

(31) ²»ÄÜÍÑÀë¿Ø¼þ(°üÀ¨¿ÍÌå) ¶ø¶ÀÁ¢´æÔڵĹý³ÌÊÇ
A) ʼþ¹ý³Ì      
B) ͨÓùý³Ì
C) Sub¹ý³Ì      
D) º¯Êý¹ý³Ì
ÕýÈ·´ð°¸:  A

(32) Sub¹ý³ÌÓëFunction¹ý³Ì×î¸ù±¾µÄÇø±ðÊÇ
A) Sub¹ý³Ì¿ÉÒÔÓÃCallÓï¾äÖ±½ÓʹÓùý³ÌÃûµ÷Ó㬶øFunction¹ý³Ì²»¿ÉÒÔ
B) Function¹ý³Ì¿ÉÒÔÓÐÐβΣ¬Sub¹ý³Ì²»¿ÉÒÔ
C) Sub¹ý³Ì²»ÄÜ·µ»ØÖµ£¬¶øFunction¹ý³ÌÄÜ·µ»ØÖµ
D) Á½ÖÖ¹ý³Ì²ÎÊýµÄ´«µÝ·½Ê½²»Í¬
ÕýÈ·´ð°¸:  C

(33) µ¥»÷ÃüÁťʱ£¬ÏÂÁгÌÐòµÄÖ´Ðнá¹ûΪ
Private Sub Command1_Click()
 Dim x As Integer, y As Integer
 x=12:y=32 
 Call Proc(x,y)
 Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
 n=n Mod 10
 m=m Mod 10
End Sub
A) 1232       
B) 232
C) 23       
D) 123
ÕýÈ·´ð°¸:  B

(34) µ¥»÷ÃüÁťʱ£¬ÏÂÁгÌÐòµÄÖ´Ðнá¹ûÊÇ
Private Sub Command1_Click()
 Dim a As Integer, b As Integer, c As Integer
 a=3
 b=4
 c=5
 Print SecProc(c, b, A)
End Sub
Function FirProc(x As Integer, y As Integer, z As Integer)
 FirProc=2ª³x+y+3ª³z
End Function
Function SecProc(x As Integer, y As Integer, z As Integer)
 SecProc=FirProc(z, x, y) +x
End Function
A) 20       
B) 22
C) 28       
D) 30
ÕýÈ·´ð°¸:  C

(35) ÏÂÁгÌÐòµÄÖ´Ðнá¹ûΪ
Private Sub Command1_Click()
 Dim FirStr As String
 FirSt="abcdef"
 Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
 Dim tempStr As String, strLen As Integer
 tempStr=""
 strLen=Len(xStr)
 i=1
 Do While i<=Len(xStr) -3
   tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1)
   i=i+1
 Loop
 Pat=tempStr
End Function
A) abcdef       
B) afbecd
      C) fedcba       
    D) defabc
 ÕýÈ·´ð°¸:  B