ղ | Ϊҳ | Ա | ҪͶ ͬ https://www.lidatong.com.cn/- Ƽվ顢Ƽ㡢5G,վ!
ǰλã ҳ > ٿ >

VB㺺ֱʻ

ʱ䣺2020-12-17 07:49:39 Ŀٿ Դ
븴ر·룬뵽Ȼڳ ÷ Msgbox = Char_WordNum"") ߣText2.Text = Char_WordNum (Text1.text) ԼдӦ̣ҽ£ϲæ صַ洢·DBANḲѵ

븴ر·룬뵽Ȼڳ

÷

Msgbox = Char_WordNum"")

ߣText2.Text = Char_WordNum (Text1.text)

ԼдӦ̣ҽ£ϲæ

صַ洢·DBANḲѵַƵ򿪣ֱزҪʹع

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

Ǽ㺺ֱʻĹ

---

'

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) = "ةƹبǽηݷ鼿Żɡΰαȹȫپũ" + _
"̻մӶٽﻪЭӡΣѹԸߺϼͬ߸߹ضعݵ۳׳Ŀ" + _
"ж*ױִլذѰ⳾ҢѲʦ겢ׯ͢ʽڵæϷпǤִ" + _
"ɨּѮҷӶɱȨλϫǺѴ꽭ƻүIJԼ" + _
"Ͽ߼ɫܹܷܻܺܶâܼ֥ܸѪ۽کڪګϷþ긺Ǩ" + _
"ѸǰаƱʴҳѱ"
char_wordtable(7) = "ϴҺĶ٣٤赫λס٢١Ӷұ䶳ɾŬ۾ۿϻҽ" + _
"±ȴؾķɶַԺ˱֨ⳳǺѽʸ߻߼߽߾Ż߿ԱǺض԰Χַ̮" + _
"ӿ̳ް׹ۼ**׷Тβƨ᯲᫸ᰵϣʱӴ®" + _
"пӦŪͮ۳߯־黳ҽŤ糶ŰҼץͶ۸ҿ" + _
"Ĺ꺺ʱɼӲĴȶ迼죲ÿ̭ɳ湵ûŽ" + _
"ٲֲĵ״ұ긦е˽ͺϵγ硴ɴڷֽƷŦ磺ǼФ" + _
"Ǹ뿳ܽҽ«ܾҰоܿѿέɲ򰲹֤ڬڭʶթڮߴڰگ" + _
"ڱȶƳӭ˽·ûԶΥʺۢۡ붤ȼ簢鸽½" + _
"¤¿𯼦"
char_wordtable(8) = "ɥЩؽۼ٦٥٬ٮ٫ʹ٩ֶ٨٪٧ٰ½ȿ٭ٯߵƾεˢȯɲ̹̿ܶ" + _
"б׿Ծȡζզ;ӽǹа̹ͼ̹ƺ" + _
"崹¢䱸ҹηܱķʼί߼ѧڹ涨˱ʵоẰ" + _
"㲯ҵҵӷϽһ¼޾̬²޻" + _
"̧ĨѺĴ԰ذ־׾£ӵšŸն껲º" + _
"ɰ幹ö֦ǹɹŷŹåĭӷӹմй﷨Ţݲע" + _
"Ӿкdz¯׳Ȳְõ⻷߰űäֱ֪" + _
"ѱϸ֯称ᆳҮ֫ʼ緾ǰɷвԷ" + _
"ٰ̦ܿɻӢƻïéݾỢ²ʭĹڲڳڴʫڵڶڷڸڹѯں" + _
"ڻڼͰ˻ʷ̰ƶṺתǵȵۥۣۧۤۨۦ֣۩ɽǥ̷բָªİ" + _
"Ƕ꽤αʻפ"
char_wordtable(9) = "پֱͤٶٴٸ׷ٵٷٹٶٱٲٳðǰнѫжܱҧ" + _
"ҿۿްƷӺ۹ܻӴҹԫѵ︴ȽҦ" + _
"¦欽ȺϿ嶻ܹ⽫ٳʺϿͲ۴֡Ӷͥߺ໲ŭ˼" + _
"Թѻк㡶ս˩ٿƴקʰָֹ̢ЮӵŲͦʩӳ" + _
"ԿռܼڱijȾܲѼդջжжζձ" + _
"Ȫϴ嶴䢺䬶䡻Ǣ䤽Dz䫼䯻Ũ̿ھƱը˸ǣ" + _
"ݽʨ貣ɺ巩η̽ߴԻӯζʡüգɰ" + _
"שףخֿͻĸѰ޽笸Ѥͳˣθ" + _
"̥ʤհطݢãٻ" + _
"ӫݡݣݥݤݦݧҩŰϺʴǰҪڽھջڿ˵*ܴóѺſ" + _
"Աż׷ѡѷۭۮ۬¿۪۫ظҶ۳ƱԿվٹťٹ̷ұ" + _
"춸Ժ˳ʳýȱ溧ǹŸѻ"
char_wordtable(10) = "񸩾ٽٺıٿȺý賫žٻپծֵټڣԩڤ׼ڡ߰·ԭŸŶ" + _
"Բɼ淶ث׺ݿ" + _
"мչͷϯͽˡϢҶ㩺㨻ȭֿΰͱ׽۰ƺ" + _
"貶񻻵Ч͵аի˻νɹ˷ʲ˨У˸Φͩɣ" + _
"嵵׮ѳ볺̩㿣ֺ˸ԡͿӿл" + _
"ɬȺ̿ǻ̽Ȱƿƣ۾Ҽ䲡֢Ӹ" + _
"յμѣ|խվǰЦʷ" + _
"篾мȱո̳ȸŰʳܵٿܸؽذ༹֬ŧҨ޺" + _
"ݩݶݱݴݰɯݮݷݯݸݬݹݳݭĪݨݪݫݲݵӨݺݻç˥Ԭ̻ȱŵ·" + _
"˭ŵ׻̸޼ֻ¸͸ϵ;Ѷͨųҷ߲ۯ۰" + _
"ƸǮǯܲǦí˶ԤĶ" + _
"鿥تѼԧ"

