Public Shared Sub Main() ' Creates and initializes a new Hashtable.
Dim myHT As New Hashtable()
myHT.Add("First", "Hello")
myHT.Add("Second", "World")
myHT.Add("Third", "!") ' Displays the properties and values of the Hashtable.
Console.WriteLine("myHT")
Console.WriteLine(" Count: {0}", myHT.Count)
Console.WriteLine(" Keys and Values:")
Dim myEnumerator As IDictionaryEnumerator = myHT.GetEnumerator()
Console.WriteLine(ControlChars.Tab + "-KEY-" + ControlChars.Tab + "-VALUE-")
While myEnumerator.MoveNext()
Console.WriteLine(ControlChars.Tab + "{0}:" + ControlChars.Tab + "{1}", myEnumerator.Key, myEnumerator.Value)
End While
Console.WriteLine()
End Sub
Dim myHT As New Hashtable()
myHT.Add("First", "Hello")
myHT.Add("Second", "World")
myHT.Add("Third", "!") ' Displays the properties and values of the Hashtable.
Console.WriteLine("myHT")
Console.WriteLine(" Count: {0}", myHT.Count)
Console.WriteLine(" Keys and Values:")
Dim myEnumerator As IDictionaryEnumerator = myHT.GetEnumerator()
Console.WriteLine(ControlChars.Tab + "-KEY-" + ControlChars.Tab + "-VALUE-")
While myEnumerator.MoveNext()
Console.WriteLine(ControlChars.Tab + "{0}:" + ControlChars.Tab + "{1}", myEnumerator.Key, myEnumerator.Value)
End While
Console.WriteLine()
End Sub
解决方案 »
- |zyciis| 200分急求:如何重载掉 ASPX页在中的 System.NullReferenceException 错误
- 验证码生成的问题?
- 100分求google 搜索框 效果代码
- Quickstart中Listbox示例的改进
- 在线问卷调查系统,2000人的数据量,access撑得住吗?
- 各位帮忙,sqlDataAdapter生成SQL语句的问题,急啊!
- DropDownList控件三级联动演示
- radiobuttonLIST,checkboxlist,dropdownlist的动态显示问题!!
- 讨论:希望各位大侠总结一下在asp.net中,哪些功能必须用javascript或vbscript?
- 关于数据库的连接方法
- 我的程序为什么不执行修改,迷茫.高手指教!
- 求一套完整的数据入库的语句(高效简洁)!
myHT.Add("First", "Hello")
myHT.Add("Second", "World")
myHT.Add("Third", "!")
***=MYHT.ITEM("FIRST")