Private Sub Form_Click()
Dim s As Integer, b As Integer, i As Integer, ji As Long, opu As Long
a = InputBox("输入一个自然数")
b = InputBox("输入另一个自然数")
If b > a Then
For i = a To b
If i Mod 2 = 1 Then
ji = ji + i
Print i;
Else
ou = ou + i
End If
Next
Print "奇数和为：" + Str(ji) + "偶数何为：" + Str(ou)
Else
MsgBox "请确保前面数字小，后面数字大"
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024