一个网址编码问题，没搞定

Question

%E7%BC%96%E7%A0%81%E6%8A%80%E6%9C%AF
谁能解出上面的网页编码的内容，解出是乱码就是错误的，

Answer 1

内容是“编码技术”，UTF-8 编码。

Answer 2

UTF8编码，对应汉字是------编码技术

Answer 3

Public Function UTF2GB(UTFStr As String) As String
    For Dig = 1 To Len(UTFStr)
        If Mid(UTFStr, Dig, 1) = "%" Then
           If Len(UTFStr) >= Dig + 8 Then
              GBStr = GBStr & ConvChinese(Mid(UTFStr, Dig, 9))
              Dig = Dig + 8
           Else
              GBStr = GBStr & Mid(UTFStr, Dig, 1)
           End If
        Else
           GBStr = GBStr & Mid(UTFStr, Dig, 1)
        End If
    Next
    UTF2GB = GBStr
End FunctionPublic Function ConvChinese(X)
    A = Split(Mid(X, 2), "%")
    i = 0
    j = 0
    
    For i = 0 To UBound(A)
        A(i) = c16to2(A(i))
    Next
    
    For i = 0 To UBound(A) - 1
        DigS = InStr(A(i), "0")
        Unicode = ""
        For j = 1 To DigS - 1
            If j = 1 Then
               A(i) = Right(A(i), Len(A(i)) - DigS)
               Unicode = Unicode & A(i)
            Else
               i = i + 1
               A(i) = Right(A(i), Len(A(i)) - 2)
               Unicode = Unicode & A(i)
            End If
        Next
        
        If Len(c2to16(Unicode)) = 4 Then
           ConvChinese = ConvChinese & ChrW(Int("&H" & c2to16(Unicode)))
        Else
           ConvChinese = ConvChinese & Chr(Int("&H" & c2to16(Unicode)))
        End If
    Next
End FunctionPublic Function c2to16(X)
    i = 1
    For i = 1 To Len(X) Step 4
        c2to16 = c2to16 & Hex(c2to10(Mid(X, i, 4)))
    Next
End FunctionPublic Function c2to10(X)
    c2to10 = 0
    If X = "0" Then Exit Function
        i = 0
    For i = 0 To Len(X) - 1
        If Mid(X, Len(X) - i, 1) = "1" Then c2to10 = c2to10 + 2 ^ (i)
    Next
End FunctionPublic Function c16to2(X)
    i = 0
    For i = 1 To Len(Trim(X))
        TempStr = c10to2(CInt(Int("&h" & Mid(X, i, 1))))
        Do While Len(TempStr) < 4
            TempStr = "0" & TempStr
        Loop
        c16to2 = c16to2 & TempStr
    Next
End FunctionPublic Function c10to2(X)
    mysign = Sgn(X)
    X = Abs(X)
    DigS = 1
    Do
        If X < 2 ^ DigS Then
            Exit Do
        Else
            DigS = DigS + 1
        End If
    Loop
    tempnum = X
    
    i = 0
    For i = DigS To 1 Step -1
        If tempnum >= 2 ^ (i - 1) Then
            tempnum = tempnum - 2 ^ (i - 1)
            c10to2 = c10to2 & "1"
        Else
            c10to2 = c10to2 & "0"
        End If
    Next
    If mysign = -1 Then c10to2 = "-" & c10to2
End FunctionPrivate Sub Form_Load()
MsgBox UTF2GB("%E7%BC%96%E7%A0%81%E6%8A%80%E6%9C%AF")
End Sub

Answer 4

UTF-8 编码：编码技术