知ing

Visual Basic程序设计教程(第四版)

龚沛曾编 / 高等教育出版社

Lam 上传

查看本书

第五章

一、选择题:
1—11: CAABBABBBCC
二、填空题
1(3) 2. 1 2 3 32 2 3 4160 59
678 7x<=5 (x<6 或 x<7) 8B
9iSum iSum+j 1250
三、编程题
1Private 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

2Private 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

3Private 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
二、填空题
1Interval Label1.caption=time 
2List1.ListCount InterVal Hscroll1.Max

查看更多