在线等

Question

有一个问题，比如这段代码，
Private Sub Form_Load()
Dim byteAry() As Byte
Dim str As String
Dim i As Long
str = "中华人民共和国"
byteAry = str
For i = LBound(byteAry) To UBound(byteAry)
    MsgBox Hex(byteAry(i)) & Hex(byteAry(i + 1))
    i = i + 1
NextEnd Sub
大家运行一下看看，中的输出为2D4E,我怎么才能得到方向输出呢？E4D2

Answer 1

Microsoft(R) Visual Basic(R) Scripting Edition
StrReverse 函数  语言参考 
版本 2  
--------------------------------------------------------------------------------描述
返回字符串，此字符串与指定字符串顺序相反。
语法
StrReverse(string1)
string1 参数是要进行字符反向的字符串。如果 string1 是零长度字符串 ("")，则返回零长度字符串。如果 string1 为 Null，则会出现错误。说明
下面的示例利用 StrReverse 函数返回按相反顺序排列的字符串: 
Dim MyStr
MyStr = StrReverse("VBScript") 'MyStr 包含 "tpircSBV"。

Answer 2

偶不懂unicode码是怎么编码的。就按它的编码方式，转换一下就行了吧。

Answer 3

Private Sub Form_Load()
    Dim byteAry() As Byte
    Dim str As String
    Dim i As Long
    str = "中华人民共和国"
    byteAry = str
    For i = LBound(byteAry) To UBound(byteAry)
        Debug.Print Hex(byteAry(i)), Hex(byteAry(i + 1))
        Debug.Print StrReverse(Hex(byteAry(i + 1))), StrReverse(Hex(byteAry(i)))
        Debug.Print
        'MsgBox Hex(byteAry(i)) & Hex(byteAry(i + 1))
        i = i + 1
    Next
    Debug.Assert False
End Sub