第1个回答 2007-12-16
ASC(字符) 返回ascii码
给你一个函数
它会返回传入的字符串所有ASCII码
Function AscStr(ByVal txt As String) As String
Dim ascii As String
For i = 1 To Len(txt)
ascii = ascii & Asc(Mid$(txt, i, 1)) & "$"
Next
AscStr = ascii
End Function
Private Sub Form_Load()
MsgBox AscStr("我们是")
End Sub
如果你要对返回的结果进行处理
请用split函数
例如
Function AscStr(ByVal txt As String) As String
Dim ascii As String
For i = 1 To Len(txt)
ascii = ascii & Asc(Mid$(txt, i, 1)) & "$"
Next
AscStr = ascii
End Function
Private Sub Form_Load()
Dim a
a = Split(AscStr("这个是AscStr函数测试用例"), "$")
For i = 0 To UBound(a)
If a(i) <> "" Then
MsgBox Chr$(a(i)) & "(" & a(i) & ")"
End If
Next
End Sub
傲游应该是IE的核心吧 应该不是傲游的功能
第2个回答 2007-12-22
AscW(字符) 返回ascii码
Option Explicit
Dim sTemp As String
Dim yTemp() As Byte
Private Sub Form_Load()
Text1 = "汉字转换为"
sTemp = Text1
yTemp = StrConv(sTemp, vbFromUnicode)
sTemp = StrConv(yTemp, vbUnicode)
Text2 = sTemp
End Sub
把ascii码转化成汉字
Chr 函数
返回 String,其中包含有与指定的字符代码相关的字符
Private Sub Command1_Click()
Text1 = Chr(-17734) '显示汉
End Sub