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

xuhhff 2004-05-07 05:23:40

如何得到:

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

没看明白..? 给1分
...全文
8 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
LoveEgg 2004-05-07
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
  • 打赏
  • 举报
回复
bitsbird 2004-05-07
http://www.csdn.net/Develop/article/25/25536.shtm
  • 打赏
  • 举报
回复
bitsbird 2004-05-07
楼主信誉值很低啊
  • 打赏
  • 举报
回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2004-05-07 05:23
社区公告
暂无公告