For i = 19968 To 40869 Step 1
'在十六进制数前加 %u 组成一个可转义为汉字的符号，使用Unescape函数转义
WScript.Echo Unescape("%u" & DecToHex(i) ) & "----" & i
End If
Next
'将十进制数转义为十六进制数
Function DecToHex(decimalNum)
If IsNumeric(decimalNum) Then
intNum = Fix(CDbl(decimalNum))
Else
MsgBox "您要转换的字符串不是数字类型"
Exit Function
End If
ConvertNext = True
Do While ConvertNext
uNum = GetUNum(intNum Mod 16) & uNum
intNum = Fix(intNum/16)
If intNum = 0 Then
DecToHex = uNum
ConvertNext = False
Exit Do
End If
Loop
End Function
'将十进制的0-15与16进制的0-F做对应
Function GetUNum(intStr)
If intStr < 10 Then
GetUNum = intStr
Else
GetUNum = Chr(55 + intStr)
End If
End Function