我想问↑和↓的ASCALL码值是多少
查ASCII？复制下面的代码到记事本，另存为：asc.vbs，执行即可。
'========================================
'名称:ASCII码查看器
'作者:Listry
'功能:将输入字符的ACSII码表示出来
'日期:2005年1月6日23时46分
'========================================
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("程序设计：listry"&vbcrlf&vbcrlf&"欢迎下次使用！",vbInformation,"再见！")
WScript.Quit()
End Sub