(31) 不能脫離控件(包括客體) 而獨(dú)立存在的過(guò)程是
A) 事件過(guò)程      
B) 通用過(guò)程
C) Sub過(guò)程      
D) 函數(shù)過(guò)程
正確答案:  A

(32) Sub過(guò)程與Function過(guò)程最根本的區(qū)別是
A) Sub過(guò)程可以用Call語(yǔ)句直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以
B) Function過(guò)程可以有形參，Sub過(guò)程不可以
C) Sub過(guò)程不能返回值，而Function過(guò)程能返回值
D) 兩種過(guò)程參數(shù)的傳遞方式不同
正確答案:  C

(33) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為
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) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果是
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�硏+y+3�硓
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) 下列程序的執(zhí)行結(jié)果為
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