dim answer as stringanswer=hex(asc("汉"))if len(answer)<2 then answer="0"+answeranswer="%"+answer
C++BUILDER有现成的函数,估计VB也有现成的函数