VB中關於給定範圍內的奇數，偶數， 求和~

Private Sub Command1_Click()

Dim i As Integer, s As Integer

s = 0

For i = 1 To 100

If i Mod 2 <> 0 Then s = s + i

Next i

Text1.Text = s

End Sub

Private Sub Command2_Click()

Dim i As Integer, s As Integer

s = 0

For i = 1 To 100

If i Mod 2 = 0 Then s = s + i

Next i

Text2.Text = s

End Sub

Private Sub Form_Load()

Command1.Caption = "1—100 所有的奇數和 "

Command2.Caption = "1-100 所有的偶數和"

Text1.Text = ""

Text2.Text = ""

End Sub