跪求用VB编程计算1~100的奇数.偶数.整数和??

Question

急.急.急.急...!!大哥大姐们!!!
用VB编程计算1~100的奇数和 的程序??

用VB编程计算1~100的偶数和 的程序??

用VB编程计算1~100的整数和 的程序??
都不完整阿``
类似下边的!
Dim i as Integer,s As Integer
s=0
For i=1 To 100 step 2
s=s+i
next i

Answer 1

Dim sumJ As Integer, sumO As Integer, sumZ As Integer, i As Integer

Private Sub Form_Load()
For i = 1 To 100
sumZ = sumZ + i
If i Mod 2 = 0 Then
sumO = sumO + i
Else
sumJ = sumJ + i
End If
Next
Text1.Text = sumZ & vbCrLf & sumJ & vbCrLf & sumO
End Sub本回答被提问者采纳

Answer 2

dim s as integer
s = 0
for i = 1 to 100 '整数
s=s+i
next i

for i = 1 to 100 '偶数
i = i+1
s=s+i
next i

for i = 1 to 100 '奇数
s=s+i
i = i+1
next i

Answer 3

奇数和
dim i as integer,sumi as integer
for i=1 to 100 step 2
sumi=0
sumi=sumi+i
next i

print sum
偶数和

dim j as integer，sumj as integer
for j=2 to 100 step 2
sumj=sumj+j
next j

print sumj

1-100整数和

dim k as integer, sumk as integer
for k=1 to 100
sumk=sumk+k
next k

print sumk