在VB中怎样将A—Z转换成0-26？

在VB中怎样将A—Z转换成0-26？

num=asc("A")-96

就可以了，但是只能转换大写字母，大小写字母通用的：
str="a"
num=asc(ucase(str))-96

private Change(stinng char) as int { switch(char) { case "A": return 0; case "B": return 1; ... } }

'函数 Function GetNumber(Zfc As String) As String Dim i As Integer, S As String S = UCase(Zfc) If S >= "A" And S <= "Z" Then GetNumber = Asc(S) - 65 End If End Function '调用举例： msgbox GetNumber("A")

Option Explicit Private Sub Command1_Click() Print Asc(InputBox("请输入大写字符")) - 65 End Sub 或者: Option Explicit Private Sub Command1_Click() Dim i As Integer For i = 0 To 25 Print Chr(i + 65) & "--------" & i '英文字符好像A-Z 是26个 Next End Sub 看看哪个是你要的

楼上的那么麻烦干嘛。 dim R as string,i as integer R="F"'这里是你要转换的字母 select case R case "A" to "Z" i=asc(R)-ASC("A") case "a" to "z" i=asc(R)-ASC("a") end select print i 多简单！

'给个其它的方式 Private Function GetNumByChar(ByVal Char As String) As Integer '输入的字符串长度大于1时取首字母，长度为0时返回-1 If Len(Char) < 1 Then Char = vbNullChar GetNumByChar = (Asc(Char) And &H1F) - 1 '不减1的话就是生成1～26，这里是生成0～25 End Function