请教一个与三菱PLC通讯的问题

Question

 源码 select Case Left(address, 1)
     Case "M"
         mStr = 2048
     Case "X"
         mStr = 1024
     Case "Y"
         mStr = 1280
     Case "S"
         mStr = 0
     Case "T"
         mStr = 1536
     Case "C"
         mStr = 3584
   End Select
   If mStr = 1024 Then
             Q = OCT_to_DEC(Mid(address, 2)) mStr 
     ElseIf mStr = 1280 Then
             Q = OCT_to_DEC(Mid(address, 2)) mStr
      Else
             Q = Val(Mid(address, 2)) mStr 
  End If
   QQ = Hex(Q)
   If Len(QQ) = 3 Then
     QQ = "0" & QQ
   ElseIf Len(QQ) = 2 Then
     QQ = "00" & QQ
   ElseIf Len(QQ) = 1 Then
     QQ = "000" & QQ
我想知道QQ=1 2 3的时候 是为了补位么?

Answer 1

QQ = Hex(Q)
   If Len(QQ) = 3 Then
     QQ = "0" & QQ
   ElseIf Len(QQ) = 2 Then
     QQ = "00" & QQ
   ElseIf Len(QQ) = 1 Then
     QQ = "000" & QQ
VB写的东西，是的，将QQ这个十六进制的字符串用‘0’补齐到4字节长。