UC知道VB字符输入问题
来源：百度知道 编辑：UC知道 时间：2024/09/23 02:16:36
求一段程序：
在1个TEXT中输入一段字符，如：abcde
挖1个COMMAND，按了以后
在1个LIST中输出，按照a=1 b=2 c=3 d=4 e=5的规则
输入一段数字12345
就是我定义好abcde每个字母等于一个数字，然后我在text中输入的是字母，按下COMMAND，在一个liST中输出数字，有点译码的意思
就是看到a就等于1，看到b就等于2
在1个TEXT中输入一段字符，如：abcde
挖1个COMMAND，按了以后
在1个LIST中输出，按照a=1 b=2 c=3 d=4 e=5的规则
输入一段数字12345
就是我定义好abcde每个字母等于一个数字，然后我在text中输入的是字母，按下COMMAND，在一个liST中输出数字，有点译码的意思
就是看到a就等于1，看到b就等于2
Dim m, n, xx
For m = 1 To Len(Text1.Text)
For n = 1 To 26
If a(n) = Mid(Text1.Text, m, 1) Then
xx = xx & n
End If
Next
Next
MsgBox xx
没怎么明白
自己设个字典就行了，其实就是一个数组，找出对应关系替换就行了．
Option Explicit
Private Sub Command1_Click()
Dim i%, ym, pym, j, k%, out
ym = "abced"
pym = "12345"
For i = 1 To Len(Text1)
j = Mid(Text1, i, 1)
k = InStr(1, ym, j, vbTextCompare)
out = out & Mid(pym, k, 1)
Next i
List1.AddItem out
End Sub