06/01/10 03:19:24
Visual Basic なんだけど、
Sub ex2()
Dim x As Integer, s As Integer
s = 0
For x = 1 To 100
s = s + x
Next x
If x Mod 2 Then
End If
MsgBox "合計=" & s
End Sub
ってのに奇数だけの和を求められるようにするにはどう変形すればよいですか？
06/01/10 03:19:24
Visual Basic なんだけど、
Sub ex2()
Dim x As Integer, s As Integer
s = 0
For x = 1 To 100
s = s + x
Next x
If x Mod 2 Then
End If
MsgBox "合計=" & s
End Sub
ってのに奇数だけの和を求められるようにするにはどう変形すればよいですか？