汉字转拼音!!VB问题( 二 )

<160 then g=chr(num) else if num<-20319 or num>-10247 then g="" else a=d.Items b=d.keys for j=d.count-1 to 0 step -1 if a(j)<=num then exit for next g=b(j) end if end if getpy = getpy & g next end function
【汉字转拼音!!VB问题】

推荐阅读