%
    '中文处理函数
    sub ShowBody(Str)
    dim result
    dim l 
    l=len(str)
    result=""
    dim i
    for i = 1 to l
    s......