07年4月計(jì)算機(jī)等級(jí)考試二級(jí)VB考前密卷(4)

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

(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ù)的傳遞方式不同

(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

(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

(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

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問(wèn)：考試吧計(jì)算機(jī)等級(jí)考試欄目