当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

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

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

更新时间:2023-07-18 文章作者:未知 信息来源:网络 阅读次数:

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使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


Excel整体界面趋于平面化,显得清新简洁。流畅的动画和平滑的过渡,带来不同以往的使用体验。

温馨提示:喜欢本站的话,请收藏一下本站!

本类教程下载

系统下载排行

网站地图xml | 网站地图html