求高手翻译JAVA TO VB 在线等

Question

这个代码有现成的http://wenda.tianya.cn/wenda/thread?tid=4081e5e8a285e74bFunction GBtoUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'如果输入参数为空，则退出函数
If szInput = "" Then
 GBtoUTF8= szInput
 Exit Function
End If
'开始转换
For x = 1 To Len(szInput)
 wch = Mid(szInput, x, 1)
 nAsc = AscW(wch)
 If nAsc < 0 Then nAsc = nAsc + 65536
 If (nAsc And &HFF80) = 0 Then
  szRet = szRet & wch
 Else
  If (nAsc And &HF000) = 0 Then
   uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
   szRet = szRet & uch
  Else
   uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
   Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
   Hex(nAsc And &H3F Or &H80)
   szRet = szRet & uch
  End If
 End If
Next
GBtoUTF8= szRet
End Function

Answer 1

不会吧,好象分数给错人了,, TO liuxiaoyi666 对不起,不好意思,给你点什么呢