Question

用VB语言，怎么将一串汉字转换成ask码，存入IC卡，再将编码从IC卡中读出转换成汉字，求高手指教

小弟要做一个非接触式IC卡考勤系统，用的是VB。现在遇到了一个问题就是，怎么打姓名比如“张三”输入到IC卡，再从IC卡中把它读出来

Answer 1

ASCII码不包含汉字，VB用的是Unicode编码，可以用AscW函数编码，ChrW函数解码。

Answer 2

直接用函数，asc（张三）就可以了 他储存起来就是数字 完了都出来的时候再转换过来 chr（）就可以了

追问

求完整代码
在text1中输入“张三”，command1中运行，text2中得到ask码，text3中再得到由text2转换成的汉字“张三”

Answer 3

Private Sub Command1_Click()
Dim s As String, t As String
s = "张三"
For i = 1 To Len(s)
t = t & " " & Asc(Mid(s, i, 1))
Next i
Print t
End Sub