vb编程，莫尔斯电码

来源：百度知道编辑：UC知道时间：2024/05/29 12:03:32

要求编一个莫尔斯电码的程序，要求输入一个词，能输出莫尔斯电码，有一个小问题请教高手，我在输入栏里输入一个单词，怎么能取到每个字母的值，就是翻译应该是逐字母翻译，输入好比“word”，怎么样让第一个定义的变量取到w为值，怎么样让第二个取到o，以此类推？应该定义多少变量呢？因为输入的单词的长短不一样啊？不懂。。。
谢谢一楼，很有用，但是如果输入的是句子怎么办？我想把句子中没一个单词一次赋值，如下代码怎么改？

谢谢，对于你补充的问题：
你可以先计算有多少个空格，然后根据空格数+1来确定单词数
UBound(Split(Text1.Text, " ")) + 1 '//这个是单词数目
Dim P() As String
P = Split(Text1.text, " ")
dim j as integer
for j=0 to UBound(Split(Text1.Text, " "))
redim arr(len(P(j)))
dim i as integer
for i=1 to len(P(j))
arr(i)=mid(P(j),i,1) '///分别取每位上的字符
next i
next j

tt=text1.text
bb=""
for i=1 to len(tt)
a=ms(mid(tt,1,1))
bb=bb & a
next
private function ms(t) as string
电码转换
转换后的结果a
ms=a
end function
程序执行完 bb就是把text1.text转换后的电码。
句子也是直接转就行啊。反正是按字符一位一位的走呢。

我的这个做法就是把你传过来的句子按字一位一位的转，传词还是句都一样的。