以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于字典问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71583)
--  作者：wh420
--  发布时间：2015/7/14 12:54:00
--  关于字典问题

看如下代码：字典功能只能实现一个键对应一个值，那么如何实现一个键对应多个值。

 

Dim zd As New Dictionary(Of Integer, String)
zd.Add(chinese,"中国的","中国人的")
--  作者：y2287958
--  发布时间：2015/7/14 13:12:00
--  
把后面那个参数改为Object
--  作者：wh420
--  发布时间：2015/7/14 13:16:00
--  
New Dictionary(Of Integer, String)
后面不是只能跟两个参数吗？一个键一个值。
--  作者：大红袍
--  发布时间：2015/7/14 14:09:00
--  

Dim zd As New Dictionary(Of String, String())
Dim ary() As String = {"1", "2", "3"}
zd.Add("中国",ary)

 

 
--  作者：wh420
--  发布时间：2015/7/14 21:25:00
--  

Dim zd As New Dictionary(Of String, String())


Dim ary() As String = {"china","chinese","chin"}

zd.Add(中国 , ary)

Output.Show(zd(中国))

 


报错，麻烦大红袍看一下。
--  作者：大红袍
--  发布时间：2015/7/14 21:29:00
--  

Dim zd As New Dictionary(Of String, String())


Dim ary() As String = {"china","chinese","chin"}

zd.Add("中国" , ary)

Dim a() As String = zd("中国")

msgbox(a(0))