vb while 求100以内 奇数

Private Sub Form_Click()
Dim s As Integer
s = 1
Do While s <= 100
sum = sum + s '求和
s = s + 2 ' S增加2。也就是1，3，5，7，。。。。奇数
Loop
Print sum '总和
End Sub

Dim s As Integer
dim result as integer
While s <= 100
If s Mod 2 <> 0 Then
Print s
result = result + s
End If
s = s + 1
Wend
print result'为所有奇数的和

Option Explicit

Private Sub cmd_show_Click()
Dim inti As Integer,dblsum as double
inti = 1
Do While inti <= 100
If inti Mod 2 <> 0 Then dblsum=dblsum+inti
inti = inti + 1
Loop
Txt_show.text="所有奇数的和为:" & dblsum
End Sub

vb6.0 xp sp2下调试通过