回 帖 发 新 帖 刷新版面

主题:VB中怎么把字母转换成数字

我说不是用ASC码,因为字母比较的麻烦,比如M1,P1,BM1等这样的字母,把它转换成数字1,2,3
知道的麻烦说下,万分感谢!再线等,急用。

回复列表 (共1个回复)

沙发

编写一个函数:

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

我来回复

您尚未登录,请登录后再回复。点此登录或注册