VB codeDim dic As New Dictionary(Of String, String) dic.Add("111", "") dic.Add("32", "") For Each k In dic.Keys ... Next把这两个key值放到textbox1中去,key之间用vbcrlf分开