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

(32) 單擊命令按鈕時，下列程序的運行結(jié)果為
Private Sub Command1_Click()
   Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer) As Integer
   Do While m <> n
     Do While m > n: m=m - n: Loop
     Do While m < n: n=n - m: Loop
   Loop
   MyBM=m
End Function
A) 0        
B) 1
C) 3        
D) 5
正確答案:  B

(33) 有如下的程序：
Private Sub Command1_Click()
   Dim k As Integer, m As Integer
   Dim P As Integer
   k=4: m=1
   P=Pid(k, m) : Print P;
   P=Pid(k, m) : Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
   Static m As Integer, i As Integer
   m=5: i=2
   i=i + m + 1
   m=i + a + b
   Pid=m ＼ 2
End Function
單擊命令按鈕后，輸出結(jié)果為
A) 2  2       
B) 4  4
C) 55       
D) 6  6
正確答案:  D

(34) 下面4個CT函數(shù)中是用來判斷用戶輸入的數(shù)是否為奇數(shù)的，是奇數(shù)的返回1，否則返回0，其中正確的是
A) Function CT(ByVal a As Integer)  
     If a Mod 2=0 Then      
        Return 0           
     Else        
        Return 1       
     End if         
  End Function
B) Function CT(ByVal a As Integer)
 If a Mod 2=0 Then
  CT=0
   Else
     CT=1
 End if   
    End Function
C) Function CT(ByVal a As Integer)  
      If a Mod 2=0 Then      
         CT=1             
      Else            
         CT=0                 
      End if            
     End Function         
       D) Function CT(ByVal a As Integer)
               If a Mod 2=0 Then
                  Return 1
                          Else
                  Return 0
                 End if
             End Function
考生答案:      正確答案:  B

(35) 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
   Dim m As Integer, n As Integer, p As Integer
   m=3: n=5: p=0
   Call Y(m, n, p)
   Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
   k=i + j
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是
A) 4        
B) 6
C) 8        
D) 10
正確答案:  C