For Each...Next 語(yǔ)句對(duì)數(shù)組或集合中的每個(gè)元素重復(fù)執(zhí)行一組語(yǔ)句。 For Each element In group
[statements]
[Exit For]
[statements]
Next [element]
參數(shù)element 用來(lái)枚舉集合或數(shù)組中所有元素的變量。對(duì)于集合，element 可能是 Variant 變量、通用 Object 變量或任意指定的 Automation 對(duì)象變量。對(duì)于數(shù)組，element 只能是 Variant 變量。 group 對(duì)象集合或數(shù)組的名稱。 statements 對(duì)于 group 中的每一項(xiàng)執(zhí)行的一條或多條語(yǔ)句。 說(shuō)明如果 group 中有至少一個(gè)元素，就會(huì)進(jìn)入 For Each 塊執(zhí)行。一旦進(jìn)入循環(huán)，便首先對(duì) group 中第一個(gè)元素執(zhí)行循環(huán)中的所有語(yǔ)句。只要 group 中還有其他的元素，就會(huì)對(duì)每個(gè)元素執(zhí)行循環(huán)中的語(yǔ)句。當(dāng) group 中的沒(méi)有其他元素時(shí)退出循環(huán)，然后從 Next 語(yǔ)句之后的語(yǔ)句繼續(xù)執(zhí)行。 Exit For 只能用于 For Each...Next 或 For...Next 控制結(jié)構(gòu)中，提供另一種退出循環(huán)的方法�？稍谘h(huán)的任意位置放置任意個(gè) Exit For 語(yǔ)句。Exit For 經(jīng)常和條件判斷語(yǔ)句一起使用（例如 If...Then），并立即將控制權(quán)轉(zhuǎn)移到 Next 之后的語(yǔ)句。 可以將一個(gè) For Each...Next 循環(huán)放置在另一個(gè)之中，組成嵌套式 For Each...Next 循環(huán)。但是每個(gè)循環(huán)的 element 必須是唯一的。 注意 如果省略 Next 語(yǔ)句中的 element，則程序仍會(huì)象已包含它一樣繼續(xù)執(zhí)行。如果 Next 語(yǔ)句在其相應(yīng)的 For 語(yǔ)句之前出現(xiàn)，則會(huì)產(chǎn)生錯(cuò)誤。 下面例子舉例說(shuō)明如何使用 For Each...Next 語(yǔ)句: Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso =CreateObject("Scripting.FileSystemObject")
Set f =fso.GetFolder(folderspec)
Set fc =f.Files
For Each f1 in fc
s =s & f1.name
s =s & "<BR>"
Next
ShowFolderList =s
End Function
要求版本 2 請(qǐng)參閱Do...Loop 語(yǔ)句 | Exit 語(yǔ)句 | For...Next 語(yǔ)句 | While...Wend 語(yǔ)句
返回首頁(yè) |