一个关于字符串的函数

Question

现在有若干个字符串
Axxx
Bxxx
Cxxx
Bxxx
Dxxx
....
特征是第一个字符都是A~G之间组成，我现在想根据某str的内容，按其第一个字母给int x赋值
A: x=1
B: x=2
C: x=3
...
G: x=7现在知道string sFirst=mid(str,1,1)可以得到字符串的第一个字母，后面不知道该如何按照sFirst来给x赋值,不知道除了一串if else的方法外有没有简单点的函数。
谢谢！

Answer 1

Dim sFirst As String
Dim snum As IntegersFirst = Mid(Text1.Text, 1, 1)Select Case Asc(sFirst)
    Case 65
        Label1.Caption = "1"
        snum = 1
    Case 66
        Label1.Caption = "2"
        snum = 2
    Case 67
        Label1.Caption = "3"
        snum = 3
    Case 68
        Label1.Caption = "4"
        snum = 4
    Case 69
        Label1.Caption = "5"
        snum = 5
    Case 70
        Label1.Caption = "6"
        snum = 6
    Case 71
        Label1.Caption = "7"
        snum = 7
End Select

Answer 2

其实也不需要得到第一个字符
直接
asc(str)-64

Answer 3

m = Asc(sFirst) - 64