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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 21:43:26
用VB分别求出100以内的奇数和、偶数和用VB分别求出100以内的奇数和、偶数和用VB分别求出100以内的奇数和、偶数和DimiAsLongDimjAsLongDimkAsLongFori=0To10

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

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