Question

vb 十六进制转换十进制

Private Sub Command1_Click()
Text2.Text = Val("&h" & Text1.Text)
End Sub

Private Sub Form_Load()
Text1.Text = "ffff"
End Sub

为什么text2是-1？
8个f的时候text也是-1，这是什么情况？

Answer 1

试试这样吧
将
Text2.Text = Val("&h" & Text1.Text)
改成
Text2.Text = Val("&h0" & Text1.Text)
或许可以成功.

追问

还是-1。。。。

追答

那试试这样呢
Text2.Text = CDbl("&h" & Text1.Text)
现在没有VB环境,但用CDbl在VBS里可以成功.

追问

ffff 出来了，65535
ffffffff还是-1，问题已经解决了，我最多用到ffff，谢谢啊
但是能告诉我下，是什么原因造成的吗？

追答

具体原因我也说不清,猜想应该与VB隐式转换的默认数据类型有关.

Answer 2

-1是 &hFFFF的十进制补码

追问

那这个问题应该怎么解决啊？我是个新手。。。

追答

Private Sub Command1_Click()
Text2.Text = hex2dec(Text1.Text)
End Sub

Private Sub Form_Load()
Text1.Text = "ffff"
End Sub

'把16进制数转换成10进制数
Public Function hex2dec(s As String) As Long
Dim i As Long, a As Variant, k As Long
k = 0
For i = Len(s) - 1 To 0 Step -1
a = Asc(UCase(Mid(s, i + 1, 1))) '统一求得各个字符的小写状态下的字符所对应的ASCII值
a = IIf(a >= 48 And a <= 57, a - 48, a - 55)
'0的ASCII码为48，字母a的ASCII码为65,而16进制下的A对应为10进制下的10
k = k + (16 ^ i) * a '累加
Next
hex2dec = k '得到的这个返回值 K 就是转换后的10进制数
End Function