一、選擇題：
1—11: CAABBABBBCC
二、填空題
1．(3) 2． 1 2 3 3．2 2 3 4．160 5．9
6．78 7．x<=5 (或x<6 或 x<7) 8．B
9．iSum iSum+j 1250
三、編程題
1．Private Sub Form_Click()
Dim i%,s%
S=0
For i = 101 To 200 step 2
If i mod 3<>0 then
Print i
S=s+i
End If
Next i
Print s

End Sub

2．Private Sub Form_Click()
Dim n%,s&
S=1:n=0
While s<=400000
N=n+1
S=s*n
Wend
If s>400000 Then n=n-1
Print n
End Sub

3．Private Sub Form_Click()
Dim imin%,imax%,i%,R%
Imin=100:imax=20
For i=1 to 20
R=Int(Rnd*51+50)
If R>imax Then imax=R
If R<IMIN Then imin="R Next i
Print imax,imin
End Sub