58问答库 > VB编程：利用For循环，计算1-N的奇、偶数之和，其中N为自然数。窗体界面的设计要求，如图

VB编程：利用For循环，计算1-N的奇、偶数之和，其中N为自然数。窗体界面的设计要求，如图

请输入要计算的数：XXXXXXXXX 奇数和：XXXXXXX 计算偶数和：XXXXXXXXX

2025-04-13 02:24:50

推荐回答（1个）

回答（1）：

rivate Sub Command17_Click()
Dim i As Long, k As Long, j As Long, o As Long
k = Val(Text1.Text)‘要计算的数
j = 0
o = 0
For i = 1 To k
If i Mod 2 = 0 Then
o = o + i
Else
j = j + i
End If
Next
Text2.Text = j'奇数和
Text3.Text = o’偶数和
End Sub