UC知道vb字母转化为数字
来源：百度知道 编辑：UC知道 时间：2024/06/14 15:36:10
1.在text1输入字母a，command后在text2显示为数字1.依次类推在text1输入abcde在text2就会显示12345。
2.和上面的相反，在text1输入12345后在text2显示为abcde。
3.如果abcde中有一个或者几个是大写，如：Abcde，那么显示数字为(1)2345.也就是大写字母变为数字会有个括号。
用VB写这个程序！
几天不上不好意思。刚来看答案。我上面例了1 2 3个问题。但我的意思是要把他们写成一个程序。就是输入abcde出12345，输入12345出abcde，输入abcde12345出12345abcde，输入Abcde(1)2345出(1)2345Abcde。
text1里字母或者数字之间有空转换后text2也要有空格，如a bcde变成1 2345
2.和上面的相反，在text1输入12345后在text2显示为abcde。
3.如果abcde中有一个或者几个是大写，如：Abcde，那么显示数字为(1)2345.也就是大写字母变为数字会有个括号。
用VB写这个程序！
几天不上不好意思。刚来看答案。我上面例了1 2 3个问题。但我的意思是要把他们写成一个程序。就是输入abcde出12345，输入12345出abcde，输入abcde12345出12345abcde，输入Abcde(1)2345出(1)2345Abcde。
text1里字母或者数字之间有空转换后text2也要有空格，如a bcde变成1 2345
Private Function ChangeStr(ByVal strTemp As String) As String
Dim i As Integer
Dim str1 As String
str1 = ""
'如果字符串全是数字
If IsNumeric(strTemp) Then
For i = 1 To Len(strTemp)
str1 = str1 & Chr(Asc("a") + Val(Mid(strTemp, i, 1)) - 1)
Next
'如果字符串全是字母
ElseIf IsZimu(strTemp) Then
For i = 1 To Len(strTemp)
If Asc(Mid(strTemp, i, 1)) >= Asc("A") And Asc(Mid(strTemp, i, 1)) <= Asc("Z") Then
str1 = str1 & "(" & Asc(Mid(strTemp, i, 1)) - Asc("A") + 1 & ")"
Else
str1 = str1 & Asc(Mid(strTemp, i, 1)) - Asc("a") + 1
End If
Next
'如果都不是
Else
str1 = "字符串中必须完全是字母或者完全是数字"
End If
Text2.Text = str1
End Function
&#