getchar能接受字符串么？

不能，只能接受一个字符。但是你可以用循环来读取。

本人菜鸟，不会C,VB代替，Asc()=GetChar()

Dim Str,S

Str=InPutBox("请输入一个字符串")

For i=1 To InStr(Str & Chr(13) , Chr(13))-1

S=S & Asc(Right(Left(Str,i),1)) & " "

Next

MsgBox Str & Chr(10) & "转换为Ascii代码为" & Chr(10) & S

你可能可以明白我的意思了吧。