2007年9月計(jì)算機(jī)二級VB模擬試題(10)及答案

(31) 有如下函數(shù)過程：
Function HFC(ByVal x As Integer, ByVal y As Integer) As Integer
   Do While y <> 0
     sic=x / y
     x=y
     y=sic
   Loop
   HFC=x
End Function
以下是該函數(shù)的調(diào)用過程，該程序的運(yùn)行結(jié)果是
Private Sub Command1_Click()
   Dim a As Integer
   Dim b As Integer
   a=12
   b=2
   x=HFC(a, b)
   Print x
End Sub
A) 0        
B) 6
C) 2        
D) 80
正確答案:  B

(32) 有如下事件過程：
Sub ABD(x%, y%, z%)
   z%=x% + y%
End Sub
Private Sub Command1_Click()
   a%=30: b%=40
   Call ABD(a%, b%, c%)
   Print c%
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為
A) 70       
B) 70.0
C) 7.0E+1      
D) 顯示錯(cuò)誤信息
正確答案:  A

(33) 如下事件過程：
Function Feed(x)
   If x < 10 Then
     Feed=x
   Else
     Feed=10 + x
End If
End Function
Private Sub Command1_Click()
   x=Val(InputBox("", , 0) )
   pay=Feed(x)
   Print pay
End Sub
運(yùn)行時(shí)在輸入框內(nèi)輸入變量x的值為15，輸出結(jié)果為
A) 0        
B) 15
C) 25       
D) 30
正確答案:  C

(34) 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Sub BTC(oldCopy() As Integer, newCopy() As Integer)
   Dim i As Integer
   For i=LBound(oldCopy() ) To UBound(oldCopy() )
     newCopy(i) =oldCopy(i)
   Next i
End Sub
Private Sub Command1_Click()
   Dim m(10) As Integer, n(10) As Integer
   For i=1 To 10
      m(i) =i �� i
   Next i
   Call BTC(m, n)
   Print n(5)
End Sub
程序運(yùn)行后，單擊命令按鈕輸出結(jié)果為
A) 0        
B) 2
C) 10       
D) 25
正確答案:  D

(35) 在窗體上畫一個(gè)命令按鈕，然后寫出如下事件過程：
Private Sub Command1_Click()
   s=1
   Do
      s=(s + 1) ^ (s + 2)
     Number=Number + 1
   Loop Until s >=6
   Print Number, s
End Sub
程序運(yùn)行后，輸出的結(jié)果是
A) 23       
B) 318
C) 18       
D) 1020
正確答案:  C