智能仪表的串口通信：读取多组数据的循环问题

Question

Private Sub Command1_Click()
Dim arr(1 To 8) As Byte
Dim ReceiveResult As Variant
 
'HIAL上限警报
arr(1) = &H81
arr(2) = &H81
arr(3) = &H52
arr(4) = &H1
arr(5) = &H0
arr(6) = &H0
arr(7) = &H53
arr(8) = &H1
MSComm1.Output = arr
 
If MSComm1.InBufferCount >= 10 Then
    ReceiveResult = MSComm1.Input
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(1).Value = (ReceiveResult(7) * 256 + ReceiveResult(6)) / 10
Adodc1.Recordset.Update
 End IfEnd Sub
接下来我想读取仪表参数代号为02H至1AH的数据，如何用循环实现，谢谢~~
相关参考信息可以看看该地址：http://community.csdn.net/Expert/topic/5566/5566068.xml?temp=.7781641

Answer 1

for i=&H02 to &H1A
'读
next i