本文作者:office教程网

J For I = 1 To 1000 Step 2 J = J I Next MsgBox 1到1000之间奇数和为 J End Sub 第二种代码:变量递减 Sub 求1到1000之间奇数和2

office教程网 2024-02-29 14:55:57
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要:   一、求偶数之和
  求1000以内的偶数和。
  第一种代码:变量递增的
  Sub 求1到1000之间偶数和()
  Dim I&, J&
  For I = 0 To 1000 Step 2
  J = J I ...

  一、求偶数之和

  求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

如图所示合并按钮(根据自己意愿选择) 然后多个单元格就合并成功了

使用office办公软件的朋友们很多不知道excel合并单元格在哪设置,其实不难非常简单,有什么excel合并单元格快捷技巧呢?小编就为大家带来exl合并单元格快捷键。 excel合并单元格在哪设置?exl合并单元格快捷键 如图我们可以看到长数据内容写不下一个单元格。 这里我们需要选中所有需要合并的单元格

  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

首先打开先前准备好了的数据表源

达标图具体制作方法: 1、启动Excel2013,首先打开先前准备好了的数据表源,我们构建一列辅助列,判断汇总数据与达标标准的大小,看看是否达标。 2、公式输入完毕,回车,得到结果是113,双击单元格填充柄,将数据填充完整。按住Ctrl键选中A1:A7,F1:G7区域。 3、单击菜单栏–插入

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:J For I = 1 To 1000 Step 2 J = J I Next MsgBox 1到1000之间奇数和为 J End Sub 第二种代码:变量递减 Sub 求1到1000之间奇数和2发布于2024-02-29 14:55:57
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: