Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
a = Asc(c) + 65536
a1 = a \ 256: a2 = a Mod 256
Print c; " "; Hex$(a1); Hex$(a2)
Next i
End Sub
dim a as string
a=textbox1.text
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024