vb6使用mscomm，串口读取16进制字节数据，先读取3个字节，将其赋值给x1，再进行8次循环，循环中每次读取2个字节并将其转换为double型赋值给变量，最后读取2个字节

并将其赋值给x2。以下是代码示例：

Private Sub ReadData()
Dim x1 As String ' 用于存储前3个字节的16进制数据
Dim x2 As String ' 用于存储最后2个字节的16进制数据
Dim i As Integer ' 循环计数器
Dim data As String ' 用于存储每次读取的2个字节的16进制数据
Dim value As Double ' 用于存储转换后的double型数据

MSComm1.InputLen = 3 ' 设置读取长度为3个字节
x1 = MSComm1.Input ' 读取前3个字节的16进制数据

For i = 1 To 8 ' 循环8次，每次读取2个字节
MSComm1.InputLen = 2 ' 设置读取长度为2个字节
data = MSComm1.Input ' 读取2个字节的16进制数据
value = HexToDouble(data) ' 将16进制数据转换为double型数据
' 处理读取到的数据，可以将其存储到数组中或进行其他操作
Next i

MSComm1.InputLen = 2 ' 设置读取长度为2个字节
x2 = MSComm1.Input ' 读取最后2个字节的16进制数据
End Sub

' 将16进制字符串转换为double型数据
Private Function HexToDouble(ByVal hexStr As String) As Double
Dim hexValue As Long ' 用于存储转换后的16进制值
Dim sign As Integer ' 用于存储符号位
Dim exponent As Integer ' 用于存储指数
Dim mantissa As Double ' 用于存储尾数
Dim result As Double ' 用于存储转换后的double型数据

' 将16进制字符串转换为16进制值
hexValue = CLng("&H" & hexStr)

' 解析符号位
sign = (hexValue And &H8000) >> 15

' 解析指数
exponent = (hexValue And &H7F80) >> 7
If exponent = 0 Then ' 非规格化数
exponent = -126
mantissa = (hexValue And &H7F) / 128
ElseIf exponent = &HFF Then ' 特殊值
If (hexValue And &H7F) = 0 Then ' 无穷大
mantissa = 0
Else ' NaN
mantissa = 0.5
End If
Else ' 规格化数
exponent = exponent - 127
mantissa = 1 + (hexValue And &H7F) / 128
End If

' 计算double型数据
result = mantissa * 2 ^ exponent
If sign = 1 Then ' 处理负数
result = -result
End If

HexToDouble = result
End Function