vb 怎么把汉字转换成gbk编码参考方法如下：面的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行了编码的转换。Private Sub command1_click()Debug.Print(UTF8EncodeURI(\"汉字\"))Debug.Print(GBKEncodeURI(\"汉字\"))End SubFunction UTF8EncodeURI(szInput)Dim wch，uch，szRetDim xDim nAsc，nAsc2，nAsc3If szInput=\"\"ThenUTF8EncodeURI=szInputExit FunctionEnd IfFor x=1 To Len(szInput)wch=Mid(szInput，x，1)nAsc=AscW(wch)If nAscIf(nAsc And&HFF80)=0 ThenszRet=szRet&wchElseIf(nAsc And&HF000)=0 Thenuch=\"%\"&Hex(((nAsc \\ 2^6))Or&HC0)&Hex(nAsc And&H3F Or&H80)szRet=szRet&uchElseuch=\"%\"&Hex((nAsc \\ 2^12)Or&HE0)&\"%\"&_Hex((nAsc \\ 2^6)And&H3F Or&H80)&\"%\"&_Hex(nAsc And&H3F Or&H80)szRet=szRet&uchEnd IfEnd IfNextUTF8EncodeURI=szRetEnd FunctionFunction GBKEncodeURI(szInput)Dim i As LongDim x()As ByteDim szRet As StringszRet=\"x=StrConv(szInput，vbFromUnicode)For i=LBound(x)To UBound(x)szRet=szRet&\"%\"&Hex(x(i))NextGBKEncodeURI=szRetEnd Function
VB汉字转拼音！！紧急！！ 参考：http：//www.vbgood.com/viewthread.php？tid=84369&highlight=
vb中统计字符中的汉字用select case怎么写 VB中MID函数对汉字是作为单个“字符”处理的，所有可以直接用以下代码获取一个汉字：s=Mid(Text1.Text，i，1)然后用ASC码区分汉字和英文字母（数字范围是汉字编码表的数值范围）If(AscW(s)>；-40870 And AscW(s))Or(AscW(s)(s)>；19967)Then
