vb数字与字母间的转换

来源：百度知道 编辑：UC知道 时间：2024/07/06 16:30:44
如，1.在text1中输入：01020305，那么command1的Click后text2就为abce,
2.在text3中输入：abcd,那么command2的Click后text3就为01020304.

Private Sub Command1_Click()
s = Trim(Text1.Text)
t = "" '每次转换前，清空Text2已有的内容
For i = 1 To Len(s) Step 2
t = t & Chr(Asc("a") - 1 + Val(Mid(s, i, 2)))
Next
Text2.Text = t
End Sub

Private Sub Command2_Click()
s = Trim(Text3.Text)
t = ""
For i = 1 To Len(s)
temp = Mid(s, i, 1)
If Asc(temp) >= Asc("a") Then
t = t & Format(Asc(temp) - Asc("a") + 1, "00")
Else
't = t & temp '要是碰上ascii值比a小的，就直接输出，或者这句不要，就不用输出
End If
Next
Text3.Text = t
End Sub

Chr 函数
描述
返回与指定的 ANSI 字符代码相对应的字符。
语法
Chr(charcode)
charcode 参数是可以标识字符的数字

太简单的问题，不想回答
简直不求上进！

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text) Step 2
Text2.Text = Text2.Text + Chr$(Val(Mid$(Text1.Text, i, 2)) + 96)
Next
End Sub

Private Sub Command2_Click()
For i