主题:VB中怎么把字母转换成数字
yishu7599
[专家分:0] 发布于 2010-06-01 09:39:00
我说不是用ASC码,因为字母比较的麻烦,比如M1,P1,BM1等这样的字母,把它转换成数字1,2,3
知道的麻烦说下,万分感谢!再线等,急用。
回复列表 (共1个回复)
沙发
一江秋水 [专家分:9680] 发布于 2010-06-01 17:02:00
编写一个函数:
Private Function 转换(st As String) As Integer
Dim i As Integer
Select Case st
Case "M1": i = 1
Case "P1": i = 2
Case "BM1": i = 3
End Select
转换 = i
End Function
我来回复