[已解决]字符串返回数字

indexmatch

如图，在第1行输入大写字母，在第2行返回字母在26个字母中的排序。
如字母A返回1，字母J返回10。
字符长度不固定，只知道在[1,8]范围内。
需求代码，谢谢各位！

最佳答案

月排行榜 / 总排行榜

youfang

2014-5-14 21:32

1. Private Sub CommandButton1_Click()
   
2.     Dim st As String
   
3.     st = TextBox1.Value
   
4.         For i = 1 To Len(st)
   
5.             s = s & ASC(Mid(st, i, 1)) - 64
   
6.         Next
   
7.     TextBox2.Value = s
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

dsmch

权作参考…………

1. Sub Macro1()
   
2. zf = "ABCDFE"
   
3. For i = 1 To Len(zf)
   
4.     p = p & Asc(Mid(zf, i, 1)) - 64
   
5. Next
   
6. MsgBox p
   
7. End Sub
   

复制代码

youfang

1. Private Sub CommandButton1_Click()
   
2.     Dim st As String
   
3.     st = TextBox1.Value
   
4.         For i = 1 To Len(st)
   
5.             s = s & ASC(Mid(st, i, 1)) - 64
   
6.         Next
   
7.     TextBox2.Value = s
   
8. End Sub
   

复制代码