满分求助 ~````````````

[xuhhff]

如何得到：

输入 人民大会堂 得到 RMDHT
输入 起死回生 得到 QSHS
输入 我们 得到 WM
输入 任何中文 得到 RHZW 等 .....

没看明白..? 给1分

[bitsbird]

楼主信誉值很低啊

[bitsbird]

http://www.csdn.net/Develop/article/25/25536.shtm

[LoveEgg]

Dim a As New Hashtable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a1 As New DictionaryEntry
a.Add("人民大会堂", "RMDHT")
a.Add("起死回生", "QSHS")
a.Add("我们", "WM")
a.Add("任何中文", "RHZW")

'下面添加任何你需要的对应值
'.....
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(a(TextBox1.Text).ToString)
End Sub