0

如果我这样设置字典：

set myDict = CreateObject("Scripting.Dictionary")

我问一个用户他的名字。

Wscript.StdOut.WriteLine "What is your name: "
name = Wscript.StdIn.ReadLine

然后我向用户询问五个数字。

Wscript.StdOut.WriteLine "Enter a number: "
    num1 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num2 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num3 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num4 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num5 = cint(Wscript.StdIn.ReadLine)

并使用ArrayList将五个提示数字放入任何数组

Set myArrayList = CreateObject( "System.Collections.ArrayList" )
myArrayList.Add num1
myArrayList.Add num2
myArrayList.Add num3
myArrayList.Add num4
myArrayList.Add num5

name如果我在我设置的字典中添加一个键。

myDict.Add name

我可以在我之前设置的字典中添加myArrayList一个值吗？namemyDict

myArrayList如果是这样，如果我要循环五个数字问题，我该如何追加或添加？

4

1 回答 1

1

字典的值可以是原始值，也可以是数组或对象（如ArrayList），如下所示：

myDict.Add name, myArrayList

或像这样：

Set myDict(name) = myArrayList

您可以通过按名称选择对象来使用它。以下会将值 42 作为新元素附加到数组列表中：

myDict(name).Add 42

您还可以将一个新的（空）数组列表放入字典中，然后附加您的数字：

Set myDict(name) = CreateObject("System.Collections.ArrayList")
Wscript.StdOut.WriteLine "Enter a number: "
myDict(name).Add CInt(WScript.StdIn.ReadLine)
...
于 2015-12-10T16:19:03.750 回答