Dim i As Long Dim j As Long Dim k As Long For i = 0 To 100 If i Mod 2 = 0 Then j = j + i Else k = k + i Next MsgBox "偶数和：" & j & vbCrLf & "奇数和：" & k 希望你满意
