VB编程计算0-100间的奇数和

急

---

Private Sub iTest()
Dim s%, i%, ms$
For i = 1 To 100
If i Mod 2 = 1 Then
s = s + i
ms = ms & vbTab & i
Next i
'毁培 Print "0-100间族漏的奇数和为：" & s
MsgBox "0-100间的奇兆余烂数和为：" & s & vbCrLf & ms
End Sub

---

Private Sub Command1_Click()
Dim s As Integer
For i = 1 To 100 Step 2
s = s + i
Next i
Print "0-100间芹姿的奇数和袭首并为拍迹：" & s
End Sub

---