VB6中如何将2个字节转换为整数？

在VB6里处理字节转整数其实挺直接的，结合你的需求（bytArray(0)=26、bytArray(1)=85要得到21786，再转Single做运算），我给你两种实用的实现方式：

方法一：手动拼接计算（最直接） #

先理清楚字节顺序：你的预期结果21786转十六进制是0x551A，对应bytArray(1)=85（即0x55，高字节）、bytArray(0)=26（即0x1A，低字节），也就是大端字节序。直接用算术运算就能拼接：

Dim intResult As Integer
' 高字节左移8位（等价于乘256），再和低字节做位或运算
intResult = (bytArray(1) * 256) Or bytArray(0)
' 验证：85*256=21760，21760+26=21786，完全符合预期

这里用Or和+效果一样，不过用Or更贴合位操作的逻辑，也能避免万一出现的进位问题（当然两个字节的范围不会有重叠进位）。

方法二：用CopyMemory API（更通用） #

如果后续要处理更多字节转换场景，比如批量转不同长度的字节数组，用Windows API的CopyMemory会更灵活。步骤如下：

1. 先在模块或者窗体的声明段添加API声明：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    ByVal Destination As Long, _
    ByVal Source As Long, _
    ByVal Length As Long _
)

2. 然后写转换代码：

Dim intResult As Integer
' 注意：VB6默认是小端字节序（低字节存低地址），直接复制会得到26*256+85=6741，和预期不符
' 所以先交换两个字节的位置
Dim tempByte As Byte
tempByte = bytArray(0)
bytArray(0) = bytArray(1)
bytArray(1) = tempByte
' 再把字节数组内容复制到整数变量
CopyMemory VarPtr(intResult), VarPtr(bytArray(0)), 2

如果你的字节数组本身是小端序，就不需要交换字节，直接复制就行。

转Single并做算术运算 #

得到整数后，转成Single类型非常简单，用VB6内置的CSng()函数就行：

Dim singleValue As Single
singleValue = CSng(intResult)

' 现在就可以正常做算术运算了，比如：
singleValue = singleValue * 2.3 - 50

额外注意点 #

• 字节序一定要确认：这是字节转整数最容易踩坑的地方，一定要搞清楚你的字节数组是大端还是小端，不然结果会完全不对。
• 整数范围：VB6的Integer是16位有符号数，范围是-32768到32767。如果你的字节组合可能超出这个范围，建议用Long类型存储结果，避免溢出。

内容的提问来源于stack exchange，提问作者John Sheedy