求VB高手，现在有两个text文本框，有两个command按钮，在text1中输入字母，...

Question

求VB高手，现在有两个text文本框，有两个command按钮，在text1中输入字母，点击开始按钮，将在text2中显示该字母的数字排位，如:G显示7。求详细代码，希望高手能留下QQ
不是字符串，就是在texu1中A到Z随便输入一个，然后text2就显示1到26，每次输一个字母就行

Answer 1

按照你的要求，下列代码完全能满足你的需要。
Private Sub Command1_Click()
Dim a As String
Dim xuhao As Integer
Dim bb As Integer
a = Trim(Text1.Text)
If a <> "" And Len(a) < 2 Then
If Asc(a) > 96 And Asc(a) < 132 Then
xuhao = Asc(a) - 96
Text2.Text = xuhao
Else
bb = MsgBox("你输入的不是字母", vbOKOnly)
Text1.Text = ""
Text2.Text = ""
End If
Else
bb = MsgBox("输入多个字符，你让我怎么算？？", vbOKOnly)
Text1.Text = ""
End If
Text1.SetFocus
End Sub
但是我觉得，如果使用下列代码，使用起来将会更方便。以为当你输入完一个字母后不需用鼠标，直接回车就得到结果。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As String
Dim xuhao As Integer
Dim bb As Integer
If KeyAscii = 13 Then
a = Trim(Text1.Text)
If a <> "" And Len(a) < 2 Then
If Asc(a) > 96 And Asc(a) < 132 Then
xuhao = Asc(a) - 96
Text2.Text = xuhao
Else
bb = MsgBox("你输入的不是字母", vbOKOnly)
Text1.Text = ""
Text2.Text = ""
End If
Else
bb = MsgBox("输入多个字符，你让我怎么算？？", vbOKOnly)
Text1.Text = ""
End If
Text1.SetFocus
End If
End Sub
把上面两段代码都粘贴到你的工程里，两种方法都能用。希望能帮到你。祝你开心快乐！！ 也希望能有你的QQ，我的QQ是78694359，心无挂碍

Answer 2

单个的

Private Sub Command1_Click()
Text2.Text = Asc(UCase(Text1.Text)) - 64
End Sub

如果是字符串的话 那么使用下面的语句就行了
Private Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Asc(UCase(Mid(Text1.Text, i, 1))) - 64
Next
End Sub

Answer 3

Private Sub Command1_Click()
If Asc(Text1) >= 65 And Asc(Text1) <= 90 Then Text2 = Asc(Text1) - 65 + 1 '大写，从1开始
End Sub
(If Asc(Text1) >= 97 And Asc(Text1) <= 122 Then Text2 = Asc(Text1) - 97 + 1 '小写)

Answer 4

在command中写
s=Acs(ucase(text1.text))-64
text2.text=s

Answer 5

用IF语句，写就很容易，就是麻烦