提问：如何把A-Z转换为16进制

Question

最近碰到问题，如何把A-Z转换为16进制？
谢谢

Answer 1

先ASC再HEX就可以了把下面代码复制到窗体里
Private Sub Form_Resize()Me.Height = 5085: Me.Width = 8600
Dim i As Long, s1 As String, s2 As String
Dim j As Long, s3 As String, s4 As StringFor i = 65 To 90
s1 = Chr(i)
s2 = Hex(Asc(s1))
j = i + 32
s3 = Chr(j)
s4 = Hex(Asc(s3))
Print Hex(i), s1, s2, , Hex(j), s3, s4
Next iEnd Sub

Answer 2

上面的可能不是很清楚，这个也许好点,按下键盘上的键就可以看见相应字母对应的HEX值了
Private Sub Form_KeyPress(KeyAscii As Integer)
'清除FRM上的显示
Cls
'Chr(KeyAscii)把ASC码转换成字符Hex(Asc(STR))把字符转换成HEX,这个就是你要的
Print Chr(KeyAscii), Hex(Asc(Chr(KeyAscii)))
End Sub

Answer 3

呵呵......。
Const mStr1 = "abcdefghijklmnopqrstuvwxyz"
Dim mStr As String
Dim mBt() As Byte
Private Sub Form_Load()
mStr = mStr1 & StrConv(mStr1, vbUpperCase)
End SubPrivate Sub Form_Resize()
Print mStr
mBt = mStr
Dim i As Long
For i = 0 To UBound(mBt) Step 2
    Print Chr(mBt(i));
Next
    
End Sub