题型:填空题 题类:模拟题 难易度:普通
Private Sub Command1_Click()
Dim s As Integer, j As Integer
s = 0
For j = 1 To 10
If j Mod 2 <> 0 Then
s = s + j
End If
Next j
Label1.Caption = Str(s)
End Sub
S=0 :T=1 For i=1 to 100 S=s+i*T T=-T Next i
| S=0 For i=1 to 100 S=s+i*(-1)^(i+1) Next i
| S=0 For i=1 to 100 S=s+i*(-1)^i Next i
| S=0:S1=0:S2=0 For i=1 to 50 S1=s1+2*i-1 S2=s2+2*i Next i S=s1-s2 ④ |
试题篮