第五章

一、選擇題：
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

第六章

一、選擇題：
1—13:?ABAACCBADADBB
二、填空題
1．Interval?Label1.caption=time?
2．List1.ListCount?InterVal?Hscroll1.Max