您好,登錄后才能下訂單哦!
這篇文章將為大家詳細講解有關如何使用VBS計算中文姓名筆畫,小編覺得挺實用的,因此分享給大家做個參考,希望大家閱讀完這篇文章后可以有所收獲。
代碼如下:
'中文姓名筆畫計算(VBS腳本版)
dim word,key
word=inputbox("請輸入你要計算的文字")
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)="萬丈三上下丌個丫丸久乇么義乞也習鄉亍于虧亡億兀凡刃勺千衛叉口囗土士夕大女子孑孓寸小尢尸山巛川工己已巳巾干幺廣廾弋弓才門飛馬"
char_wordtable(4)="不與丐丑專中豐丹為之烏書予云互亓五井亢什仁仂仃仄僅仆仇仉今介仍從侖倉允元公六兮內岡冗鳳兇分切刈勸辦勾勿勻化匹區卅升午卞厄廳歷及友雙反壬天太夫夭孔少尤尹尺屯巴幣幻廿開引心憶戈戶手扎支攴攵文斗斤方無日曰月木欠止歹殳毋比毛氏氣水火爪父爻爿片牙牛犬王瓦肀藝見計訂訃認譏貝車鄧長閂隊韋風乏"
char_wordtable(5)="且丕世丘丙業叢東絲主乍乎樂仔仕他仗付仙仝仞仟仡代令以仨儀仫們兄蘭冉冊寫冬馮凸凹出擊刊芻功加務勱包匆北匝卉半卟占卡盧卮卯厲去發古句另叨叩只叫召叭叮可臺叱史右叵葉號司嘆叻叼嘰囚四圣處外央夯失頭奴奶孕寧它宄對爾尕尻尼左巧巨市布帥平幼庀弁弗弘歸必忉戊戔撲扒打扔斥旦舊未末本札術正母氐民氕永汀汁匯漢滅犯犰玄玉瓜甘生用甩田由甲申電疋白皮皿目矛矢石示禮禾穴立糾艽艾艿節訐訌討讓訕訖訓議訊記軋邊遼邗邙邛鄺钅閃阡阢饑馭鳥龍"
char_wordtable(6)="丞丟乒乓喬乩買爭亙亞交亥亦產仰仲仳仵件價任份仿企伉伊伍伎伏伐休眾優伙會傴傘偉傳伢傷倀倫傖偽佇佤充兆先光全共關興再軍農冰冱沖決鳧凼刎刑劃刖列劉則剛創劣動匈匠匡華協印危壓厭厙吁吃各吆合吉吊同名后吏吐向吒嚇呂吖嗎囝回囟因囡團在圩圪圬圭圮圯地圳壙場圾壯夙多夷夸夾奪夼奸她好妁如妃妄妝婦媽字存孫宅宇守安寺尋導尖塵尥堯盡屹屺嶼歲豈岌州巡鞏帆師年并莊慶延廷異式弛當懺忖忙戌戍戎戲成托扛扣扦執擴捫掃揚收旨早旬旭旮旯曲曳有朱樸朵機朽殺雜權次歡此死畢氖氘氽汆汊汐汔汕汗汛汜汝江池污湯汲燈灰爺牝牟犴獷犸玎璣百祁竹米糸紆紅紂纖紇約級紈纊紀紉缶網羊羽老考而耒耳聿肉肋肌臣自至臼舌舛舟艮色芄芊芋芍芎芏芑芒薌芝芨虍蟲血行衣西觀講諱謳詎訝訥許訛論訟諷設訪訣貞負軌達遷迂迄迅過邁邡邢那邦邪鄔釓釔閆閉問闖阪阮阱防陽陰陣階頁餳馱馴馳齊"
char_wordtable(7)="兩嚴串麗亂亨畝伯估伲伴伶伸伺似伽佃但位低住佐佑體何佗佘余佚佛作佝佞佟你傭僉佧克免兌兕兵況冶冷凍初刪判刨利別剄助努劫劬劭勵勁勞匣醫卣鹵即卻卵縣君吝吞吟吠吡吣否吧噸吩含聽吭吮啟吱吲吳吵吸吹吻吼吾呀呃呆呈告呋吶嘸囈呔嘔嚦唄員咼嗆嗚囤囫園困囪圍圇圻址坂均坊坌坍坎壞坐坑塊堅壇壢壩塢墳墜聲殼奩奐妊妍妒妓妖妗妙妞妣妤妥妨嫵嫗媯姊姒孚孛孜孝宋完宏壽尬尾尿局屁層岈岍岐岑岔嶇崗峴岙嵐島岜希幃帳庇床庋序廬廡庫應棄弄弟張形彤彷役徹忌忍忐忑忒志忘忡忤憂忪快忭忮忱忸忻愾懷憮慪悵愴我戒扭扮扯擾扳扶批扼找技抄抉把抑抒抓投抖抗折撫拋摶摳掄搶護報拒擬攸改攻旰旱時曠更桿杈杉杌李杏材村杓杖杜杞束杠條來楊榪極歟步殲每氙氚求汞汨汩汪汰汴汶洶汽汾沁沂沃沅沆沈沉沌沏沐沔沙沛溝沒灃漚瀝淪滄溈滬泐泛靈灶灸灼災燦煬牡牢狀猶狁狂狃狄狽玖瑪甫甬男甸町疔癤療皂盯矣磯社祀秀私禿究窮系緯紜純紕紗綱納縱綸紛紙紋紡紐紓罕羌肓肖肘肚肛肜肝肟腸良羋芘芙蕪芟芡芤芥蘆芩芪芫芬芭芮芯芰花芳芴芷蕓芹芽芾蓯芐葦藶苊莧萇蒼苧蘇苡苣虬補角言證詁訶評詛識詐訴診詆謅詞詘詔譯詒谷豆豕豸貢財赤走足身軒軔辛辰迎運近迓返迕還這進遠違連遲邑郵邯邰邱邳邴邵邶邸鄒鄴鄰酉里針釘釗釙釕閏闈閑閎間閔閌悶阻阼阽阿陀陂附際陸隴陳陘韌飩餼飪飫飭飯飲驅駁驢鳩雞麥龜"
char_wordtable(8)="喪乖乳事些亟享京佩佬佯佰佳佴佶佻佼佾使侃侄侈侉例侍侏侑侔侗供依俠侶僥偵側僑儈儕儂兔兗其具典冼冽凈憑凱函刮到刳制刷券剎刺刻劊劌剴剁劑劾勢匭卑卒卓單賣卦臥卷巹廁叁參叔取呢呤呦周呱味呵呶呷呸呻呼命咀咂咄咆咋和咎詠咐咒咔咕咖嚨咚嚀咝哎囹固國圖坡坤坦坨坩坪坫坭坯坳坶坷坻坼垂垃壟垅壚備夜奄奇奈奉奮奔妮妯妲妹妻妾姆始姐姑姓委姍孟孢季孤孥學宓宕宗官宙定宛宜寶實寵審尚居屈屜屆岢岣巖岫岬嶺岱岳岵岷岸崠巋峁嶧巫帑帔帕帖簾帙帚帛幟幸底庖店廟庚府龐廢建彌弦弧弩弳錄彼往征徂徑忝忠念忽忿態慫怊怍怏怔怕怖怙怛憐怡怦性怩怪怫怯怵懌戕或戧戽戾房所承抨披抬抱抵抹抻押抽抿拂拄擔拆拇拈拉拊拌拍拎拐拓拔拖拗拘拙拚招攏揀擁攔擰撥擇放斧斬於旺昀昂昃昆昊昌明昏易昔昕曇朊朋服杪杭杯杰杲杳杵杷杼松板構枇枉枋析枕林枘枚果枝樅樞棗櫪枧棖槍楓梟柜欣歐武歧歿毆氓氛沓沫沭沮沱沲河沸油治沼沽沾沿泄泅泊泌泓泔法泖泗濘泠泡波泣泥注淚泫泮泯泱泳瀧瀘濼瀉潑澤涇淺炅爐炊炎炒炔炕燉炙煒熗炬爬爸版牦牧物狍狎狐狒狗狙獰玟玢玩玫瑋環現甕甌甙畫甾畀暢疙疚疝瘧癘瘍的盂盱盲直知矸矽礬礦碭碼祆祈祉稈秉穸穹空竺糴線紺紲紱練組紳細織終縐絆紼絀紹繹經紿罔羅者耵耶肅股肢膚肥肩肪肫肭骯肯肱育肴肷肺肼肽腎腫脹脅臾舍艱苑苒苓苔苕苗苘苛苜苞茍苠苤若苦苫苯英苴苷蘋苻茁茂范茄茅茆茇茉茌莖蘢蔦塋煢茚虎虜蟣虱表衩衫襯規覓視誆誄試詿詩詰詼誠誅詵話誕詬詮詭詢詣諍該詳詫諢詡責賢敗賬貨質販貪貧貶購貯貫轉軛輪軟轟迢迤迥迦迨邇迪迫迭迮述逕邾郁郄郅郇郊郎郟鄶鄭鄆采金釷釬釧釤釩釣鍆釹釵閘鬧阜陋陌降限陔陜隸隹雨青非頂頃餞飾飽飼飴駔駛駟駙駒騶駐駝駑駕驛駘魚鳶鳴黽齒"
char_wordtable(9)="臨舉亭亮親侮侯侵便促俄俅俊俎俏俐俑俗俘俚俜保俞俟信俁儔儼倆儷儉修茲養冒冠剃削剌前剮劍勃勇勉勛匍南卸厘厚受變敘叛呲咣咤咦咧咨咩咪咫咬咭咯咱咳咴咸咻咽咿哀品哂哄哆哇哈哉哌響哏哐啞噠嘵嗶噦嘩噲哚嚌噥哞喲哪囿型垌壘垓垛垠垡垢垣垤墾坰堊墊埡垮塏垴城埏復奎奏契奕獎姘姚姜姝姣姥姨姹姻姿威娃婁婭嬈嬌孌娜孩孿客宣室宥宦憲宮封將尜嘗屋屎屏峋峒峙峽嶠崢巒差巷帝帶幀幫幽庠庥度庭弈弭彎彖彥彪待徇很徉徊律後怎怒思怠急怨總懟恂恃恍恒恢恤恨恪恫恬慟懨愷惻惱惲戰扁扃拜括拭拮拯拱拴拶拷拼拽拾持掛指按挎挑挖撾撻挾撓擋撟掙擠揮挪挺政故斫施既昝星映春昧昨昭是昱昴昵昶晝顯曷朐枯枰枳枵架枷枸柁柃柄柏某柑柒染柔柘柙柚柝柞檸柢查柩柬柯柰柱柳檉柿梔柵標棧櫛櫳棟櫨櫟欄樹歪殂殃殄殆殤殘段毒毖毗氈氟氡氫泉泵澩潔洄洇洋洌洎灑洗洙洚洛洞津洧洪洫洮洱洲洳洵洹活洼洽派浹澆湞濁測澮濟瀏渾滸濃潯涎炫炭炮炯炱炳炷炸點炻煉熾烀爍爛烴爰牮牯牲牽狠狡狨狩獨狹獅獪猙獄猻玲玳玷玻珀珂珈珉珊珍玨琺瓏瓴甚甭畈畋界畎畏疣疤疥疫疬瘡瘋癸皆皇皈盅盆盈相盹盼盾省眄眇眈眉看眍眨矜矧矩砂砉砌砍砑砒研磚硨砘硯砜砭祓祖祗祚祛祜祝神祠禰禹禺秋種科秒秕秭穿窀突竊窆豎竽竿篤笈類秈籽綁絨結绔繞絎繪給絢絳絡絕絞統缸罘罰美羿耍耐耔耷胂胃胄膽背胍胎胖胗胙胚胛勝胝胞胡胤胥朧胨胩臚脛脈舁舡舢艤茈茗茛茜繭茨茫茬茭茯茱茳茴茵茶茸茹茺茼荀荃荊荇草荏薦荑荒荔莢蕘蓽蕎薈薺蕩榮葷滎犖熒蕁藎蓀蔭荬葒荮藥莒莛虐虹虺虻虼雖蝦蠆蝕蟻螞蚤衍衲衽衿袂襖裊要覘覽覺訇誡誣語誚誤誥誘誨誑說誦誒貳賤賁貰貼貴貺貸貿費賀貽赳赴趙趴轱軻轤軸軹軼轷軫轢軺輕迷迸跡追退送適逃逄逅逆選遜郗郛郜郝郡郢酈鄖酊酋重鈣钚鈦鉅鈍鈔鐘鈉鋇鋼鈑鈐鑰欽鈞鎢鉤鈧鈁鈥鈄鈕鈀閨聞闥閩閭閥閣閡陛陟陡院除隉隕險面革韭音頇項順須颮颯食餌饒餉餃餅首香驍罵驕驊駱駭駢骨鬼鷗鴉鴇鴆"
char_wordtable(10)="乘亳俯俱俳俸俺俾倌倍倏倒倔倘候倚倜借倡倥倦倨倩倪倬倭倮債值傾偌健黨兼冢冤冥凄準凇涼凋凌剔剖剜剞剡剝劇勐匪匿卿厝原叟哥哦哧哨哩哭哮哲哳哺哼哽哿唁唆唇唉唏唐唑唔嘜嘮嗩唣喚唧啊圃圄圓垸埂埃埋埒埔埕塒塤堝壺夏套奘奚姬娉娌娑娓娘娟娠娣娥娩娛媧嫻婀孬宰害宴宵家宸容寬賓射屐屑展屙峨峪峭峰峻嶗崍席幬座弱徐徒徠恁戀恐恕恙恚恝恣恧恩恭息懇惡悃悄悌悍悒悔悖悚悛悝悟悅慳憫扇拳拿挈摯攣挨挫振挹挽捂捃捅捆捉捋捌捍捎捏捐捕撈損撿換搗效敉敵敖齋料旁旃旄旅旆晁晃晉晌晏曬曉曄暈暉晚晟朔朕朗柴栓棲栗栝校栩株栲栳樣核根格栽欒桀桁桂桃桄桅框案桉桊桌桎桐桑桓桔桕椏橈楨檔榿橋樺檜槳樁梃梆梢梧梨殉殊殷斃毪氤氦氧氨氬泰流漿浙浚浜浞浠浣浦浩浪浮浯浴海浸浼涂涅消涉涌涑涓涔涕濤澇淶漣潿渦渙滌潤澗漲澀烈烊烘烙燭煙烤煩燒燁燴燙燼熱愛爹特犧狳狴狷貍狺狻狼猁獫璽珙珞珠珥珧珩班琿琊瓞瓶瓷畔留畚畛畜疰皰疲疳疴疸疹疼疽疾痂痃痄病癥癰痙皋皺益盍盎盞鹽監眙眚真眠眢眩砝弢砟砣砥砧砩砬砰破砷砸砹礪礱砼礫礎祟祥祧禎離秘租秣秤秦秧秩秫積稱窄窈竅站競笄笆笊筍笏笑筆筧笫粉粑紊素索緊綆綃絹繡綏絳繼綈缺罟罡罷羔羞翁翅耄耆耕耖耗耘耙聳恥耽耿聶胭胯胰胱胲胳胴膠胸胺胼能脂脆脊膾脎臟臍腦脒膿臬臭致舀舐舨航舫般舭舯艦艙艷荷荸荻荼荽蒞莆莉莎莓莘莜莞莠莨莩莪莫莰萊蓮蒔萵薟獲蕕瑩鶯莼莽慮虔蚊蚋蚌蚍蚓蠶蚜蠔蚣蚧蚨蚩蚪蜆衄袞衰衷衾袁袍袒袖襪袢被覬請諸諏諾讀諑誹課諉諛誰諗調諂諒諄誶談誼豇豹豺賊贄賈賄貲賃賂贓資賅贐趕起趵躉趿躬軎軾載輊轎輇輅較辱逋逍透逐逑遞途逖逗通逛逝逞速造逡逢邐邕部郫郭郯郴鄲都酌配酎酏酐酒釜鈺錢鉦鉗鈷缽鈳钷鈽鈸鉞鉆鉬鉭鉀鈿鈾鐵鉑鈴鑠鉛鉚鈰鉉鉈鉍鈮鈹鐸閫鬮閱閬陪陬陲陴陵陶陷隼雋難頊頑顧頓頎頒頌頏預餑餓馀餒驪騁驗駿高髟鬯鬲鴣鶇鸕鴨鴦鴟鴝鴛鴕"
char_wordtable(11)="龕鷥齔乾偃假偈偎偏偕做停傯偶偷僂僨償傀兜獸冕減湊凰剪副勒勖勘匏匐匙匱匾廂厴廄唪唬售唯唰唱唳唷唼唾唿啁啃啄商啉啐啕啖啜啡啤啥啦嘖啪嗇囀嚙啵啶啷嘯喏喵圈圉圊埝域埠埤埭埯埴埸培基埽堀堂堆堇堋堍塹墮堵夠奢娶娼婆婉婊婕婚婢婧婪嬰嬋嬸孰宿寂寄寅密寇尉屠崆崇崎崔崖崛崞崤崦崧崩嶄崮巢帷常幘幗庳庵庶康庸庹庾廊彈彗彩彬得徘徙徜恿悉悠患您愨懸悱悴悸悻悼情惆驚惋惕惘惚惜惝惟惦懼慘愜慚憚慣戚戛扈挲捧捩捭據捱捶捷捺捻掀掂掇授掉掊掎掏掐排掖掘掠探接控推掩措掬掭掮擄摑擲撣摻摜揶敏救敕教斂敝敢斛斜斷旋旌旎族晗晡晤晦晨曹曼望桫桴桶桷梁梅梏梓梗夢梭梯械梳梵檢欞欲欷殍殞殮毫氪涪涫涮涯液涵涸涿淀淄淅淆淇淋淌淑淖淘淙淝淞淠淡淤淦淫淬淮深淳混淹添清淵淥漬瀆漸澠漁瀋滲渚渠烯烷烹烽焉焊焐焓煥燜燾爽牾牿犁猊獵猓獼猖猗猛猜猝猞玀豬貓率球瑯理琉璉瑣瓠甜略畦疵痊痍癢痔痕痖皎皚皸盒盔蓋盜盤盛眥眭瞇眵眶眷眸眺眼著睜矯砦硅硇硌硎硐硒碩硤磽硭票祭禱禍秸移穢稆窯窒窕竟章笙笛笞笠笤笥符笨笪第笮笱笳笸箋籠籩筇粒粕粗粘糶糲累績緒綾續綺緋綽绱緄繩維綿綬繃綢綹綣綜綻綰綠綴緇綞羚羝羥翊翌翎耜聃聆聊聾職聹胬脖脘腳脞脬脯脫脲腡臉舂舳舴舵舶舷舸船艫艴菀菁菅菇菊菌菏菔菖菘菜菝菟菠菡菥菩菪菰菱菲菸菹菽萁萃萄萆萋萌萍萎萏萑萘萜蘿螢營縈蕭薩萸著虛蚯蚰蚱蚴蚵蚶蚺蛀蛄蛆蛇蛉蠱蛋蠣蟶釁銜袈袋袤襲袱袷袼襠裉覡觖謀諶諜謊諫諧謔謁謂諤諭諼讒諮諳諺諦謎諞豉豚象賕賑賚賒赦赧趺趼趾躍蹌距軀輒輔輛逭逮逯逵逶逸邏郾鄂鄄酗酚醞酞野銬銠鉺銪鋮鋏铘鐃鐺銅鋁铞銦鎧爭銑鋌銩鏵銓稔銚鉻銘錚銫鉸銥鏟銃鐋銨銀銣閾閹閶鬩閿閽閻閼闡隅隆隈隋隍隨隱隗雀雩雪顱領頗頸餛餡館馗騏騎騍騅驂鷙鴯鴰鵂鴿鸞鴻鹿麩麻黃龔"
char_wordtable(12)="褻傅傈傍傣儻儐儲儺傲鑿剩割募博厥廈廚啻啼啾喀喁喂喃善喇喈喉喊喋喑喔喘喙喜喝喟喧喱喳噴喹喻嘍嚳嗖嗟堙堞堠堡堤堪堰塄塔壹奠奧婷婺婿媒媚媛媼嫂孱孳富寐寒寓尊就屬屢崴崽崾嵇嵋嵌嶸崳嶁嵫嵬嵯巰巽帽冪幄幅弒強弼彘彭御徨循悲惑惠懲憊惰惴惶惹惺愀愉愎愕慍愣憤憒愧慌慨戟戡戢扉掌掣掰掾揄揆揉揍揎描提插揖揞揠握揣揩揪揭揲援揸攬撳攙擱摟攪搓搔搜搭搽摒敞散敦敬斌斐斑斯普景晰晴晶晷智晾暫暑曾替最朝期棉棋棍棒棕棘棚棠棣森棰棱棵棹棺棼槨椅椋植椎椐椒櫝槧欏橢椰楗楮榔欹欺款殖殫殛毯毳毿毽氮氯氰淼渝渡渣渤渥溫渫渭港渲渴游渺湃湄湍湎湓湔湖湘湛湟湫湮灣濕潰濺溆溉溲滁滋滑滯焙焚焦焯焰焱然煮牌牘犀犄犢犋犍猢猥猩猬猱猴猸猹猾琚琛琢琥琦琨琪琬琮琰琳琴琵琶瓊瑛瓿甥甯番畬疇疏痘痛痞痢痣痤痦痧癆瘓癇登皓皖皴脧睇睞瞼矬短硝硪硫硬確鹼祺祿禪禽宵稃程稍稅窖窗窘竄窩竣童竦筅等筋筌筏筐筑筒答策筘篳篩箏筵粞粟粢粵粥糞紫絮縶緙緗緘緬纜緹緲緝繢緦緞緶緱縋緩締縷編緡緣縉羨翔翕翹耋耠聒聯臠脾腆腈臘腋腌腑腓腔腕腙腚腱腴舄舒舜舾艇萱萼落葆葑葙葚葛葜葡董葩葫葬葭蔥葳葵葶葸葺蒂蕆蒈蕢蔣蔞蒎蛐蛑蛔蛘蛙蛛蛞蛟蛤蛩蛭蠻蟄蛺蟯螄蠐蜒蜓街裁裂裝裎裒裕裙褳襝褲裥覃覿觚觴詈謨讜謖謝謠謗謚謙謐貂賦賭赍贖賞賜賡賠賧趁趄超越趨跆跋跌跎跏跑跖跗跚跛躒踐輦輩輝輥輞輟輜辜逼逾遁遂遄遇遍遏遐遑遒道遺酡酢酣酤酥釉釋量鑄鐒鋪錸鋱鏈鏗銷鎖鋰锃鋤鍋鋯鋨銹銼鋝鋒鋅锍锎锏銳銻鋃鋟鋦錒闌闃闊闋隔隘隙雁雄雅集雇雯靂靚韓頡頰頜潁頦颶飧饗馇饋餿饞騙騭騷騖魷魯魴鵓鸝鵑鵠鵝鵒鷴鵜黍黑黹黿鼎"
char_wordtable(13)="催傺傻像剽剿勤疊嗄嗅嗉嗌嗍嗑嗒嗓嗔嗜嗝嗡嗣嗤嗥嗦嗨嗪囁嗬嗯嗲噯嗵嗷嘟塌塍塑塘塞塥填塬墓媲媳媵媸媾嫁嫉嫌嬡嬪嫫寢寞尷嵊嵩嵴幌幕廉廒廓彀徭微想愁愆愈愍意愚感愫慈慊慎懾戤戥搋搌搏搐搛搞搠搡搦搪搬攜摁攝攄擺搖擯攤摸敫數斟新旒暄暇暌暖暗椴椹椽椿楂楔楚楝楞楠楣楦楫楱楷楸楹樓榀概欖榆櫬櫚櫸榘槌槎槐歃歆歇歌殿毀轂毹氳溏源溘溜溟溢溥溧溪溯溱溴溶溷溺溻溽滂滇滏滓滔潷滾滟灄滿瀅濾濫灤濱灘漓漠漭煅煊煌煎煜煞煤煦照煨煲煳煸煺牒犏獻猷猿獒瑁瑕瑗瑙瑚瑜瑞瑟瑰甄畸畹痰痱癡痹痼痿瘀瘁瘃癉瘐皙盟睚睛睡睢督睥睦睨睫睬睹瞄矮硼碇碉碌礙碎碑碓碗碘碚磧磣碰稟禁禊福稔稗稚稞稠穌窟窠窺竇筠筢筮筱筲筷籌筻簽簡糧粱粲粳縛縟縝縫縞纏縭縊縑繽罨罩罪置署群羧耢聘肄肆腠腥腧腩腭腮腰腹腺膩靦膃騰腿舅艄艉蒗蒙蒜蒡蒯蒲蒴蒸蒹蒺蒽蒿蓁蓄蓉蓊蓍蓐蓑蓓蓖藍薊蘺蕷鎣驀蓬虞蛸蛹蛾蜂蜃蜇蜈蜉蜊蜍蛻蝸蜣衙裔裘裟裨裰裱裸裼裾褂褚覦觜解觥觸訾詹譽謄謹謾謫谫謬豢貅貉貊賴趑趔跟跣跤跨跪跫跬路跳蹺蹕躚跺躋躲輳輻輯輸轡辭辟遘遛遢遣遙遨鄙鄞鄢鄣酩酪酬酮酯酰醬鑒錆鍺锘錯錨錛锝錁錕錫錮鑼錘錐錦锨錈锪锫錟錠鍵鋸錳錙闔闐闕障雉雍雎雛零雷雹霧靖靳靴靶韙韞韻頤頻頹頷穎颼饃餾饈驁騮騫騸骰骱髡魁魂鲅鲆鲇鱸鮒鮑鱟鮐鵡鵲鹋鵪鵯鵬鶉麂鼓鼠齟齡"
char_wordtable(14)="齙齠僖僚僦僧僬僭僮僳儆兢凳劁劂廝嗽嗾嘀嘁嘈嘉嘌嘎嘏噓嘛嘞嘣嚶嘧塾墁境墅墉墑墻墚夤夥嫖嫘嫜嫠嫡嫣嫦嫩嬙孵察寡寤寥寨屣嶂幔幛廑廖弊彰愿慕慝慢慵慷截戩搴搿摔摘摞摧摭摹摺撂攖撇撖敲斡旖旗暝曖暨榍榕榛榜榧榨榫榭榱榴榷榻槁槊槔檻檳櫧槭模歉殯毓滴滹漂漆漉漏演漕漤漩漪漫漯漱漳漶漾瀠瀟瀲濰潢潴澉煽熄熊熏熔熘熙熬犒獍獐瑭瑤璦璃甍疑瘊瘌瘕瘞瘺瘙瘟瘥瘦瘩睽睪睿瞀瞅瞍碟碡碣碥碧堿碲碳碴碹磁磋禚穩窨窬窶竭端箅箍箐箔箕算箜箝管箢簀篋籜籮簞簫箬箸粹粼粽精糝綦綮縹縵縲纓縮繆繅罌罱羆翟翠翡翥耥聚肇腐膀膂膈膊膏臏膜臧輿舔舞艋蓰蓼蓿蔌蔑蔓蔗蔚蔟蔡蔫薔蔸蘞藺蔻藹蔽蕖蜀蜘蜚蜜蜞蠟蜢蜥蜩蜮蜱蜴蜷蜻蜾蜿蠅蟈蟬螂裳裴裹褊褐褓褙褸褡褪覯觫誓譚譖譙讕譜譎豪貌贅賻賺賽赫跽踅踉踴躊轅轄輾辣遭遮鄯鄱酲酴酵酶酷酸酹釅釃釀銎鑾鍥鍇鏘鍶鍔鍤鍬鍾鍛鎪鍰锿鍍鎂鏤鐨镅闞隧雌雒需霽霆靜靼鞅韜韶顆饉饅驃騾驄骶骷髦魃魄魅鮭鮚鮪鮞鱭鮫鮮鲞鱘鶘鶚鶻鶿鹛鶩麼鼐鼻"
char_wordtable(15)="齜齦僵僻儇儋凜劈劐勰嘬嘭囑嘲嘶嘹嘻嘿噌噍噎噔噗噘噙嚕噢噶墀增墟墨墩嬉寮履屨嶙嶝幞幡幢廛影徵德慧慰憋憎憔憧憨憬懂戮摩撅撐撒撕撙撞撤撩撬播撮撰攆擷擼攛擒敷暮暴暹槲槽槿樊樗樘樟橫檣櫻橄橡橥毅滕潘潛潦潭潮潲潸潺潼澄澈澌澍澎瀾澳熟熠熨熳熵牖獗獠瑾璀璁璇璋瓔璜畿瘛瘠瘢瘤癟癱瘼瞌瞎瞑瞞瞢碾磅磉磊磐磔磕磙稷稹稻稼稽稿窳箭箱箴篁篆篇篌簣簍糅糇糈糊糌糍纈繚繕繒羯羰翦翩耦耬聵聰膘膛膝膣艏艘蔬蕃蕈蕉蕊蕙蕞蕤蕨蘄蘊蕺虢蝌蝎蝓蝗蝙蝠蝣蝤蝥蝮蝰蝴蝶蝻螻蝽蠑螋褒褥褫襤覲覷觶讞譴譫豌豫賾赭趟趣踏踔踝踞踟踢踣踩蹤躓踮躑踺躺轆遴遵醅醇醉醋醌鋈鏌鎮鎘鑷鐫鎳镎鎦鎬鎊鎰鎵鑌霄震霈霉靠靨鞋鞍韃鞒題顎顓顏額飄饜馓饌驏骸骺骼髫髯魘鯁鱺鰱鰹鯉鰣鰷鯀鯊鯇鯽鷂鶼鶴麾黎"
char_wordtable(16)="齏齬齪儒冀凝劓嘴噤器噩噪噫噬噱噻噼嚆圜墼壁壅嬖嬗嬴寰廨廩徼憝憩憷憾懈懊懶懔撼搟擂擅操擎擐擗擻整斕暾樨樵樽樾橇橐橘橙橛櫥櫓櫞檎檠歙殪氅氆氌潞澡澧澶澹激濂濉瀨瀕熹燃燎燔燕燠燧犟獬獺璞瓢甏甑瘭瘰瘳瘴瘵瘸癮癭癀癃盥瞟瞠瞥瞰磨磬磲磺禧穆穡窿篙篚篝篡篥篦篪籃籬篷糕糖糗糙韁繾繰繯繳罹羲翮翰翱耨耩耪聱膦膨膪膳臻蕹蕻蕾薄薅薇薏薛薜薤薨薪藪薯螃螅螈融螓螗螟螨螭螯蟆蟒衡褰褶贗贊贈踱踵踹踽蹀蹁蹂蹄蹉轍轔辨辯遽避邀邂鄹醍醐醑醒醚醛鏨鏢鏜鏝鏍鏞鏡鏑鏃鏇隰雕霍霎霏霓霖靛鞔鞘顳顢顛顙飆飚餐髭髹髻魈魎鯖鯪鯫鯡鯤鯧鲴鯢鯰鯛鯨鲺鯔鸚鷓鷚鹺麇麈黌黔默"
char_wordtable(17)="鼽儡嚅嚎嚏嚓壑壕嬲嬤孺嶷徽懋懣懦戴擘擢擤擦曙朦檀檄檐檑檗檁檬濞濠濡濮濯燥燮爵獯璐璨璩甓疃癌癍皤瞧矚瞪瞬瞳瞵磴磷礁礅穗篼篾簇簋簌簏籪簧糜糟糠縻繁繇罄罅罾羈翳翼膺膻臀臁臂臃臆臊臌艚薰薷薹藁藉藏藐蘚螫螬螳螵螺螽蟀蟊蟋蟑蟓蟥襁襄觳謇豁豳貔貘贍贏蹇蹈蹊蹋躡蹣辮邃邈醢醣鍪鐔镢鐐鏷镥鐓鑭鐠镩鏹鐙隳霜霞鞠馘驟髀髁魍魏鲼鰈鰓鱷鰍鰒鰉鳊鳋鷯鷦鷲鷸麋黏黛黜黻鼢鼾齲"
char_wordtable(18)="齷龠囅囂彝懵戳曛曜檫瀑燹璧癔癖癜癩瞻瞽瞿礓礞簟簦簪糨翻艟藕藜藤藩蟛蟠蟪蟮襟覆謦蹙蹦蹩躇邋醪鎏鏊鑊鐳鐲鐮鐿讎鞣鞫鞭韉顥餮馥髂髏鬃鬈鰲鰭鰨鰥鰩鷺鷹"
char_wordtable(19)="黝黟黠鼬嚯孽巔攀攉攢曝瀚瀛瀣爆璺瓣疆癬礤簸簿籀籟纘羸羹艨藻藿蘅蘑蘧蟹蟾蠃蠊蠓蠖襞襦警讖蹬蹭蹯躕蹲蹴蹶蹼躥酃醭醮醯鏖镲霪靄靡鞲鞴顫驥髖髕鬏魑鰳鰾鱈鱉鰻鳘鳙鹱麒麓"
char_wordtable(20)="麴黢黼鼗嚷嚼壤孀巍攘曦瀵瀹灌獾瓚矍籍糯纂耀蘗蘩蠕蠛譬躁躅酆醴醵鑣霰颥馨驤鬢魔鱖鱔鱗"
char_wordtable(21)="鱒黥黧黷黲鼉鼯夔曩灝爝癲礴禳羼蠡蠢贛躪醺鐾露霸霹顰髓"
char_wordtable(22)="鱧麝黯鼙囊懿氍瓤穰耱蘸蘼躐躔鑲"
char_wordtable(23)="霾饔饕髑鬻鸛麟攥攫癯罐趲躦顴"
char_wordtable(24)="鬟鼷鼴齄灞矗蠲蠹衢襻躞鑫"
char_wordtable(25)="鬣馕囔戇攮纛"
char_wordtable(26)="蠼爨"
wordnum_i=0
wordnum_j=0
wordnum_k=0
for wordnum_i=1 to Len(my_char_word)
temp_wordnum=Mid(my_char_word,wordnum_i,1)
for wordnum_j=1 to 26
if instr(1,char_wordtable(wordnum_j),temp_wordnum)>0 then
wordnum_k=wordnum_k+wordnum_j
exit for
end if
next
next
char_wordnum=wordnum_k
End Function
關于“如何使用VBS計算中文姓名筆畫”這篇文章就分享到這里了,希望以上內容可以對大家有一定的幫助,使各位可以學到更多知識,如果覺得文章不錯,請把它分享出去讓更多的人看到。
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。