谁帮我写一个VB查ascii的程序

谁帮我写一个VB查ascii的程序

答案：
Option Explicit 

ShowASCII() 

Sub ShowASCII() 
Dim sCharacter 
Dim aCharacter() 
Dim sASCII 
Dim sValue 
Dim sMsg 
sCharacter=InputBox("请输入字符：","ASCII码查看器") 
If sCharacter<>"" Then 
Dim i 
ReDim aCharacter(Len(sCharacter)) 
For i=0 to Len(sCharacter)-1 
aCharacter(i)=Asc(Mid(sCharacter,i+1,1)) 
Next 
sASCII=Join(aCharacter," ") 
sValue=MsgBox("原字符代码："&sCharacter&vbcrlf&"ASCII 代码："&sASCII,vbInformation+vbRetryCancel,"返回结果") 
If sValue=vbRetry Then 
ShowASCII() 
Else 
Terminate() 
End If 
Else 
sMsg=MsgBox("没有检测到输入值，是否继续？",vbQuestion+vbYesNo,"警告！") 
If sMsg=vbYes Then 
ShowASCII() 
Else 
Terminate() 
End If 
End If 
End Sub 

Sub Terminate() 
Dim myMsg 
myMsg=MsgBox("欢迎下次使用！",vbInformation,"再见！") 
WScript.Quit() 
End Sub

保存为ASCLL.VBS
Private Sub Command1_Click() 
For i = 0 To 128 
Print Format(i, "@@@") & " --- " & Chr(i) & " "; 
If (i + 1) Mod 4 = 0 Then Print 
Next 
End Sub 
asc("?") 提示你一下　你自己写吧　这个很简单吧

上一个：谁能耐给我介绍下` VB`
下一个：VB里面把文字保存在软件上的代码