如题
怎么用VB实现查询   英文汉字数字区位码
用 RichTextBox1 输入
用 RichTextBox2 显示区位码

Function QuWei(ByVal x As String) As String '汉字转区位码
    If Asc(x) >= 0 Then Exit Function
    x = Hex(Asc(x))
    QuWei = Format(CDec("&H" & Left(x, 2)) - 160, "00") & Format(CDec("&H" & Right(x, 2)) - 160, "00")
End Function

Function HanZi(ByVal x As String) As String '区位码转汉字
    HanZi = Chr("&H" & Hex(Val(Left(x, 2)) + 160) & Hex(Val(Right(x, 2)) + 160))
End Function

Private Sub Command4_Click()
    Dim strA As String
    Dim strB As String
    Dim strZJ As String
    
    strA = Text4.Text

    For i = 1 To Len(strA)
       strZJ = Mid(strA, i, 1)
       strZJ = QuWei(strZJ)
       strB = strB & strZJ & " "
    Next
    
    Text5.Text = strB
    
End Sub

谢谢分享！虽然我看不太懂，只是一个大概，我想试运行一下，总能显现它的效果。

win10 运行没有显示啊   可以输入  没有显示区位码
Text1.Text这个控件在win10不能输入单一的汉字
需要RichTextBox1这个控件才行

[此贴子已经被作者于2021-9-23 16:20编辑过]

win10 运行没有显示啊   可以输入  没有显示区位码
Text1.Text这个控件在win10不能输入单一的汉字
需要RichTextBox1这个控件才行

Win11 +VB6

现在可以了，谢谢

[此贴子已经被作者于2021-9-25 19:08编辑过]

输入数字 不行呢  1  2  3  

https://baike.baidu.com/item/%E5%8C%BA%E4%BD%8D%E7%A0%81/11027286?fr=aladdin#3

看一下区位码的定义，区位码0300对应ascii码33。