(29) 以下能夠正確計算n!的程序是
A) Private Sub Command1_Click()
     n=5: x=1
     Do
        x=x * I
      I=I + 1
     Loop While I < n
     Print x
   End Sub
B) Private Sub Command1_Click()
     n=5: x=1: I=1
     Do
        x=x * I
        I=I + 1
     Loop While I < n
     Print x
  End Sub
C) Private Sub Command1_Click()
     n=5: x=1: I=1
     Do
        x=x * I
        I=I + 1
      Loop While I <=n
      Print x
End Sub
D) Private Sub Command1_Click()
     n=5: x=1: I=1
     Do
        x=x * I
        I=I + 1
      Loop While I > n
      Print x
  End Sub
正確答案:  C

(30) 下列程序段，在運行時最后輸出的內容是
a=2
c=1
AAA:
c=c + a
If c < 10 Then
     Print c
     GoTo AAA
Else
      Print "10以內的奇數顯示完畢"
End If
A) 3        
B) 7
C) 9        
D) 10以內的奇數顯示完畢
正確答案:  D

(31) 單擊命令按鈕時，下列程序的執行結果為
Private Sub Command1_Click()
   Dim a As Integer, b As Integer, c As Integer
   a=2: b=3: c=4
   Print P2(c, b, A)
End Sub
Private Function P1(x As Integer, y As Integer, z As Integer)
   P1=2 * x + y + 3 * z
End Function
Private Function P2(x As Integer, y As Integer, z As Integer)
   P2=P1(z, x, y) + x
End Function
A) 21       
B) 19
C) 17       
D) 34
正確答案:  A

(32) 單擊命令按鈕時，下列程序的執行結果是
Private Sub Book(x As Integer)
   x=x * 2 + 1
   If x < 6 Then
     Call Book(x)
   End If
   x=x * 2 + 1
   Print x;
End Sub
Private Sub Command2_Click()
   Book 2
End Sub
A) 23  47       
B) 10  36
C) 22  44       
D) 24  50
正確答案:  A

(33) 有如下程序：
Private Sub Command1_Click()
     Dim k As Integer, m As Integer
     Dim p As Integer
     k=4: m=1
     p=PC(k, m) : Print p;
     p=PC(k, m) : Print p
End Sub
Private Function PC(a As Integer, b As Integer)
     Static m As Integer, i As Integer
     m=0: i=2
     i=i + m + 1
     m=i + a + b
     PC=m
End Function
程序運行后，輸出的結果為
A) 4  6       
B) 6  6
C) 8  8       
D) 10  12
正確答案:  C

(34) 有如下程序：
Private Sub Command1_Click()
   Dim a As Single
   Dim b As Single
   a=5: b=4
   Call S(a, b)
End Sub
Sub S(x As Single, y As Single)
   t=x
   x=t ＼ y
   y=t Mod y
End Sub
在調用運行上述程序后，a和b的值分別為
A) 0  0       
B) 1  1
C) 2  2       
D) 1  2
正確答案:  B

(35) 在窗體上畫一個命令按鈕，然后編寫下列程序：
Private Sub Command12_Click()
   Tt 3
End Sub
Sub Tt(a As Integer)
    Static x As Integer
     x=x * a + 1
     Print x;
End Sub
連續三次單擊命令按鈕，輸出的結果是
A) 1  5  8      
B) 1  4  13
       C) 3  7  4      
       D) 2  4  8
正確答案:  B

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目