VB编程中数据进制转换

没有，要自己写

我是都转换成16进制，然后在select case，循环后在加

Function HexToB(ByVal Ss As String) As String   '十六进制转化为二进制函数
Dim X As String
Dim i1 As Integer
For i1 = 1 To 4
X = Mid(Ss, i1, 1)
Select Case X
      Case "0"
           X = "0000"
      Case "1"
           X = "0001"
      Case "2"
           X = "0010"
      Case "3"
           X = "0011"
      Case "4"
           X = "0100"
      Case "5"
           X = "0101"
      Case "6"
           X = "0110"
      Case "7"
           X = "0111"
      Case "8"
           X = "1000"
      Case "9"
           X = "1001"
      Case "A"
           X = "1010"
      Case "B"
           X = "1011"
      Case "C"
           X = "1100"
      Case "D"
           X = "1101"
      Case "E"
           X = "1110"
      Case "F"
           X = "1111"
     
End Select
HexToB = HexToB + X
Next i1
End Function

不错啊，谢谢了！！！！大家好啊，我建了一个电工群，是专业的，PLC  欢迎大家来相互学习，指导  号码’16525292