(21) 通過設置何屬性可以改變所畫圖形的形狀？
A) Shape       
B) Index
C) Enabled      
D) Height
正確答案:  A

(22) 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
   s=1
   Do
      s=(s + 1) * (s + 2)
      Number=Number + 1
   Loop Until s >=30
   Print Number, s
End Sub
程序運行后，輸出的結果是
A) 2 3       
B) 2 56
C) 5 12       
D) 10 20
正確答案:  B

(23) 下列程和序段的執行結果為
x=Int(Rnd() + 9)
Select Case x
   Case 10
      Print "excellent"
   Case 9
      Print "good"
   Case 8
      Print "pass"
   Case Else
      Print "fail"
End Select
A) excellent      
B) good
C) pass       
D) fail
正確答案:  B

(24) 下列程序段的執行結果為
a=75
If a > 60 Then Score=1
If a > 70 Then Score=2
If a > 80 Then Score=3
If a > 90 Then Score=4
Print " Score="; Score
A) Score＝1      
B) Score＝2
C) Score＝3      
D) Score＝4
正確答案:  B

(25) 下列程序段的執行結果為
I=1
x=5
Do
   I=I + 1
   x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A) I＝4       
  x＝5 
B) I＝7
 x＝15
C) I＝6       
   x＝8  
D) I＝7      
   x＝17
正確答案:  D