VB中for each 用法

Question

我刚学VB 请问下哪位朋友能帮我解释:FOR EACH....NEXT 这个语法的用法,在网上CAPY的就不要啦,能给我讲讲例子最好的...我有一本书是讲到用FOR EACH语句向列表框中添加所有数据库表,他是这样写的:
DIM TD AS TABLEDEF
FOR EACH TD IN TD.TABLEDEFS
IF LEFT$(TD.NAME,4)<> "MSYS" THEN
LIST1.ADDITEM TD.NAME
NEXT TD
不是很懂什么意思,能不能说说啊??谢啦

Answer 1

'声明一个表对象
DIM TD AS TABLEDEF
'使用for each 循环表的集合 td.tabledefs为表的集合
for each td in td.TABLEDEFS
'判断如果表名称最左边4个字符不等于"MSYS"，也就表示不是系统表
'Access数据库系统表开头都已"MSYS"开头
IF LEFT$(TD.NAME,4)<> "MSYS" THEN
'那就将这个表名称添加到list1中
LIST1.ADDITEM TD.NAME
'继续执行下一个判断
end if
NEXT TD

Answer 2

For Each ……Next循环的使用格式：
For Each <成员>In<数组>
[<语句组>]
[Exit For ]
Next [<成员>]
例：
For Each x In a
sum = sum + x
Next x
例子中a为一个数组；x是成员，不用定义