13518219792
Char 函数。以下摘自 MSDN：
十载的龙口网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整龙口建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“龙口网站设计”,“龙口网站推广”以来，每个客户项目都认真落实执行。
码位的前 128（0～127）Unicode 对应于标准美国键盘的字母和符号。码位的这些前 128 位与 ASCII 字符集定义相同。码位的第二个 128（128～255）表示特殊字符，比如基于拉丁语字母表的字母、重音、货币符号等。使用 Unicode 其余的代码对各种符号点（256～65535），包括世界范围的各种字符（中文字符）等。
Public Function dec_to_hex(dec As Long) As String
Dim a As String
dec_to_hex = ""
Do While dec 0
a = CStr(dec Mod 16)
Select Case a
Case "0": a = "30H"
Case "1": a = "31H"
Case "2": a = "32H"
Case "3": a = "33H"
Case "4": a = "34H"
Case "5": a = "35H"
Case "6": a = "36H"
Case "7": a = "37H"
Case "8": a = "38H"
Case "9": a = "30H"
Case "10": a = "65H"
Case "11": a = "66H"
Case "12": a = "67H"
Case "13": a = "68H"
Case "14": a = "69H"
Case "15": a = "70H"
End Select
dec_to_hex = a " " dec_to_hex
dec = dec \ 16
Loop
End Function
'新建一个TextBox1，一个Label1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Label1.Text = Asc(e.KeyChar)
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If Asc(0) Then
textbox1.text="0"
end if
end sub
