VB中关于给定范围内的奇数，偶数， 求和~

来源：百度知道 编辑：UC知道 时间：2024/06/06 09:50:29
按键1，
text1 中显示 1—100 所有的奇数和

按键2
text2 中显示1-100 所有的偶数和

该如何去做？
请大家帮忙做一下~ 谢谢了~
是两个按键 两个TEXT 分开的题~~！！

贮备2个按纽，2个文本框 每个按纽对应一个文本，代码如下
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 100
If i Mod 2 <> 0 Then s = s + i
Next i
Text1.Text = s
End Sub

Private Sub Command2_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 100
If i Mod 2 = 0 Then s = s + i
Next i
Text2.Text = s
End Sub

Private Sub Form_Load()
Command1.Caption = "1—100 所有的奇数和 "
Command2.Caption = "1-100 所有的偶数和"
Text1.Text = ""
Text2.Text = ""
End Sub

dim i as integer,n1 as integer,n2 as integer
for i=1 to 100
if (i mod 2)=0 then
n2=n2+1
else
n1=n1+1
next
text1.text=cstr(n1)
text2.text=cstr(n2)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
dim i,s1 as integer
s1=0
for i=1 to 100