用VB分别求出100以内的奇数和、偶数和

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/14 08:10:00

用VB分别求出100以内的奇数和、偶数和

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 希望你满意