【新手入门】之三：循环语句For

roych · 发表于 2012-3-4 14:56:37

   按计划应该是上周完成的，由于临时有事，只好推到现在才开始讲循环语句了。
For语句语法：
   For 变量=初始值 To 终止值 [Step 步长值]
         执行语句
         [Exit For]
Next [变量]
   步长值默认为1，怎么理解步长值呢？先举个例子：求1-100的奇数和。
怎么求奇数呢？根据奇数的定义，如果一个数除以2余1的都是奇数，而在VB中有个简单的数学运算符，就是Mod取模。综上，得到第一段代码：

Sub test1()
Dim i As Long
For i = 1 To 100
If i Mod 2 = 1 Then
j = j + i
End If
Next
Debug.Print j
End Sub

复制代码

有没有更简单点的？当然有了。由上面知道，我们只需要让变量i每次向前跳过一个数就好了，怎么跳呢？答案很简单：i=i+1

游客，如果您要查看本帖隐藏内容请回复

第一次运行时，初始值i=1，j=1，接着i赋值为i+1（即2），然后开始执行i=2的语句（实际上这时候i=2+1=3了），因此得到第二个j=1（i=1时）+3(i=2+1时）=4，如此类推……当然，更直接的办法是，在j=j+1前面加上Debug.Print i，你将清楚地了解i的来龙去脉。
这个i=i+1不好理解，能不能更直接点？能！那就是现在要讲的Step了：

游客，如果您要查看本帖隐藏内容请回复

这Step可是个“跨栏”高手，跨过这50个“障碍物”可比刘翔还要快的噢。也许这时候有人不以为然了，它能倒着“跨栏”吗？事实上，倒着并不难，只需要把“障碍物”倒着放就好了：

游客，如果您要查看本帖隐藏内容请回复

   如果你足够细心的话，这时候你会发现，咦，怎么不再是100开头的呢？答案是：99才是第一个“障碍物”。以代码test3为例，再问一个问题，如果Step为0或者大于等于100会怎么样？——如果为0将不执行代码（这可不是“原地踏步”嘛），如果大于等于100则只执行1次（因为下一步已经跳到100或100以上了，所以不再执行）。Step就讲到这里。
下面再简单讲讲For的另一个形式：
For Each 元素 In 集合
      执行语句
      [Exit For]
Next [元素]
例如，如果你想把在深圳的Roy找出来，但你又不知道Roy住在哪街哪巷，也不知道深圳有多少人口的话，那么你只需要执行一下这段代码，Roy马上就出来了：

For Each 男生 In 深圳
If 男生.Name="Roych" Then
Msgbox "Roy，你妈喊你回家吃饭"
End If
Next 男生

复制代码

风中漫步 · 发表于 2012-3-4 15:08:35

坐下学习

ycxchen · 发表于 2012-3-4 15:12:50

本帖最后由 ycxchen 于 2012-3-4 15:13 编辑

顶，通俗易懂，学习！

xie62 · 发表于 2012-3-5 08:38:57

谢谢分享

efcndi · 发表于 2012-3-5 08:56:12

看看，学学

ljp518 · 发表于 2012-3-5 12:46:31

{:soso_e163:}

tmtming · 发表于 2012-3-5 16:59:02

学习。。。。。

renyucai1963 · 发表于 2012-3-5 17:12:24

学习

yori2007 · 发表于 2012-4-1 22:51:44

{:soso_e179:}

大懒猫68 · 发表于 2012-4-2 00:06:34

不错不错

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【新手入门】之三：循环语句For

本帖被以下淘专辑推荐:

群介绍
主题无相 (随机显示版	同地区群块其他地区)