\'\'定义字典,键位中文名,值为英文名
Dim zd As New Dictionary(Of String, String)
\'\'基本信息
zd.Add("身份证号","cardID")
zd.Add("姓名","name")
zd.Add("性别","sex")
zd.Add("年龄","age")
zd.Add("籍贯","jiguan")
zd.Add("民族","rational")
zd.Add("学历","edu")
zd.Add("单位","organName")
zd.Add("部门","retiredDep")
zd.Add("地址","address")
zd.Add("状态","leaOrRetire")
zd.Add("出生年月","birth")
zd.Add("联系方式","tel")
zd.Add("健康状况","health")
zd.Add("政治面貌","politicalStatus")
zd.Add("兴趣爱好","hobbies")
zd.Add("享受待遇","title")
zd.Add("专业特长","proSpecialty")
zd.Add("入党时间","partyTime")
zd.Add("离退休职务","retiredPost")
zd.Add("所在党支部","partyBranch")
zd.Add("离退休时间","retireTime")
zd.Add("专业技术职务","proTecPost")
zd.Add("参加工作日期","workdate")
 

\'\'\'定义一个字符串列表,显示的中文名,对应的英文名
Dim nms As New List(of String)
For Each k As String In zd.Keys \'显示所有值
     nms.Add(k)
Next
MessageBox.Show(nms)

为什么红色部分不对？