'将一个字符转为数字Private Function CharToNum(strChar as string) as integer Select Case strChar Case "A","a" CharToNum = 1 Case "B","b" CharToNum = 2 Case "C","c" CharToNum = 3 Case "D","d" CharToNum = 4 Case Else CharToNum = 5 End SelectEnd Function '在窗体上添加一个Command1按钮Private Sub Command1_Click() Dim i As Integer Dim tmp As String tmp = "asdrdfsfjsDCABSEjssfj" For i=1 To Len(tmp) Print CharToNum(Mid(tmp, i, 1)) ' 在调试窗口打印 Next iEnd Sub