中国DOS联盟

我在编写脚本的时候不止一次的碰到类似的问题了，比如：

q=c(6)
for each w in q
command
next

function c(x)
for a=1 to 100
for b=1 to 100
if a-x=0 or b-x=0 then
c=ab
end if
next
next
end function
这是一个创建了函数 c(x)的代码，c(x)是1至100中所有与6相关的数字的集合
以上代码运行出现错误：c(x) 不是一个集合对象
请问类似的集合对象要怎么创建？
我查阅了大量资料，没发现关于集合的材料，其中最相近的就是字典对象Dictionary，但是对这个对象的用法不熟悉，请高手就以上实例用代码演示一下吧？

Last edited by zhoushijay on 2007-5-11 at 12:44 PM ]

Dim d ' 创建变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' 添加一些关键字和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"

2楼兄弟跟教材里的一样，能把上面我写的那段代码演示一下吗？不管什么方法都可以

Set q=c(6)

for each w in q
msgbox q(w)
next

function c(x)
Dim d,i
Set d = CreateObject("Scripting.Dictionary")
i = 1

for a=1 to 10
for b=1 to 10
if a-x=0 or b-x=0 then
d.add i,a & ":" & b
i = i + 1
end if
next
Next

Set c = d
end function

不知这样理解你的意思对不对.

dim d

c(6)

for i=0 To UBound(d)-1

   msgbox d(i)

next

function c(x)

for a=0 to 9

    for b=0 to 9

        if a-x=0 or b-x=0 then

           d=d&a&b&"/"

        end if

    next

next

d = split(d,"/")

end function

Last edited by baomaboy on 2007-5-11 at 01:17 PM ]

4楼高手，我有一事不明，
Set q=c(6)

for each w in q
msgbox q(w)
next
为什么这里要msgbox q(w) 而不是msgbox(w)
5楼的代码也可以，而且方法很巧妙（可惜今天分数满了不能加了），只是最后多个一个空的元素
不过我跟想学会dictionary的用法

Last edited by zhoushijay on 2007-5-11 at 01:22 PM ]

明天记得给我加啊 ^_^

最后多的空值用减1的方法解决了

Set q=c(6)

for each w in q
msgbox q(w)
next

这里的w是q集合里的key，q(w)是通过key访问该元素的实际内容，可以是任意的对象

想不通……直接用数组不行？还搞那么麻烦。

明白了，谢谢ttyp高手，

dictionary就是一个数组，而且是简化了的，直接用数组不是跟麻烦

和数组不一样的，数组没有exists功能啊，dictionary有key可以快速定位元素，key是字符串

直接数组就不要dictionary了……既然一样。。。干什么还搞他出来……中间你用了几次交换。。。c d q

我觉得可以理解为哈希表，呵呵
类似c++的map和php中的哈希数组.