excel - VBA基础入门 - 图文(6)

dim 圈数 as byte

for 圈数=1 to 50 step 1 If 学生.要求=退赛 exit for End If Next 圈数 End Sub

当然，这只是一个实例，帮助你对For—next语句的理解，下面我们来用一个实例来讲解For-next语句！

问题：求1到1000的自然数的和。程序编为： 复制内容到剪贴板 代码:

Sub mysum()

Dim Lsum As Long, i As Long For i = 1 To 1000 Lsum = Lsum + i Next

MsgBox \到1000的自然数和为：\End Sub

for_next-1到1000自然数的和.rar (6.14 KB) 以下代码由老朽提供 引用:

ggsmart说明:以下代码为38度OFFICE技术论坛的老朽版主提供,主要是帮助大家对VBA语句的认识.

复制内容到剪贴板 代码:

撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间偶数和() Dim I&, J&

For I = 0 To 10000 Step 2 J = J + I Next

MsgBox \到10000之间偶数和为\End Sub

复制内容到剪贴板 代码:

'撰写: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 \到10000之间偶数和为\End Sub

复制内容到剪贴板 代码:

'撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间奇数和() Dim I&, J&

For I = 1 To 10000 Step 2 J = J + I Next

MsgBox \到10000之间奇数和为\End Sub

复制内容到剪贴板 代码:

'撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间奇数和2() Dim I&, J&

For I = 9999To 1 Step -2'此句于2009年8月18日纠正 J = J + I Next

MsgBox \到10000之间奇数和为\End Sub 引用:

感谢109楼artemis_xu朋友对以上代码的纠正！ 复制内容到剪贴板 代码:

'撰写: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 \到10000之间能被5整除的数之和为\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 \到10000之间能被5整除的数之和为\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) for-each返回工作表名称.rar (7.52 KB)

程序流程控制——Do While语句 ===========================

Do While也是循环语句，它分为两种情况，一种是把循环条件放在开头，一种是把循环条件放在结尾。

1、开头判断循环条件 语句格式：

Do Wihle 循环条件 语句块1 [Exit Do] 语句块2 Loop

首先判断循环条件，条件为真则执行Do到Loop之间的语句。 2、结尾判断循环条件 语句格式： Do

语句块1 [Exit Do] 语句块2

Loop Wihle 循环条件

先执行一次Do到Loop之间的语句，再判断循环条件，满足条件则进行循环。

两种格式的区别：因为第二种格式是把循环体放在尾部，得先执行一遍语句再进行循环条件判断，所以，同样的条件，第二种格式的循环会比第一种多执行一次循环部份的语句。 我们用Do While语句来解决求1——1000的自然数的和的问题： 复制内容到剪贴板 代码:

Sub mysum()

Dim Lsum As Long, i As Long i = 1

Do While i <= 1000 Lsum = Lsum + i i = i + 1 Loop

MsgBox \到1000的自然数和为：\End Sub

do while1到1000自然数的和.rar (6.19 KB) do while1到1000自然数的和.rar (6.19 KB)

程序流程控制——Do Until 语句

这个和Do While语句类似，它也有两种形式，学了Do While 语句，再看这个，就可以无师自通了。下面就简单介绍下： １、开头判断循环条件 语句格式：

Do Until 循环条件 语句块1 [Exit Do] 语句块2 Loop

2、结尾判断循环条件 语句格式： Do

语句块1 [Exit Do] 语句块2

Loop Until 循环条件

执行Do 和Loop之间的指令，直到循环条件为真时退出循环。

直到循环条件为真时退出循环，这是Do Until 与 Do While的区别。而它两种语句格式的区别，也是第二种比第一种多执行一次循环部分的语句。 还是求1——1000自然数的问题，这次我们换用Do Untile语句： 代码:

Sub mysum()

Dim Lsum As Long, i As Long i = 1 Do

Lsum = Lsum + i i = i + 1

Loop Until i > 1000

MsgBox \到1000的自然数和为：\End Sub

do until1到1000自然数的和.rar (6.19 KB) do until1到1000自然数的和.rar (6.19 KB)

是的，你看了上面的代码，觉得和楼上我们写的代码变化并不大。这里我用的是第二种格式(结尾判断)的语句，你可以试着用第一种句式写一写,或者改一改其他的问题.这里,我只是举个例子，路还得让你自己走！ 程序流程控制——Go to 语句 ===========================

Go to 在英语里是什么？相信大家的英语都比我好得太多，不用多说。其实Go to 语句的作用用定两个英语单词就说明问题了，?Go to 地点?就是去到哪儿的意思。

Go to 语句是将程序转到指定的标签的语句位 …… 此处隐藏：2307字，全部文档内容请下载后查看。喜欢就下载吧 ……