购物商城网站:VB高手来帮我啊!

奇数和：
dim sum1%
for i=1 to 100 step 2
sum1=sum1+i
next i
print "奇数和为："sum1

偶数和：
dim sum2%
for i=0 to 100 step 2
sum2=sum2+i
next i
print "偶数和为："sum1

Option Explicit
Dim i As Integer
Dim j As Integer
Dim k As Integer

Private Sub Command1_Click()
For i = 1 To 100 Step 2
j = j + i
Next
Text1 = j '奇数
For i = 2 To 100 Step 2
k = k + i
Next
Text2 = k '偶数
End Sub

基数
dim sum
dim i
for i=1 to 100 step=2
sum+=i
next
偶数
dim sum
dim i
for i=0 to 100 step=2
sum+=i
next

private sub getcount(max as integer )
dim i as integer, j as integer,o as integer
for i=1 to max
if i mod 2 =1 then
j=j+i
else
o=o+i
end if
next i
msgbox "1 to "+cstr(max)+" 奇数和为：" & j &",偶数和为：" & o
end sub

调用即可getcount（100）
尽量避免使用long，这样可以加快速度。

拿分来~~代码：

sub sub1()
dim i as integer, 奇和 as long,偶和 as long
for i=1 to 100
if i mod 2 =1 then
奇和=奇和+i
else
偶和=偶和+i
endif
next i
msgbox "1 to 100 奇数和为：" & 奇和 &",偶数和为：" & 偶和
end sub

FUNCTION QISHU()
DIM I
FOR I=1 TO 99 STEP 2
QISHU = QISHU + I
NEXT
RETURN QISHU
END FUNCTION

FUNCTION OUSHU()
DIM I
FOR I=2 TO 100 STEP 2
OUSHU = OUSHU + I
NEXT
RETURN OUSHU
END FUNCTION