↑和↓的ASCALL码值是多少?
\u6211\u60f3\u95ee\u2191\u548c\u2193\u7684ASCALL\u7801\u503c\u662f\u591a\u5c11\u67e5ASCII\uff1f\u590d\u5236\u4e0b\u9762\u7684\u4ee3\u7801\u5230\u8bb0\u4e8b\u672c\uff0c\u53e6\u5b58\u4e3a\uff1aasc.vbs\uff0c\u6267\u884c\u5373\u53ef\u3002
'========================================
'\u540d\u79f0:ASCII\u7801\u67e5\u770b\u5668
'\u4f5c\u8005:Listry
'\u529f\u80fd:\u5c06\u8f93\u5165\u5b57\u7b26\u7684ACSII\u7801\u8868\u793a\u51fa\u6765
'\u65e5\u671f:2005\u5e741\u67086\u65e523\u65f646\u5206
'========================================
Option Explicit
ShowASCII()
Sub ShowASCII()
Dim sCharacter
Dim aCharacter()
Dim sASCII
Dim sValue
Dim sMsg
sCharacter=InputBox("\u8bf7\u8f93\u5165\u5b57\u7b26\uff1a","ASCII\u7801\u67e5\u770b\u5668")
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("\u539f\u5b57\u7b26\u4ee3\u7801\uff1a"&sCharacter&vbcrlf&"ASCII \u4ee3\u7801\uff1a"&sASCII,vbInformation+vbRetryCancel,"\u8fd4\u56de\u7ed3\u679c")
If sValue=vbRetry Then
ShowASCII()
Else
Terminate()
End If
Else
sMsg=MsgBox("\u6ca1\u6709\u68c0\u6d4b\u5230\u8f93\u5165\u503c\uff0c\u662f\u5426\u7ee7\u7eed\uff1f",vbQuestion+vbYesNo,"\u8b66\u544a\uff01")
If sMsg=vbYes Then
ShowASCII()
Else
Terminate()
End If
End If
End Sub
Sub Terminate()
Dim myMsg
myMsg=MsgBox("\u7a0b\u5e8f\u8bbe\u8ba1\uff1alistry"&vbcrlf&vbcrlf&"\u6b22\u8fce\u4e0b\u6b21\u4f7f\u7528\uff01",vbInformation,"\u518d\u89c1\uff01")
WScript.Quit()
End Sub
65
↑16进制A1FC 10进制-24068↓16进制A1FD 10进制-24067
绛旓細鈫16杩涘埗A1FD 10杩涘埗-24067
绛旓細34 22 35 23 # 36 24 $ 37 25 % 38 26 & 39 27 ' 40 28 ( 41 29 ) 42 2A * 43 2B + 44 2C , 45 2D - 46 2E . 47 2F / 48~57 30~39 0~9 58 3A : 59 3B ; 60 3C < 61 3D...
绛旓細澶у啓瀛楁瘝A鐨凙SCII缂栫爜涓1000001锛屽垯澶у啓瀛楁瘝C缂栫爜鏄1000011銆侫SCII 鐮佷娇鐢ㄦ寚瀹氱殑7 浣嶆垨8 浣嶄簩杩涘埗鏁扮粍鍚堟潵琛ㄧず128 鎴256 绉嶅彲鑳界殑瀛楃銆傛爣鍑咥SCII鐮佷娇鐢7 浣嶄簩杩涘埗鏁帮紙鍓╀笅鐨1浣嶄簩杩涘埗涓0锛夋潵琛ㄧず鎵鏈夌殑澶у啓鍜屽皬鍐欏瓧姣嶏紝鏁板瓧0 鍒9銆佹爣鐐圭鍙凤紝浠ュ強鍦ㄧ編寮忚嫳璇腑浣跨敤鐨勭壒娈婃帶鍒跺瓧绗︺
绛旓細璁颁綇鍑犱釜甯歌瀛楁瘝鐨凙SCII鐮佸ぇ灏忥細 鈥淎鈥濅负65锛涒渁鈥濅负97锛涒0鈥濅负 48銆
绛旓細include "stdio.h"int main(void){ char s[100],ns[100];int i,j;printf("Please intput a string...\ns=");gets(s);for(j=i=0;ns[j]=s[i];i++)if(s[i]<'0' ||s[i]>'9')j++;puts(ns);return 0;}
绛旓細Byte)鍌ㄥ瓨锛屼粠0鍒版暟瀛127浠ｈ〃涓嶅悓鐨勫父鐢ㄧ鍙凤紝渚嬪澶у啓A鐨凙SCII鐮佹槸65锛屽皬鍐檃鍒欐槸97銆傜敱浜嶢SCII瀛楄妭鐨勪竷涓綅锛屾渶楂樹綅骞朵笉浣跨敤锛屾墍浠ュ悗鏉ュ張灏嗘渶楂樼殑涓涓綅涔熺紪鍏ヨ繖濂楀唴鐮佷腑锛屾垚涓哄叓涓綅鐨勫欢浼窤SCII(ExtendedASCII)鐮侊紝杩欏鍐呯爜鍔犱笂浜嗚澶氬鏂囧拰琛ㄦ牸绛夌壒娈婄鍙凤紝鎴愪负鐩墠甯哥敤鐨勫唴鐮併
绛旓細ASCII鐮佸鏈澶х殑鏄痽銆侫SCII 鐮佷娇鐢ㄦ寚瀹氱殑7 浣嶆垨8 浣嶄簩杩涘埗鏁扮粍鍚堟潵琛ㄧず128 鎴256 绉嶅彲鑳界殑瀛楃銆傛爣鍑咥SCII 鐮佷篃鍙熀纭ASCII鐮侊紝浣跨敤7 浣嶄簩杩涘埗鏁帮紙鍓╀笅鐨1浣嶄簩杩涘埗涓0锛夋潵琛ㄧず鎵鏈夌殑澶у啓鍜屽皬鍐欏瓧姣嶏紝鏁板瓧0 鍒9銆佹爣鐐圭鍙凤紝浠ュ強鍦ㄧ編寮忚嫳璇腑浣跨敤鐨勭壒娈婃帶鍒跺瓧绗︺傚叾涓細0锝31鍙127(鍏33涓)鏄帶鍒...
绛旓細a鐨刟scall鐮佸兼槸97銆侫SCII鏄熀浜庢媺涓佸瓧姣嶇殑涓濂楃數鑴戠紪鐮佺郴缁燂紱甯歌ASCII鐮佺殑澶у皬瑙勫垯鏄細鈥0~9<A~Z
绛旓細绗33~126鍙(鍏94涓)鏄瓧绗︼紝鍏朵腑绗48~57鍙蜂负0~9鍗佷釜闃挎媺浼暟瀛;65~90鍙蜂负26涓ぇ鍐欒嫳鏂囧瓧姣嶏紝97~122鍙蜂负26涓皬鍐欒嫳鏂囧瓧姣嶏紝鍏朵綑涓轰竴浜涙爣鐐圭鍙枫佽繍绠楃鍙风瓑銆傛敞鎰:鍦ㄨ绠楁満鐨勫瓨鍌ㄥ崟鍏冧腑锛屼竴涓狝SCII鐮佸鍗犱竴涓瓧鑺(8涓簩杩涘埗浣)锛屽叾鏈楂樹綅(b7)鐢ㄤ綔濂囧伓鏍￠獙浣嶃傛墍璋撳鍋舵牎楠岋紝鏄寚鍦ㄤ唬鐮佷紶閫佽繃绋...
绛旓細鐢辩編鍥藉浗瀹舵爣鍑嗗眬(ANSI)鍒跺畾鐨凙SCII鐮侊紙American Standard Code for Information Interchange锛岀編鍥芥爣鍑嗕俊鎭氦鎹㈢爜锛夛紝瀹冨凡琚浗闄呮爣鍑嗗寲缁勭粐锛圛SO锛夊畾涓哄浗闄呮爣鍑嗭紝绉颁负ISO 646鏍囧噯銆傞傜敤浜庢墍鏈夋媺涓佹枃瀛楀瓧姣嶏紝ASCaII鐮佹湁7浣嶇爜鍜8浣嶇爜涓ょ褰㈠紡銆
