Dim rr As String, ss() As String
Dim k%
rr = CStr(Hex(aray(8)))
Select Case rr
   Case "C1"
   MsgBox "读数异常", 26, "警告"
   Case "81"
   For k = 12 To 14
   ss(k - 12) = CStr(Hex(aray(k)))
   v = Join(ss, "") & "." & CStr(Hex(aray(15)))
   Case Else
   MsgBox "应答错误", 26, "警告"
End Select

在 case else这一行报错
case else 在select case外

这是怎么回事呢？

Next k

啊 居然是这么乌龙的错....太粗心了.....
多谢~