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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024