题型:填空题 题类:模拟题 难易度:困难
浙江省杭州市2015年高考模拟命题比赛信息技术(1)
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
Else
c = c + i
End If
Next i
Text1.Text = Str(c)
End Sub
试题篮