如果是一个字节的字符长度。 LeftB(Text1.Text,1)区位码:汉字好像是+ 0XAA 吧。不记得了。

解决方案 »

  1.   

    dim a as string
    dim b as string
    b = "汉字"
    a = mid( a, 1, 1 )now a = “汉”vb中汉字ascii码小于0
      

  2.   

    mid()怎么用呀?望不吝赐教
      

  3.   

    大哥你的分数真多应该是
    a = mid( b, 1, 1 )
    然后a = “汉”mid( 一个字符串,起始位置,[ 长度,可选 不添的话选择到字符串尾部 ] )返回一个字符串
      

  4.   

    mid 有三个参数
    第一个是字符串,第二个是在第几位取字符第三一般用不着
    看MSDN
      

  5.   

    mid()用法本人已晓得,希望后来的大虾们,能帮我解决求区位码的问题,up者不再送分,敬请谅解
      

  6.   

    区码=(ASC(Text1.Text) and &H7F00)\&h100-32
    位码=ASC(Text1.Text)and &HFF-160