试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省“温州十五校联合体”2018-2019学年高一下学期信息技术期中考试试卷
i = 1: Sum = 0: t = 0
Do While i <= 10
If i Mod 3 = 0 Then
Sum = Sum + i
Else
t = t + 1
End If
i = i + 1
Loop
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c = 0: n = 10
For i = 1 To 10 Step 2
If n Mod i = 0 Then
c = c * i
c = c + i
Next i
Text1.Text = Str(c)
End Sub
试题篮
