VB中求1到N的奇数和（求救）

再N输入后加入：
if N mod 2 =1 then
msgbox("请输入正确的奇数")
end Private Sub form_click()
Dim N As Integer
Dim Sum As Integer
Dim i As Integer
N:

N = InputBox(" enter N(NΪÈÎÒâÆæÊý)")

if N mod 2 =1 then
msgbox("请输入正确的奇数")
goto
N
endif
Sum = 0
For i = 1 To N Step 2
Sum = Sum + i
Next i
Print Sum

End Sub

Private Sub form_click()
Dim N As Integer
Dim Sum As Integer
Dim i As Integer
N = InputBox(" enter N(NΪÈÎÒâÆæÊý)")
N=iif(N mod 2,N-1,N) '将N变成奇数就行了.
Sum = 0
For i = 1 To N Step 2
Sum = Sum + i
Next i
Print Sum

End Sub

private
sub
command1_click()
dim
n,
sum
cls
n
=
inputbox("n")
for
i
=
1
to
n
step
2
sum
=
sum
+
i
next
print
sum
end
sub

再N输入后加入：
if N mod 2 =1 then
msgbox("请输入正确的奇数")
end if

输入偶数也还会出错