VB編程計算0-100間的奇數和

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