VBA求0到100所有奇数和

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/24 03:39:41
VBA求0到100所有奇数和VBA求0到100所有奇数和VBA求0到100所有奇数和vba代码如下:Subtest()Dimsum,iFori=1To100IfiMod20Thensum=sum+iN

VBA求0到100所有奇数和
VBA求0到100所有奇数和

VBA求0到100所有奇数和
vba代码如下:
Sub test()
Dim sum, i
For i = 1 To 100
If i Mod 2 <> 0 Then sum = sum + i
Next
MsgBox sum
End Sub