07Äê4Ô¼ÆËã»úµÈ¼¶¿¼ÊÔ¶þ¼¶VB¿¼Ç°Ãܾí(4)

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

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

(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

(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

(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

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

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