191问答库 > 编写一段vba代码,计算出1-100的奇数和及偶数和,并显示出来

编写一段vba代码,计算出1-100的奇数和及偶数和,并显示出来

2025-03-31 16:13:44

推荐回答（2个）

回答1：

Sub 计算奇数合与偶数和()

Dim a, b, c

a = 0
b = 0

For i = 1 To 100

c = i Mod 2

If c = 1 Then
a = a + i
Else
b = b + i
End If

Next i
msg = MsgBox("1-100的奇数合为：" & a & "偶数和为：" & b, vbOKOnly, "计算结果")

End Sub

已上传附件

回答2：

123456789101112131415161718192021Sub 计算奇数合与偶数和() Dim a, b, c a = 0b = 0 For i = 1 To 100 c = i Mod 2 If c = 1 Thena = a + iElseb = b + iEnd If Next imsg = MsgBox("1-100的奇数合为：" & a & "偶数和为：" & b, vbOKOnly, "计算结果") End Sub
已上传附件
很抱歉，回答者上传的附件已失效