手机
当前位置:查字典教程网 >电脑 >Excel教程 >vba求奇数偶数和的循环代码之递增递减循环
vba求奇数偶数和的循环代码之递增递减循环
摘要:一、求偶数之和求1000以内的偶数和。第一种代码:变量递增的Sub求1到1000之间偶数和()DimI&,J&ForI=0To1000Ste...

一、求偶数之和

求1000以内的偶数和。

第一种代码:变量递增的

Sub 求1到1000之间偶数和()

Dim I&, J&

For I = 0 To 1000 Step 2

J = J + I

Next

MsgBox "1到1000之间偶数和为" & J

End Sub

第二种代码:变量递减的

Sub 求1到1000之间偶数和2()

Dim I&, J&

For I = 1000 To 1 Step -2

J = J + I

Next

MsgBox "1到1000之间偶数和为" & J

End Sub

二、求奇数之和

第一种代码:变量递增

Sub 求1到1000之间奇数和()

Dim I&, J&

For I = 1 To 1000 Step 2

J = J + I

Next

MsgBox "1到1000之间奇数和为" & J

End Sub

第二种代码:变量递减

Sub 求1到1000之间奇数和2()

Dim I&, J&

For I = 999 To 1 Step -2

J = J + I

Next

MsgBox "1到1000之间奇数和为" & J

End Sub

【vba求奇数偶数和的循环代码之递增递减循环】相关文章:

Excel函数折旧值计算

如何用Excel快速将数据变为可视的图表样式

Excel快捷键大全让你会的不止是复制粘贴

excel2013如何添加修改图表标题

如何调节键盘的灵敏度

Excel数据如何变身直观双饼图

Excel工作簿如何共享协作

excel跨表格引用数据

excel输入文字自动变成日期了咋办?

如何设置Excel2007数据精密度

精品推荐
分类导航