Question

vb6 文字对应数字

好像是每一个字符都对应数字。怎样将text1的字符转化成对应的数字

Answer 1

你是不是想用一串数字表示文本框中的文本？首先知道ASC("文本")只对文本第一个字符取ascii码的。
dim dy as string
for i=1 to len(text1.text)
dy=asc(left(text1.text,i)) & " " & dy
next
这就得到了一个用空格分开的由数字组成的字符串。

Answer 2

你说的数字应该是指编码，也就是ascii码。vb的ascii码较老式的ascii码有其区别。老式的ascii码是正整数，1-255之间。可以用来表示大、小写英文字母，数字，标点符号，和一些小图标，例如（#$%）。vb的ascii码则是根据多语言的特性进行了增强的。
在vb中，中文的ascii码是负整数。
在vb中，得到字符的ascii码的语句是：Asc(字符)
例如求大写“A”的ascii码可以利用如下语句：
Asc("A")
求“我” 的ascii码，可以：
Asc("我")

Answer 3

Private Sub Command1_Click()
Dim AX As String
For I = 1 To Len(Text1.Text)
AX = AX & CStr(Asc(Right(Left(Text1.Text, I), 1))) & " "
Next I
Text2.Text = AX
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub