如何把一个十六进制字节转换为有符号整数？

[sinat_25869705]

如题，Dim UBI_A1 As String = CShort("&H" & "E0") '16进制转10进制
得到是224，但是应该得到-32才是正确结果

请问大神怎么修改得到有符号的整数

[sinat_25869705]

引用 1 楼 yishumei 的回复:

VB的单字节类型声明只有BYTE，但它是无符号的0~255；其他整数型是2字节或者更多字节，&HE0强制转换成其他整数型都不可能是负数。 单字节整数要想转换成负数需要做个是否大于&H7F的判断。 Dim UBI_A1 As Short = CShort("&H" & "E0") If UBI_A1 > &H7F Then UBI_A1 = UBI_A1 - &H100 End If

但是2字节或更多字节用CShort是可以转换负数的，就是单字节不可以

[yishumei]

引用 2 楼 sinat_25869705 的回复:

但是2字节或更多字节用CShort是可以转换负数的，就是单字节不可以

CShort()转换之后的数据是双字节整数，强制转换单字节整数单字节前补&H00，转换后的数值永远是正数。

[清晨曦月]

dim a as byte="&H" & "80" dim b as short="&H" & "8000" dim c as integer="&H" & "80000000" dim d as uint64="&H" & "8000000000000000" 也许能挑出来个把能行的

[yishumei]

VB的单字节类型声明只有BYTE，但它是无符号的0~255；其他整数型是2字节或者更多字节，&HE0强制转换成其他整数型都不可能是负数。 单字节整数要想转换成负数需要做个是否大于&H7F的判断。 Dim UBI_A1 As Short = CShort("&H" & "E0") If UBI_A1 > &H7F Then UBI_A1 = UBI_A1 - &H100 End If

[yishumei]

引用 5 楼 sinat_25869705 的回复:

[quote=引用 3 楼 yishumei 的回复:][quote=引用 2 楼 sinat_25869705 的回复:] 但是2字节或更多字节用CShort是可以转换负数的，就是单字节不可以

CShort()转换之后的数据是双字节整数，强制转换单字节整数单字节前补&H00，转换后的数值永远是正数。 [/quote] Dim UBI_A1 As Short =VAL("&H" & "E0")，这样可以么[/quote] Val()把("&H" & "E0")强制转换成Duble类型，也做不到

[sinat_25869705]

引用 3 楼 yishumei 的回复:

[quote=引用 2 楼 sinat_25869705 的回复:] 但是2字节或更多字节用CShort是可以转换负数的，就是单字节不可以

CShort()转换之后的数据是双字节整数，强制转换单字节整数单字节前补&H00，转换后的数值永远是正数。 [/quote] Dim UBI_A1 As Short =VAL("&H" & "E0")，这样可以么

[sinat_25869705]

引用 4 楼 清晨曦月 的回复:

dim a as byte="&H" & "80" dim b as short="&H" & "8000" dim c as integer="&H" & "80000000" dim d as uint64="&H" & "8000000000000000" 也许能挑出来个把能行的

都不行....你是怎么验证

[三楼の郎]

计算机基础知识原码、反码、补码了解一下。计算机里面存储的负数都是补码，即原来的数取反加1。&HE0是-32的补码并不是-32

[syw1990330]

直接减256不就好了