vb中将16进制转换成10进制的函数是什么？

Question

如题，谢谢！分数只给一人。

Answer 1

假设 a 是一个16进制数.Format("&h"+a)
可以把它转换为10进制的数.

Answer 2

可以有个变通的方法：private sub command1_click()dim l as longl = "&H" & text1.text
'前提是textbox的输入字符必须符合十六进制的表达，进行输入判断吧
'比如限制0-9 A-F以外的字符输入等等
text1.text = lend sub

Answer 3

Private Function HexToLng(ByVal strHex As String) As Long
    Dim i As Integer, j As Integer, v As Integer, s As String
    strHex = Trim(strHex)
    For i = CByte(Len(strHex)) To 1 Step -1
        s = Mid(strHex, i, 1)
        Select Case UCase(s)
            Case "A": v = 10
            Case "B": v = 11
            Case "C": v = 12
            Case "D": v = 13
            Case "E": v = 14
            Case "F": v = 15
            Case Else: v = CInt(s) '0~9
        End Select
        HexToLng = HexToLng + v * (16 ^ j)
        j = j + 1
    Next
End Function

Answer 4

public function HexToDec(byval sHex as string) as long
    HexToDec= "&h" & sHex
end function

Answer 5

根本无需转换啊。
Val(&Hb)=11