如何将vb中的字符串转换成ascii码

Question

如题所述

Answer 1

Dim i As Integer, str As String, ascstr As String
str = InputBox("请输入字符串")
For i = 1 To Len(str)
ascstr = ascstr & CStr(Asc(Mid(str, i, 1)))
Next i
Print ascstr本回答被网友采纳