ハッシュテーブルの検索について (ID:124386)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 作ってみました。 元の hashTest("12345678901111") が、どのような値を返すのか わからなかったので、とりあえず キー＝値にしてあります。 Dim Hash10 As New Hashtable Hash10.Add("1234567890", Hash14("12345678901111", "12345678902222", "12345678903333")) Hash10.Add("1111111111", Hash14("11111111111111", "11111111112222", "11111111113333")) For Each ht As DictionaryEntry In Hash10("1234567890") '値の出力 Trace.WriteLine(ht.Value) Next '--------------- Function Hash14(ByVal ParamArray X() As String) As Hashtable Hash14 = New Hashtable For Each s As String In X Hash14.Add(s, s) Next End Function