char_wordtable(11) = "Ǭȼƫͣż͵dzջ˼ÿɾΨ৳਷ơɶž" + _
"ХȦܤܣܥöܡܢǵ¹Ȣ**漻Ӥ޼żܿξdz" + _
"ոijᡳӹȵʱϤƻ㲼㬵㰾ϧΩ㫲ѵߴ" + _
"ƵڵҴ̽ӿڴ°뷽ָб޳Ͱ÷е" + _
"봸Һõĵ㻴Ԩ½ϩɺʻ" + _
"ˬ⨲ͲèȬ̺𨰨пǵʢι" + _
"˶ƱƻҤ񻾹ϵӷεͼɴճۼ糴ά緱׺" + _
"ְ㸬沰ݼѹվݿ˲ݾݽƼ" + _
"ήөӪȹƵ´Ϯıȵгνβ" + _
"ֺԾľմ۱۲̪Ұͭաϳ綠ҿ" + _
"ղ¡ȸѩ­ľڹظ¹ƹ"
char_wordtable(12) = "ϴаʣļó౿ι஺ิϲܧܦܩ̿ܨҼý" + _
"ɩܸºԢǶñᢷ߱ǿѭݳͱ㷻㶷ſ" + _
"ƳҾմԮ§ɦѴɢؾ쳰˹վ羧ؼ" + _
"ɭֲ׵駽Ҭۿֳ̺릵μֿպտʪ" + _
"Ӹѳ̻ͱٽȻϬ⮺⪻帷趻ʹƦ" + _
"Ӳȷ»ϡ˰ѴѿͯڵȽܷͲɸ罼" + _
"翼ĻƱԵƢҸ縭ǻ*˴ͧظ϶ڿ" + _
"޽ֻԸѽֲװԣȹϿлǫʹԽ" + _
"̰ϵȼԹꢹٵﭳﲷп" + _
"׸϶żȲƭɧ³"
char_wordtable(13) = "ɵڵɤܪܫĹϱż޼įջĻ" + _
"΢޸㺴°Яҡ̯Ͼů驴Ш騿" + _
"¥鯸鶻ЪԴϪб̲Įӻͼɷú" + _
"Գ觺ɪ̵ձ˯޲Ƕ鰫ֵµ鱮" + _
"տǩӾǷɲȺƸȾ" + _
"Ӽչղܽ" + _
"áӿ·ѶҶꣷδDZDzң۱۴۳۵ҳͪﻴêസ׶" + _
"ĶӺ³ױѥƵӱջֱȵ"
char_wordtable(14) = "ɮӾмѸܬܭǽܮ˵ͷկαԸĽ㼿ˤժġߡƲ黰եȶģǸعƯ©ΫɿϨѬݴغܱ̼̼۴Ŵ߶빿䲭վӧԴظĤޤޣεǾޢޡ֩Ӭۺ̷ܺò׸׬ӻԯϽշ۷۶øͶþؿؾ"
char_wordtable(15) = "Ƨ˻ҭ޸ܯīᦴӰ»ο㿺㽶¾Ħ˺ߤײ˲׫ߢߣߥܷĺβȷӣDZ̶γ̱Ϲޫݿ𡵾ڻ׭ƪ¨ںϱϥެަޥީިާޭުЫǴԥȤ̤׾۲ָùЬնƮϺ"
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,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

Իһ뷢 ־ߣ

༭ͬ

վݾ磬۽߸˹۵㣬վַȨ뼰ʱϵվɾ!

    Ƽ
      ȵĶ