题型：综合题 题类：常考题 难易度：普通
浙江省嘉兴市第一中学2017-2018学年高二上学期信息技术期中考试试卷
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer
s = 0
For i = 1 To 1000
n = i
t = 0
k = 0
Do While n > 0
If n Mod 2 = 1 Then t = t + 1 Else k = k + 1
Loop
If Then s = s + 1
Next i
Text1.Text = Str(s)
End Sub
试题篮
