原创力文档- 1、本文档共77页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
问题：求1到1000的自然数的和。程序编为： 复制内容到剪贴板 代码: Sub mysum() Dim Lsum As Long, i As Long For i = 1 To 1000 ? ? Lsum = Lsum + i Next MsgBox 1到1000的自然数和为： Lsum End Sub ?? for_next-1到1000自然数的和.rar (6.14 KB) ?先执行一次Do到Loop之间的语句，再判断循环条件，满足条件则进行循环。 两种格式的区别：因为第二种格式是把循环体放在尾部，得先执行一遍语句再进行循环条件判断，所以，同样的条件，第二种格式的循环会比第一种多执行一次循环部份的语句。 我们用Do While语句来解决求1——1000的自然数的和的问题： do until1到1000自然数的和.rar (6.19 KB) 是的，你看了上面的代码，觉得和楼上我们写的代码变化并不大。这里我用的是第二种格式(结尾判断)的语句，你可以试着用第一种句式写一写,或者改一改其他的问题.这里,我只是举个例子，路还得让你自己走！ go to 1到1000自然数的和.rar (6.34 KB) 注意：为Go to 语句设置的标签必须以英文状态的冒号结尾。 有人说，为了方便程序的阅读，规范程序，在程序里也避免少用Go to 语句，我很赞同，也希望你们能养成这个习惯。 ? ?? ?撰写:38度:老朽 ? ?? ?日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间奇数和2() ? ? Dim I, J ? ? For I = 10000 To 1 Step -2 ? ?? ???J = J + I ? ? Next ? ? MsgBox 1到10000之间奇数和为 J End Sub ? ?? ?撰写:38度:老朽 ? ?? ?日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间能被5整除的数之和() ? ? Dim I, J ? ? For I = 0 To 10000 Step 5 ? ?? ???J = J + I ? ? Next ? ? MsgBox 1到10000之间能被5整除的数之和为 J End Sub ? ?? ?撰写:38度:老朽 ? ?? ?日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间能被5整除的数之和2() ? ? Dim I, J ? ? For I = 10000 To 1 Step -5 ? ?? ???J = J + I ? ? Next ? ? MsgBox 1到10000之间能被5整除的数之和为 J End Sub 程序流程控制——For—Each 循环语句 =============================== 有了前面对循环一词的理解，这里我们不用再多说，如果你知道了For—next语句的工作原理，这里再来学习For—each循环以及下面我们接着要讲的句式，那就相当简单了，同样的工作原理。 学会了吃苹果，那么离会吃梨的道路还会远吗？ 呵呵，只是开个小小的玩笑，下面我们继续，首先来看看For—Each语句的句式： For Eacn 元素变量 In 对象集合或数组名称 ? ?? ?语句块1 ? ?? ?[Exit For] ? ?? ?语句块2 next 元素变量 和上面For—next句式是一样的工作原理。 这里的“元素变量”是用来遍历集合或数中中元素的变量，它从集合或数组的第一个元素开始，直到最后一个元素，然后退出循环。 这里我们举个例子，把当前工作薄中工作表的名称写在A列，程序为： 复制内容到剪贴板 代码: Sub shtname() Dim i As Integer, sht As Worksheet i = 1 For Each sht In Worksheets ? ? Cells(i, 1) = sht.Name ? ? i = i + 1 让写入名称的单元格下移一行 Next End Sub ?? for-each返回工作表名称.rar (7.52 KB) [ 本帖最后由 ggsmart 于 2009-8-13 17:57 编辑 ] 程序流程控制——Do While语句 =========================== Do While也是循环语句，它分为两种情况，一种是把循环条件放在开头，一种是把循环条件放在结尾。 1、开头判断循环条件 ? ? 语句格式： ? ?? ? Do Wihle 循环条件 ? ?? ?? ?? ?语句块1 ? ?? ?? ???[Exit Do] ? ?? ?? ?? ?
文档评论（0）