📄 private.txt
字号:
Private Sub Command1_Click()
Dim L1 As Integer, r1 As Integer
Dim sHex As String
Dim i As Integer
Dim InputStr As String
For i = 1 To Len(Text1.Text)
InputStr = Mid(Text1.Text, i, 1)
Select Case InputStr
Case Chr(0) To Chr(128)
Text2.Text = Text2.Text & InputStr
Case Else
sHex = Hex(Asc(Mid(Text1.Text, i, 1)))
L1 = CInt("&H" & Mid(sHex, 1, 2)) - 160
r1 = CInt("&H" & Mid(sHex, 3, 2)) - 160
Text2.Text = Text2.Text & InputStr & IIf(L1 < 10, "0" & L1, L1) & IIf(r1 < 10, "0" & r1, r1) & " "
End Select
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -