 |
|||||||||||||
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装1000以内能被5整除的数之和的VBA代码
vba goto语句范例
ceiling语法及例子
Vba把Excel某个范围保存为XLS工作薄文件
VBA把记事本保存成为工作薄
iPad Mini的容量是多少
Excel共享工作薄为何只能打开三3个
iPad Mini支持通话功能吗
word2013中怎么设置文字间距
Excel表格怎么做多汇总？
vba求奇数偶数和的循环代码之递增递减循环
【 来源：网络 】【 点击：1 】 【 发布时间：2017_03_03 08:59:59 】
一、求偶数之和
求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