关于用VB制作摩斯密码翻译器的问题

Mid(Temp, i, 1) = GetUserCar(Mid(UserInStr, i, 1))

这句很奇怪，不是条件表达式的话赋值罩迅语句没有这么做的

另外里面的1是截取1位，输出缺要两辩手位，你想想携闷嫌

需要一本字典，当然就是你编的，或者现成的编码如unicode

进行查找，如辩宽果从字典中查找出需要被替换的字，那么就可以替携卖亮换为你的密码

反配桥过来同理。。

最早的摩尔斯电码是一些表示数字的点和划。数字对应单词，需要查找一本代码表才能知道改槐绝每个词对应的数。用一个电键可以敲明旦击出点、划以及中间的停顿。 虽然摩尔斯发明了电报，但他缺乏相关的专门技术。他与艾尔菲德·维尔签定了一个协议，让他帮自己制造更加实用的设备。艾尔菲德·维尔构思了一个方案，通过点、划和中间的停顿，可以让每个字元和标点符号彼此独立地发送出去。他们达成一致，同意把这种标识不同符号的方案放到摩尔斯的专利中。这就是现在我们所熟知的美式摩尔斯电码，它被用来传送了世界上第一条电报。 它由两种基本信号和不同的间隔时间组成：短促的点信号" ．"，读" 的 "（Di）；保持一定时间的长信号 划 "—"，读"答 "（Da）。间隔时间：滴，1t；答,3t；滴答间,1t；字母间,3t；字间,5t。在一个字母或数字内，各点、划之间的间隔应为2t。字母（数字）与字母（数字）之间的间隔为7t。 摩斯密码表： 字母 电码 标准拼读 A ·－ Alpha B －··· Bravo C －·－· Charlie D －··· Delta E · Echo F ··－· Foxtrot G －－· Golf H ···· Hotel I ·· India J ·－－－ Juliet K －·－ Kilo L ·－·· Lima M －－ Mike N －· November O －－－ Oscar P ·－－· Papa Q －－·－ Quebec R ·－· Romeo S ··· Sierra T － Tango U ··－ Uniform V ···－ Victor W ·－－ Whiskey X －··－ X-ray Y －·－－ Yankee Z －－·· Zulu 1·————Unaone 2··——— Bissotow 3···——Terrathree 4····— Kartefour 5····· Pantafive 6 —····Soxisix 7——··· Setteseven 8———·· Oktoeight 9————· Novenine 0————— Nadazero 摩斯密码 程序信号： 句号─·─·─ 逗号─ ─··── 求救讯号 ···———··· (SOS) 质疑的或疑问的 ·─·─核姿─·─(RQ) 发讯者 ─···(DE) 接收者(R) ·─· 错误········(EEEE etc.) Wait等 ·─··· 信息结束 ·─·─· 在我国电报通信中，每个汉字都有四个数字代表，组成其电文的数字是用的"短码"拍发的。"短码"不可和字码一起混合使用！业余无线电通信中不用"短码"！ 数码(短码) 1: .- 2: ..- 3: ...-- 4: ....- 5: . 6: -.... 7: --. 8: -.. 9: -. 0: -

---