J For I = 1 To 1000 Step 2 J = J + I Next MsgBox 1到1000之间奇数和为 J End Sub 第二种代码：变量递减 Sub 求1到1000之间奇数和2
发布时间：2023-04-15 21:50:17
标签：代码,偶数,变量,奇数,Excel教程
一、求偶数之和
求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
0
投稿猜你喜欢
如何快速去掉word中的所有文字格式？许多人有时会将网页上的一些文字复制到word中进行编辑，这时会发现文字内容有许多格式，如字符带底纹颜色- wps将网页内容转为word格式文档的方法：1. 在浏览器中访问目标网页，执行菜单“文件”→“另存为”，文件类型选择“网页，全部”。 &nb
- 华硕主板如何恢复出厂设置？近期有用户想要将华硕主板，但是不太清楚应该如何操作，对此我们可以在开机的时候使用F8进入BIOS界面，在EXIT选
- 使用系统自带搜索功能，建立索引是非常重要的一个步骤，它可以缩短系统搜索所耗用的时间，下面以图文的形式为大家介绍下如何添加索引位置对于经常使用
- 上网本为了本钱和功耗，厚度设计，省去了光驱，这样就导致假设没有U盘或移动硬盘等第三方引导介质的状况下，无法纯真装置操作系统，再正如，U盘和移
- Excel是办公必备的表格制作软件，是office套件之一，今天为您带来的是Excel技巧提升，可以轻松玩转格式。《Microsoft Ex
- 什么是额定容量？额定容量是指铭牌上所标明的电机或电器在额定工作条件下能长期持续工作的容量。通常对变压器指视在功率，对电机指有功功率，对调相设
- 副本文件和正本文件在同一个文件夹里面，后缀.wbk。如果是自动备份文件，就在C:\Documents and Settings\Admini
- 在幻灯片中使用艺术字美化演示文稿时，有时需要改变艺术字的形状以获得特殊的文字效果。PowerPoint 2013提供了使文字变形的解决方案，
- 现在很多用户由于工作的需要，需要使用到远程访问连接功能，不过在使用Win7系统电脑进行远程访问连接的时候发现无法加载，并提示711错误，操作
- 微软发布的win10系统自动搜集用户数据，引起了大家的安全隐患的警惕，而今日微软再次重申Win10系统隐私政策，不扫描用户的敏感数据，更多内
- 如果在查看文档内容的时候想要将文档中的图片保存下来，那么可以使用WPS软件中保存图片的功能将图片导出来。通常情况下，都是保存一张图片，所以保
- excel怎么计算计算工作日天数？想知道每个月有多少天休息，多少天工作，这样做工资也比较准确，毕竟每个月的天数是不同的，下面我们来看看exc
- 在win7环境下实现mac系统，本人在惠普，戴尔inter系统上测试成功，现将经验与大家分享下由于工作室开发需要，需要使用mac系统，所以这
- 1、鼠标左键双击计算机桌面PowerPoint2013程序图标，将其打开运行。在打开的PowerPoint2013程序窗口，点击“空白演示文
- excel设置显示批注的方法：设置显示批注步骤1：我们先在表格上，随便输入一点东西，做一下测试 设置显示批注步骤2
- 在公司中使用Word文件经常会看到一些文件都有背景水印，写着“公司绝密”，这些水印是怎么添加到Word中的呢？下面小编就为大家详细介绍一下，
- 相信很多朋友都知道WiFi共享精灵，这是一个基于PC无线网卡的无线共享软件，比较多见于没有无线路由器的用户，有了这个软件就可以将电脑网络与其
- 其实在以前的win7 64旗舰版系统下载电脑中，就有不少用户提到了这个问题，每当自己正在工作，或者是正在玩游戏的时候，这个该死的自动更新程序
- win7和win8有时会出现删除不了文件的情况，弹窗提示需要某某权限，下面的脚本就可以让你获取管理员权限，这样就可以执行特殊命令了win7获
