vba求奇数偶数和的循环代码之递增递减循环

一、求偶数之和

求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

赞 (0)

相关推荐

  • C语言中判断奇数偶数

    C语言中判断奇数偶数 操作方法 01 定义x int x; 02 输出 Please input a number printf("Please input a number: " ...

  • vba操作Excel经典的通用的代码之一

    MyColumn=Target.Column　获取活动单元格所在的列号 MyRow=Target.Row　获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count　指定工作表已使用 ...

  • VBA修改窗口为最小化.最大化代码

    以下的VBA代码，均于Excel中的VBA有关，是用来修改应用程序的相关属性的。代码收藏如下。 Application.WindowState = xlMinimized ‘窗口最小化 Applica ...

  • Vba全面修改Word段落属性有效代码

    下面的WAPP是事先定义的word文档工程变量。 以下代码为通过VBA代码修改Word段落的缩进、段落间距、行距、分页等。 //段落格式设定 WApp.Selection.ParagraphForma ...

  • word文档里奇数偶数页眉如何设置

    设置方法: 1.单击页面布局选项卡右下角如图所示的按钮: 2.弹出页面设置对话框,选择版式选项卡,选中奇偶页不同复选框: 3.在第1页在页眉处双击鼠标,进入页眉编辑状态,输入奇数页页眉: 4.将光标放 ...

  • 毕业论文设置奇数偶数页不同的页眉

    毕业论文中经常出现,双面打印的论文要求奇数和偶数页的页眉是不同的.本篇将介绍如何对奇数和偶数页设置不同的页眉.工具为microsoft office word 2007,其他版本方法相同. 操作方法 ...

  • 如何改变QQ音乐的播放顺序 怎么设置循环模式为单曲循环

    如何改变QQ音乐的播放顺序 怎么设置循环模式为单曲循环

    如果想要对QQ音乐的播放顺序进行调整该怎么操作呢?接下来就由小编来告诉大家.具体如下:1.第一步,打开手机并在桌面上找到QQ音乐图标,点击打开2.第二步,进入QQ音乐主页后点击右小角的播放列表按钮3. ...

  • Java for循环：[4]一到一百所有偶数的和

    计算1到100所有偶数的和 用for循环把所有的偶数都求出来 偶数的条件是 从0开始每次加上2的都是偶数 操作方法 01 打开eclipse输入如下代码 02 public class 一到一百所有偶 ...

  • C#-计算1-100之间的所有奇数的和。偶数

    C#-计算1-100之间的所有奇数的和.偶数 操作方法 01 1. 求奇数代码: 02 2. 程序执行结果: 03 3. 求偶数代码: 04 4. 程序执行结果: 05 5.用方法来实现:判断一个给定 ...