这样可以吗？

[zjx200308]

Public Class SamplesHashtable

Public Shared Sub Main()
dim a() as long
' Creates and initializes a new Hashtable.
Dim myHT As New Hashtable()
for i as long=O to 10000000
a(i)=i+1

myHT.Add(a(i), i)

next
' Displays the Hashtable.
Console.WriteLine("The Hashtable contains the following:")

PrintKeysAndValues(myHT)

End Sub 'Main

Public Shared Sub PrintKeysAndValues(myHT As Hashtable)
Console.WriteLine(vbTab + "-KEY-" + vbTab + "-VALUE-")
Dim de As DictionaryEntry
For Each de In myHT
Console.WriteLine(vbTab + "{0}:" + vbTab + "{1}", de.Key, de.Value)
Next de
Console.WriteLine()
End Sub 'PrintKeysAndValues

End Class 'SamplesHashtable

[viena]

这样不可以~

[想飞的狼]

:)

[lang_csdn]

请问，楼主的问题，是什么意思！

[lang_csdn]

[Quote=引用 4 楼 zjx200308 的回复:]
引用 3 楼 lang_csdn 的回复:
请问，楼主的问题，是什么意思！

我的意思Hashtable() ：
for i as long=O to 10000000
        a(i)=i+1

      myHT.Add(a(i), i)
可以添加这么多值吗？如果可以，速度怎么样？
[/Quote]

试一下，不就知道了！

[zjx200308]

[Quote=引用 3 楼 lang_csdn 的回复:]
请问，楼主的问题，是什么意思！
[/Quote]
我的意思Hashtable() ：
for i as long=O to 10000000
a(i)=i+1

myHT.Add(a(i), i)
可以添加这么多值吗？如果可以，速度怎么样？

[zjx200308]

[Quote=引用 1 楼 viena 的回复:]
这样不可以~
[/Quote]
老大请问一下，能不能解释一下为什么不可以？