主题：下一版本可以更新一下排序方法不，用系统去排序，一般A码的可以准确，U码的就好多不行了

'''

ZD_Str = "0" & vbcrlf & "1" & vbcrlf & "2" & vbcrlf & "3" & vbcrlf & "4" & vbcrlf & "5" & vbcrlf & "6" & vbcrlf & "7" & vbcrlf & "8" & vbcrlf & "9" & vbcrlf & "A" & vbcrlf & "B" & vbcrlf & "C" & vbcrlf & "D" & vbcrlf & "E" & vbcrlf & "F" & vbcrlf & "G" & vbcrlf & "H" & vbcrlf & "I" & vbcrlf & "J" & vbcrlf & "K" & vbcrlf & "L" & vbcrlf & "M" & vbcrlf & "N" & vbcrlf & "O" & vbcrlf & "P" & vbcrlf & "Q" & vbcrlf & "R" & vbcrlf & "S" & vbcrlf & "T" & vbcrlf & "U" & vbcrlf & "V" & vbcrlf & "W" & vbcrlf & "X" & vbcrlf & "Y" & vbcrlf & "Z" & vbcrlf & "a" & vbcrlf & "b" & vbcrlf & "c" & vbcrlf & "d" & vbcrlf & "e" & vbcrlf & "f" & vbcrlf & "g" & vbcrlf & "h" & vbcrlf & "i" & vbcrlf & "j" & vbcrlf & "k" & vbcrlf & "l" & vbcrlf & "m" & vbcrlf & "n" & vbcrlf & "o" & vbcrlf & "p" & vbcrlf & "q" & vbcrlf & "r" & vbcrlf & "s" & vbcrlf & "t" & vbcrlf & "u" & vbcrlf & "v" & vbcrlf & "w" & vbcrlf & "x" & vbcrlf & "y" & vbcrlf & "z" & vbcrlf & "②" & vbcrlf & "③" & vbcrlf & "④" & vbcrlf & "⑤" & vbcrlf & "⑥" & vbcrlf & "⑦" & vbcrlf & "⑧" & vbcrlf & "⑨" & vbcrlf & "⑩" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "⑴" & vbcrlf & "⑵" & vbcrlf & "⑶" & vbcrlf & "⑷" & vbcrlf & "⑸" & vbcrlf & "⑹" & vbcrlf & "⑺" & vbcrlf & "⑻" & vbcrlf & "⑼" & vbcrlf & "⑽" & vbcrlf & "⑾" & vbcrlf & "⑿" & vbcrlf & "⒀" & vbcrlf & "⒁" & vbcrlf & "⒂" & vbcrlf & "⒃" & vbcrlf & "⒄" & vbcrlf & "⒅" & vbcrlf & "⒆" & vbcrlf & "⒇" & vbcrlf & "⒈" & vbcrlf & "⒉" & vbcrlf & "⒊" & vbcrlf & "⒋" & vbcrlf & "⒌" & vbcrlf & "⒍" & vbcrlf & "⒎" & vbcrlf & "⒏" & vbcrlf & "⒐" & vbcrlf & "⒑" & vbcrlf & "⒒" & vbcrlf & "⒓" & vbcrlf & "⒔" & vbcrlf & "⒕" & vbcrlf & "⒖" & vbcrlf & "⒗" & vbcrlf & "⒘" & vbcrlf & "⒙" & vbcrlf & "⒚" & vbcrlf & "⒛" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "一" & vbcrlf & "二" & vbcrlf & "三" & vbcrlf & "四" & vbcrlf & "五" & vbcrlf & "六" & vbcrlf & "七" & vbcrlf & "八" & vbcrlf & "九" & vbcrlf & "十" & vbcrlf & "㈠" & vbcrlf & "㈡" & vbcrlf & "㈢" & vbcrlf & "㈣" & vbcrlf & "㈤" & vbcrlf & "㈥" & vbcrlf & "㈦" & vbcrlf & "㈧" & vbcrlf & "㈨" & vbcrlf & "㈩" & vbcrlf & "Ⅰ" & vbcrlf & "Ⅱ" & vbcrlf & "Ⅲ" & vbcrlf & "Ⅳ" & vbcrlf & "Ⅴ" & vbcrlf & "Ⅵ" & vbcrlf & "Ⅶ" & vbcrlf & "Ⅷ" & vbcrlf & "Ⅸ" & vbcrlf & "Ⅹ" & vbcrlf & "Ⅺ" & vbcrlf & "Ⅻ" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?" & vbcrlf & "?"

ZD_Str = Functions.Execute("DIC_PXA码",ZD_Str)

'空值判断

If ZD_Str IsNot Nothing Then '____________________________________________________________________________________________________[*]级,[If判断:]

    Output.Show(ZD_Str)

End If '____________________________________________________________________________________________________[*]级,[End If判断:]

【out】

【U码格式排序输出】