急用,多谢!

解决方案 »

  1.   

    看一下下面这个例子Const a As String = "花雨夜之风abc"
    Const b As String = "%BB%A8%D3%EA%D2%B9%D6%AE%B7%E7"Private Sub Command1_Click()
    Dim c, d As String
    Dim i As Long
    For i = 1 To Len(a)
        If Asc(Mid(a, i, 1)) < 0 Then
           d = "%" & Right(CStr(Hex(Asc(Mid(a, i, 1)))), 2)
           d = "%" & Left(CStr(Hex(Asc(Mid(a, i, 1)))), Len(CStr(Hex(Asc(Mid(a, i, 1))))) - 2) & d
           c = c & d
        Else
           c = c & "%" & Hex(Asc(Mid(a, i, 1)))
        End If
    Next
    MsgBox c
    End Sub