復(fù)制代碼 代碼如下: '中文姓名筆畫計(jì)算(VBS腳本版) dim word,key word=inputbox("請輸入你要計(jì)算的文字") if word="" then msgbox "小樣 不是叫你不要輸入文字嗎" Wscript.Quit end if key=char_wordnum(word) msgbox key Function char_wordnum(my_char_word) dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_wordnum temp_wordnum="" if my_char_word="" then char_wordnum=0 exit function end if char_wordtable(0)="" char_wordtable(1)="一乙" char_wordtable(2)="丁七乃乜九了二人亻兒入八冂幾凵刀刁力勹匕十廠厶又" char_wordtable(3)="萬丈三上下丌個(gè)丫丸久乇么義乞也習(xí)鄉(xiāng)亍于虧亡億兀凡刃勺千衛(wèi)叉口囗土士夕大女子孑孓寸小尢尸山巛川工己已巳巾干幺廣廾弋弓才門飛馬" char_wordtable(4)="不與丐丑專中豐丹為之烏書予云互亓五井亢什仁仂仃仄僅仆仇仉今介仍從侖倉允元公六兮內(nèi)岡冗鳳兇分切刈勸辦勾勿勻化匹區(qū)卅升午卞厄廳歷及友雙反壬天太夫夭孔少尤尹尺屯巴幣幻廿開引心憶戈戶手扎支攴攵文斗斤方無日曰月木欠止歹殳毋比毛氏氣水火爪父爻爿片牙牛犬王瓦肀藝見計(jì)訂訃認(rèn)譏貝車鄧長閂隊(duì)韋風(fēng)乏" char_wordtable(5)="且丕世丘丙業(yè)叢東絲主乍乎樂仔仕他仗付仙仝仞仟仡代令以仨儀仫們兄蘭冉冊寫冬馮凸凹出擊刊芻功加務(wù)勱包匆北匝卉半卟占卡盧卮卯厲去發(fā)古句另叨叩只叫召叭??膳_叱史右叵葉號司嘆叻叼嘰囚四圣處外央夯失頭奴奶孕寧它宄對爾尕尻尼左巧巨市布帥平幼庀弁弗弘歸必忉戊戔撲扒打扔斥旦舊未末本札術(shù)正母氐民氕永汀汁匯漢滅犯犰玄玉瓜甘生用甩田由甲申電疋白皮皿目矛矢石示禮禾穴立糾艽艾艿節(jié)訐訌討讓訕訖訓(xùn)議訊記軋邊遼邗邙邛鄺钅閃阡阢饑馭鳥龍" char_wordtable(6)="丞丟乒乓喬乩買爭亙亞交亥亦產(chǎn)仰仲仳仵件價(jià)任份仿企伉伊伍伎伏伐休眾優(yōu)伙會(huì)傴傘偉傳伢傷倀倫傖偽佇佤充兆先光全共關(guān)興再軍農(nóng)冰冱沖決鳧凼刎刑劃刖列劉則剛創(chuàng)劣動(dòng)匈匠匡華協(xié)印危壓厭厙吁吃各吆合吉吊同名后吏吐向吒嚇呂吖嗎囝回囟因囡團(tuán)在圩圪圬圭圮圯地圳壙場圾壯夙多夷夸夾奪夼奸她好妁如妃妄妝婦媽字存孫宅宇守安寺尋導(dǎo)尖塵尥堯盡屹屺嶼歲豈岌州巡鞏帆師年并莊慶延廷異式弛當(dāng)懺忖忙戌戍戎戲成托扛扣扦執(zhí)擴(kuò)捫掃揚(yáng)收旨早旬旭旮旯曲曳有朱樸朵機(jī)朽殺雜權(quán)次歡此死畢氖氘氽汆汊汐汔汕汗汛汜汝江池污湯汲燈灰爺牝牟犴獷犸玎璣百祁竹米糸紆紅紂纖紇約級紈纊紀(jì)紉缶網(wǎng)羊羽老考而耒耳聿肉肋肌臣自至臼舌舛舟艮色芄芊芋芍芎芏芑芒薌芝芨虍蟲血行衣西觀講諱謳詎訝訥許訛論訟諷設(shè)訪訣貞負(fù)軌達(dá)遷迂迄迅過邁邡邢那邦邪鄔釓釔閆閉問闖阪阮阱防陽陰陣階頁餳馱馴馳齊" char_wordtable(7)="兩嚴(yán)串麗亂亨畝伯估伲伴伶伸伺似伽佃但位低住佐佑體何佗佘余佚佛作佝佞佟你傭僉佧克免兌兕兵況冶冷凍初刪判刨利別剄助努劫劬劭勵(lì)勁勞匣醫(yī)卣鹵即卻卵縣君吝吞吟吠吡吣否吧噸吩含聽吭吮啟吱吲吳吵吸吹吻吼吾呀呃呆呈告呋吶嘸囈呔嘔嚦唄員咼嗆嗚囤囫園困囪圍圇圻址坂均坊坌坍坎壞坐坑塊堅(jiān)壇壢壩塢墳墜聲殼奩奐妊妍妒妓妖妗妙妞妣妤妥妨嫵嫗媯姊姒孚孛孜孝宋完宏壽尬尾尿局屁層岈岍岐岑岔嶇崗峴岙嵐島岜希幃帳庇床庋序廬廡庫應(yīng)棄弄弟張形彤彷役徹忌忍忐忑忒志忘忡忤憂忪快忭忮忱忸忻愾懷憮慪悵愴我戒扭扮扯擾扳扶批扼找技抄抉把抑抒抓投抖抗折撫拋摶摳掄搶護(hù)報(bào)拒擬攸改攻旰旱時(shí)曠更桿杈杉杌李杏材村杓杖杜杞束杠條來?xiàng)顦q極歟步殲每氙氚求汞汨汩汪汰汴汶洶汽汾沁沂沃沅沆沈沉沌沏沐沔沙沛溝沒灃漚瀝淪滄溈滬泐泛靈灶灸灼災(zāi)燦煬牡牢狀猶狁狂狃狄狽玖瑪甫甬男甸町疔癤療皂盯矣磯社祀秀私禿究窮系緯紜純紕紗綱納縱綸紛紙紋紡紐紓罕羌肓肖肘肚肛肜肝肟腸良羋芘芙蕪芟芡芤芥蘆芩芪芫芬芭芮芯芰花芳芴芷蕓芹芽芾蓯芐葦藶苊莧萇蒼苧蘇苡苣虬補(bǔ)角言證詁訶評詛識詐訴診詆謅詞詘詔譯詒谷豆豕豸貢財(cái)赤走足身軒軔辛辰迎運(yùn)近迓返迕還這進(jìn)遠(yuǎn)違連遲邑郵邯邰邱邳邴邵邶邸鄒鄴鄰酉里針釘釗釙釕閏闈閑閎間閔閌悶阻阼阽阿陀陂附際陸隴陳陘韌飩餼飪飫飭飯飲驅(qū)駁驢鳩雞麥龜" char_wordtable(8)="喪乖乳事些亟享京佩佬佯佰佳佴佶佻佼佾使侃侄侈侉例侍侏侑侔侗供依俠侶僥偵側(cè)僑儈儕儂兔兗其具典冼冽凈憑凱函刮到刳制刷券剎刺刻劊劌剴剁劑劾勢匭卑卒卓單賣卦臥卷巹廁叁參叔取呢呤呦周呱味呵呶呷呸呻呼命咀咂咄咆咋和咎詠咐咒咔咕咖嚨咚嚀咝哎囹固國圖坡坤坦坨坩坪坫坭坯坳坶坷坻坼垂垃壟垅壚備夜奄奇奈奉?yuàn)^奔妮妯妲妹妻妾姆始姐姑姓委姍孟孢季孤孥學(xué)宓宕宗官宙定宛宜寶實(shí)寵審尚居屈屜屆岢岣巖岫岬嶺岱岳岵岷岸崠巋峁嶧巫帑帔帕帖簾帙帚帛幟幸底庖店廟庚府龐廢建彌弦弧弩弳錄彼往征徂徑忝忠念忽忿態(tài)慫怊怍怏怔怕怖怙怛憐怡怦性怩怪怫怯怵懌戕或戧戽戾房所承抨披抬抱抵抹抻押抽抿拂拄擔(dān)拆拇拈拉拊拌拍拎拐拓拔拖拗拘拙拚招攏揀擁攔擰撥擇放斧斬於旺昀昂昃昆昊昌明昏易昔昕曇朊朋服杪杭杯杰杲杳杵杷杼松板構(gòu)枇枉枋析枕林枘枚果枝樅樞棗櫪枧棖槍楓梟柜欣歐武歧歿毆氓氛沓沫沭沮沱沲河沸油治沼沽沾沿泄泅泊泌泓泔法泖泗濘泠泡波泣泥注淚泫泮泯泱泳瀧瀘濼瀉潑澤涇淺炅爐炊炎炒炔炕燉炙煒熗炬爬爸版牦牧物狍狎狐狒狗狙獰玟玢玩玫瑋環(huán)現(xiàn)甕甌甙畫甾畀暢疙疚疝瘧癘瘍的盂盱盲直知矸矽礬礦碭碼祆祈祉稈秉穸穹空竺糴線紺紲紱練組紳細(xì)織終縐絆紼絀紹繹經(jīng)紿罔羅者耵耶肅股肢膚肥肩肪肫肭骯肯肱育肴肷肺肼肽腎腫脹脅臾舍艱苑苒苓苔苕苗苘苛苜苞茍苠苤若苦苫苯英苴苷蘋苻茁茂范茄茅茆茇茉茌莖蘢蔦塋煢茚虎虜蟣虱表衩衫襯規(guī)覓視誆誄試詿詩詰詼誠誅詵話誕詬詮詭詢詣?wù)娫撛斣屨熢傌?zé)賢敗賬貨質(zhì)販貪貧貶購貯貫轉(zhuǎn)軛輪軟轟迢迤迥迦迨邇迪迫迭迮述逕邾郁郄郅郇郊郎郟鄶鄭鄆采金釷釬釧釤釩釣鍆釹釵閘鬧阜陋陌降限陔陜隸隹雨青非頂頃餞飾飽飼飴駔駛駟駙駒騶駐駝駑駕驛駘魚鳶鳴黽齒"