VB計算漢字筆畫數代碼

 

請複製下載本貼下方的運算代碼,插入到工程中然後在程序中引用

引用方法:

Msgbox = Char_WordNum("漢字")

或者:Text2.Text = Char_WordNum (Text1.text)

 

 

附帶了自己編寫的應用例程,供大家交流下,喜歡請幫忙頂下

下載地址:存儲路徑是DBANK網盤,請把地址複製到瀏覽器打開,下載請直接下載不要使用下載工具

http://www.dbank.com/download.action?t=40&k=MTc5OTI4MTM=&pcode=LCw0NzM4OTIsNDczODky&rnd=4

VB計算漢字筆畫數代碼 - 全能特工 - 掌中智能

 

下面是計算漢字筆畫的過程命令

---

\'過程命令

Public Function Char_WordNum(my_char_word) As Long
    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

 菊子曰:一鍵秒發的日誌發佈工具
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章