Question

VB关于数组的一个问题

比如我定义dim a() as string

我现在并未定义数组下标
我想实现的是
比如我窗体有个text1,command1
在command1_click，将text1的值加入a()里
如果存在就不增加，不存在就进去
代码应该怎么写

Answer 1

那就不是要用数组了，用字典对象
窗体的LOAD事件中中
dim A as object
set a=createobject("Scripting.Dictionary")

command1_click事件中

if not a.Exists((text1)) Then a.add (text1)

下面这段是枚举中每个值的方法示例
for each tempA in a.keys
msgbox tempA

next