手机
当前位置:查字典教程网 >电脑 >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函数折旧值计算

excel柱状图里的系列1怎么改名?

Excel2010限制单元格字符个数教程

excel下拉菜单怎么做?

怎么把Word的内容以图片格式插入到Excel2010中?

excel跨表格引用数据

excel2013如何添加修改图表标题

50个逆天功能学会exel

精品推荐
分类导航