题目：求任意两个整数之间所有奇数之和  以下c字母存储奇数之和，e,d存储算到多少位,看看哪里不对？谢谢
Private Sub Command1_Click()
Dim a, b, c, d, e
a = Val(Text1.Text)
b = Val(Text2.Text)
If a Mod 2 = 0 Then
e = a + 1
Else
d = e
End If
c = 0
e = a
Do Until e > b
c = c + e
e = e + 2
Loop
MsgBox "计算结果为：" & c
End Sub

当a=奇数时，计算结果是对的
当a=偶数时，计算结果是错的

大功告成！
Private Sub Command1_Click()
Dim a, b, c, d, e
a = Val(Text1.Text)
b = Val(Text2.Text)
If a Mod 2 = 0 Then
e = a + 1
Else
e = a
End If
c = 0
d = e
Do Until d > b
c = c + d
d = d + 2
Loop
MsgBox "计算结果为：" & c
End Sub
2个小时做了这么道题，脑子够笨的，不过也很有成就感！

Private Sub Command1_Click()
Dim a, b, c, i As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = 0
For i = a To b
If i Mod 2 = 1 Then
c = c + i
End If
Next
MsgBox "计算结果为：" & c
End Sub