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

时间: 2024-09-30 21:20:05

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

指针-么么哒、这题用C语言为什么出现Segmentation fault,求解释并纠错(谢绝新代码)

问题描述 么么哒.这题用C语言为什么出现Segmentation fault,求解释并纠错(谢绝新代码) //依次输出字符串中的数字团,比如poq89ayu1u&129aa //就输出89,129,一共2个数. //萌妹纸诚心诚意求修改 include int main() { char str[80],*pstr; int i=0,flag=1,num=0;pstr=str; gets(str); while(flag==1) { for(i=0;(str+i)!='';i++) { if('

单片机arduino 将数据发送到电脑桌面 求技术细节 最好有图有代码 谢谢了!

问题描述 单片机arduino 将数据发送到电脑桌面 求技术细节 最好有图有代码 谢谢了! 是通过ethernet还是只是通过串口就可以将数据包发送到桌面?我查到了一个串口助手但是只能手动保存文档到桌面 我希望可以在主循环中每循环一次就可以传输数据 就是可以随时都传输数据. 解决方案 usb小板是不是单片机

对象-求帮忙看一段java代码,很短的

问题描述 求帮忙看一段java代码,很短的 import java.util.*; public class Student implements Comparable { int score=0; String name; Student(int score,String name){ this.name=name; this.score=score; } public int compareTo(Object b){ Student st=(Student)b; return(this.sc

vba语言编程-vba求各位大神指导:CAD二次开发vba语言完成一个小程序

问题描述 vba求各位大神指导:CAD二次开发vba语言完成一个小程序 编制一个程序,绘制如图所示的路径图案. 要求: 1.路径两端中点由用户输入 2.路径宽度用户自定 3.图案不出边界: 4.填充的圆形图案在2层,直径为路径宽度的1/5,颜色为兰色 5.路径边界线绘制在1层,为红色. 6.图下写上一行文字,由用户输入. 软件AutoCAD2007,VBA语言编写代码 解决方案 这个应该找文档,CAD文档有说明VBA接口怎么用

c语言求最小公倍数 求大神帮我看看代码哪里有问题

问题描述 c语言求最小公倍数 求大神帮我看看代码哪里有问题 描述 输入两个正整数m和n,计算其最小公倍数. #include int main() { int m,n,i,l=1,j,k; scanf("%d%d",&m,&n); j=m; k=n; for(i=1;i<=m&&i<=n;i++) { while(m%i==0 && n%i==0) { j/=i; k/=i; l*=i; } } l=l*j*k; printf

编程算法:求1+2+...+n(函数指针) 代码(C++)

题目: 求1+2+...+n, 要求不能使用乘除法\for\while\if\else\switch\case等关键字及条件判断语句(A?B:C). 可以使用函数指针求解, 通过递归调用, 每次递归值减1, 使用求反运算(!), 即非0为0, 0为1. 代码: /* * main.cpp * * Created on: 2014.7.12 *本栏目更多精彩内容:http://www.bianceng.cnhttp://www.bianceng.cn/Programming/sjjg/ * Aut

javascript-js如何获取本机mac地址?求各位高手指点 最好是纯js的 求各位高手给出关键代码

问题描述 js如何获取本机mac地址?求各位高手指点 最好是纯js的 求各位高手给出关键代码 如何利用js获取本机mac地址 求各位高手能给出关键代码 最好是不需要用c直接纯js实现 解决方案 不知道你为什么要获得mac地址,http协议基于tcp/ip,你服务器得到mac也没用. 为了软件加密授权?客户端js获得mac,再提交服务器,这个又很容易伪造. 而且mac地址的获取在不同平台上又不同,不是web标准.你希望你的网站只能在pc+ie上运行?不支持所有别的浏览器?那你还要web做什么. 解

毕业项目求个c#高效分页的代码

问题描述 毕业项目求个c#高效分页的代码 最好不要存储过程,最好都是后台代码,网上都是存储过程,求大神给下 解决方案 网上查找了一下,还是有不少源代码可以参考的: C#高效分页代码(不用存储过程) C#高效分页代码(不用存储过程) 解决方案二: 存储过程比较简单嘛.代码中只要传个页码就搞定了,难道不好. 不要存储过程,那就直接写sql,或者用linq. 解决方案三: RowNumber写法,MSSQL2012新出了个offset写法,更简单 SELECT tblexamprovider.* FR

求java 实现滚动截屏代码

问题描述 求java 实现滚动截屏代码 找一个使用java对浏览器进行滚动截屏的方法,可我收了好久也没找到合适的方法,望高人指点 解决方案 Java截屏代码java截屏代码截屏代码(java) 解决方案二: 滚动截屏是什么意思?截取显示不出来的页面部分?