2014Äê12Ô¼ÆËã»úµÈ¼¶¿¼ÊÔ¶þ¼¶VBÈ«ÕæÄ£Äâ¾íÒ»_µÚ4Ò³

(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