汉字笔画数查询vb源码

上传人:豆浆 文档编号:5191930 上传时间:2017-08-29 格式:DOC 页数:16 大小:77.50KB
返回 下载 相关 举报
汉字笔画数查询vb源码_第1页
第1页 / 共16页
汉字笔画数查询vb源码_第2页
第2页 / 共16页
汉字笔画数查询vb源码_第3页
第3页 / 共16页
汉字笔画数查询vb源码_第4页
第4页 / 共16页
汉字笔画数查询vb源码_第5页
第5页 / 共16页
点击查看更多>>
资源描述

《汉字笔画数查询vb源码》由会员分享,可在线阅读,更多相关《汉字笔画数查询vb源码(16页珍藏版)》请在金锄头文库上搜索。

1、一共三个文件:1 汉字笔画.vbp2 Form1.frm3 dat.txt汉字笔画.vbpType=ExeForm=Form1.frmReference=*G00020430-0000-0000-C000-000000000046#2.0#0#.windowssystem32stdole2.tlb#OLE AutomationIconForm=Form1Startup=Form1Command32=Name=工程 1HelpContextID=0CompatibleMode=0MajorVer=1MinorVer=0RevisionVer=0AutoIncrementVer=0ServerSu

2、pportFiles=0VersionCompanyName=jmsyzCompilationType=0OptimizationType=0FavorPentiumPro(tm)=0CodeViewDebugInfo=0NoAliasing=0BoundsCheck=0OverflowCheck=0FlPointCheck=0FDIVCheck=0UnroundedFP=0StartMode=0Unattended=0Retained=0ThreadPerObject=0MaxNumberOfThreads=1MS Transaction ServerAutoRefresh=1Form1.f

3、rmVERSION 5.00Begin VB.Form Form1 BorderStyle = 1 Fixed SingleCaption = Form1ClientHeight = 4455ClientLeft = 45ClientTop = 330ClientWidth = 8580LinkTopic = Form1MaxButton = 0 FalseMinButton = 0 FalseScaleHeight = 4455ScaleWidth = 8580StartUpPosition = 3 窗口缺省Begin VB.ListBox List1 Height = 3120Left =

4、 0TabIndex = 2Top = 1320Width = 8535EndBegin VB.CommandButton Command1 Caption = 汉字笔画数查询Height = 495Left = 0TabIndex = 1Top = 720Width = 8535EndBegin VB.TextBox Text1 BeginProperty Font Name = 宋体Size = 15.75Charset = 134Weight = 400Underline = 0 FalseItalic = 0 FalseStrikethrough = 0 FalseEndPropert

5、yHeight = 615Left = 0TabIndex = 0Text = 汉字笔画数 Top = 0Width = 8535EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()List1.ClearDim c As StringFor i = 1 To Len(Text1.

6、Text)c = Mid(Trim(Text1.Text), i, 1)If AscW(c) 19967 ThenList1.AddItem c & = & cx(c)End IfNextCaption = 查询完毕 & TimeEnd SubPrivate Function cx(s As String) As Integeri = 1On Error Resume NextOpen App.Path & dat.txt For Input As #1Do While Not EOF(1)Line Input #1, str1i = i + 1If InStr(1, str1, s) 0 T

7、henIf i Mod 2 = 1 Thencx = Int(i / 2)Close #1Exit FunctionEnd IfEnd IfLoopClose #1End Functiondat.txt一画乀乁亅丿乛乙一乚丶二画乂八勹匕冫卜厂刀刂刁丁二儿匚阝丷巜几卩冂九丩凵丂了力冖乜厶丆乃七人亻入丄十亠乄匸丅讠廴又三画才中艹叉彳亍川巛辶寸大凡凢凣飞干个工弓廾广囗乊己丌亼彐彑孑卪巾久乆孓孒口亏马亇么门幺宀卄女乞千犭亽刃刄三山彡上勺士尸饣氵巳纟夊土乇万丸亡亾兦尢尣卫兀习夕下乡小忄亐卂丫劜也义已亿弋于丈夂丬子四画卬巴仈办勽贝比币匂卞仌不仓长车尺仇丑丒刅从卆亣歹丹冄邓弔订仃斗队厄歺仒反方分风丰凤仏夫父

8、讣巿丐乢冈罓戈公厷勾夬卝毌乤兯乥户互弖戶戸化幻火灬及计讥丮尐旡见介丯仅今斤井乣勼勻开亢孔仂阞历厸六仑匁毛冃冇丏木內内廿肀牛牜爿匹片朩攴仆攵气亓欠切厹区劝犬认仁壬仍日冗禸卅少升氏什礻手収扌书殳闩双水亖太仐天厅邒圡屯耂瓦屲夭卍卐王韦为厃文无勿毋五午乌兮爻心凶牙圠円艺忆刈弌辷引尹冘友尤与予元月曰匀允云帀兂仄夨扎仉爪爫支止之中专五画艾厈凹扒叭叐犮白半包北本夲必庀边弁汃丙氷仢癶布卟扐仺册冊仛仧仦氶斥叱叺出处刍処丛匆刌打代旦丼氹忉叨屶氐电叼汈叮奵帄忊艼饤东冬乧叾对屵戹尔尒尓弍发乏犯仮払氾辺冯付弗邚尕玍甴匃匄阣甘仠冮夰仡功古夃瓜冎叧叏丱広归宄氿汉邗夯号禾冚弘讧仜乎汇卉屷记饥击叽刉艻讦加甲戋匞叫艽芁节钅冋纠旧

9、匛句巨凥圧卡刊尻可巪乬厼叩凷圦邝兰乐叻忇氻立礼厉屴辽令另龙卢圥劢邙矛卯夘们汅灭民皿末母目仫奶艿疒尼鸟囜宁奴皮丕疋氕平叵扑圤讫邔仟阡刋巧且邛卭丘囚犰叴扏玌去厺冉让仞仭讱扔辸宂扖込仨壭闪讪邖仩申圣生石市示史矢世失仕丗辻术朮甩帅氺廵司四丝罒玊亗他它台冭夳叹讨朰田芀汀圢庁仝头凸讬阤外邜未阢戊务卌仙仚屳写阠兄玄穴讯训央叶业以仪议匇匜肊衤囙用永幼由右玉驭邘戉曱孕匝仔庂汄轧札乍厇占仗召正凧汁只卮主左六画伌阨安犴屽朳玐百阪邦闭毕仳夶朼闬邠并冰彴伧艸汊奼扠扱芆犲产忏辿场伥仯伡夛臣尘成丞朾吃弛驰扡冲虫充圳岀传舛汌闯创次此朿汆伜存忖吋邨达汏伔刐当凼圵导氘朷扥灯地仾弚扚吊伄玎丢丟动阧芏厾兊伅多夺朵朶讹岋而耳弐伐汎帆伋

10、奿忛防访仿邡妃份讽仹凨仸缶负伏妇凫伕甶邞钆旮忋忓扞芉迀刚伉阬各圪纥扢犵亘艮亙共巩关观光犷灮轨圭朹过亥汗邟好合红叿妅屸后冱冴匢芐虍划华欢汍巟回会灰讳囘灳伙邩夻机级纪吉汲肌伎圾玑芨岌乩刏吇妀屰彶忣犱夹价奸件尖囝幵讲江匠夅弜交阶尽伒劤阱仱臼奺朻汣牞讵决诀刔氒军乫扛匟考攷乪肎劥宆扣扝夸匡纩夼圹扩旯老玏肋耒厽吏刕朸両尥尦列劣劦忚伈刘甪吕论伦吗妈犸孖买迈芒忙吂汒庅毎氼扪米糸芇吀名乮牟凩那氖囡讷年帇农伖奻乯讴纡乑乓伂阫芃圮伓阰牝乒朴齐岂祁企迄屺芑汔忔気迉圶迁扦芊伣圱圲奷汘乔癿庆丠氽汓肍曲佢全权汋任纫屻忈扨朲礽戎肉如汝杁阮叒伞弎扫色杀汕圸伤芍舌设厍屾扟邥阩池师式乨卋忕瓧收守戍尗妁寺死汜糹讼吅夙岁芕孙她汤饧夵兲

11、旫廷乭同吐汢团団驮托彵汑迆饦佤汙汚穵邷芄纨刓夗网妄仼伪伟危圩问刎仴污伍邬仵圬伆屼弙扜扤戏西汐覀吓圷纤先奾向芗灱灲邪协旪囟伩邤邢行兴刑匈芎兇讻休朽许戌旭伃芌血旬巡寻迅驯汛伨亚压讶伢厊吖襾厌延闫阭仰羊扬阳阦尧吆页爷曳吔岃屹衣亦伊异夷圯钇伇芅阴印因阥有优羽吁芋屿宇迂聿伛圫迃贠邧约刖伝杂在再扗早则伬吒宅扙兆阵贞争至芝执旨凪劧芖阯众仲伀汷州舟纣朱竹伫庄壮妆圴犳字自芓赱七画阿厑呃毐阸岇岙扷抝芺把吧芭坝岜夿弝抜呗庍伴扳扮坂岅报佨狈邶孛陂貝坌伻庇芘吡妣佊佖坒沘疕皀纰诐邲忭汴苄抃汳釆杓别別兵邴陃伯驳犻肑步补佈吥材财乲灿沧苍岑汵层岔杈岎肞佔兎刬旵肠怅苌兏玚抄吵扯彻車辰沉陈忱肜呈阷迟赤饬佁呎坘妛杘汖灻肔芪忡沖吜初竌

12、诎串氚玔床怆囪吹纯沌芚吷辵词囱苁忰村迏迖呆呔诒轪但妉帎抌岛忑扽低弟狄邸诋厎坔廸旳杕玓阺佃甸阽刟矵佚盯钉町疔甼矴冻甬豆抖吺肚杜妒兑兌対吨囤庉忳扼苊亜吪囮迗奀児杒姂泛饭返匥杋犿纺芳坊妨彷汸吠芾芬坟纷吩汾坆坋妢帉弅沣凬夆妦沨佛否妚芣附扶抚甫孚呋芙冹刜呒妋抙汱沕伽尬改杚肝杆旰佄攼玕纲岗杠肛犺告吿吤呄戓肐更攻贡汞杛沟佝抅谷估汩诂抇迋龟庋妫沩呙囯妎还含旱罕邯沆妔忼苀迒妞何诃亨宏闳吰吽汯灴玒瓨纮吼犼护沪囫乕帍汻沍芴花芲怀坏奂肒肓囬忶吙沎即鸡极际技忌妓矶芰坖汥泲芶圿夾宊忦扴抸间歼坚見杢角呌臫芥戒劫疖刦刧岊岕庎昅进近劲妗刭坓坕坙妌宑巠汫陉冏囧究玖灸鸠杦糺局拒苣姖岠怇洰邭奆抉妜弡決芵君均呁汮佧忾坎扻抗闶囥克壳吭坑

13、坈忐抠芤妪库快块狂况旷忹抂狅困来岚牢劳労泐冷里李利丽沥励坜苈呖叓连奁两良疗钌邻吝灵伶刢阾沠陇厐芦陆卤庐驴卵乱寽纶沦抡囵呂玛杩祃麦佅売尨杗杧牤戼皃芼没每呅沒闷汶汨芈羋免沔妙闵冺刡劰圽亩牡沐狇呐纳乸吶妠抐疓男你拟伲伱尿圼佞扭纽狃忸汼沑弄努伮呕沤怄吘妑帊判冸沜刨抛拋沛匉批屁邳伾苉囨评甹钋廹抔汽启弃沏岐圻杞呇岓忮忯扺玘盀芞佉岍芡佥岒忴扲杄汧苂茾呛抢羌瓩苆芹沁吣芩吢坅庈抋穷求邱虬邺驱劬岖伹刞匤阹却夋扰忍韧妊饪轫忎牣秂纴肕芢芿驲宍肗芮汭闰纱沙杉删芟刪杣邵劭佋卲社折佘沈身伸吲孞弞声呏斘时识豕亊佀佦戺竍寿束抒纾忬吮伺似私兕姒祀泤宋忪诉苏牠祂汰邰忲旲坛坍忒体戻呑条听彤佟囲投秃図禿迌抟吞饨坉陀妥佗杔杝陁毜毝咓完妧

14、岏忨抏杤苋汪忘尩尪尫彺违位围尾纬苇帏闱沇芛吻纹呚妏彣忟抆芠我沃肟杌吴呜吾芜坞妩怃忤迕庑吳呉岉杅杇系吸希饩吚屃扸匣岈县闲岘氙伭佡咞忺肖孝伳灺芯辛忻妡形杏汹忷诇秀序伵旴汿芧轩斈坃杊呀芽迓庌犽言严芫妍妟抁觃訁杨炀佒旸妖宎岆冶亪邑矣医译沂抑役苡呓伿冝劮坄壱宐攺曵杙耴苅吟饮犾应迎応盁佣忧犹邮酉佑攸卣丣沋苃余妤欤饫扵灹玗玙园远员沅囦肙岄抈礿运芸狁纭呍囩夽妘抎抣沄沞灾災灶皂皁択沢诈厏迊张帐杖找钊诏这针诊纼证佂抍纸址志芷豸坁巵帋汦沚刣妐妕彸狆迚诌肘伷助住苎佇劯纻抓灷状壯妝庒坠宒迍灼吱孜姊姉杍纵邹走足阻诅作坐佐阼八画哎剀呝岸侒匼昂肮枊拗坳垇岰泑爸拔茇坺妭抪杷败佰拝拌版板绊並坢姅怑攽昄朌瓪肦峀玤抱饱宝苞孢怉杯备卑

15、怫昁杮牬苝茀奔苯泍炃祊彼畀咇妼怭怶枇枈畁肶肸苾贬峅拚炞表玢秉併幷怲抦枋苪波拨泊帛帗狛瓝苩怖咘拊歨歩采参戔肏侧厕岾诧衩侘秅苴钗拆侪丳斺畅昌尙長镸炒怊弨绉坼呫迠衬抻迧诚承枨泟虰郕齿侈坻茌侙卶呬呮呹岻抶拕沱沶泜狋祇迡迣宠祌抽妯怞杻杽杵怵绌拀豖钏刱牀垂炊旾杶肫刺佌佽刾珁枞忩茐徂怚昕隹侟怛妲沓呾咑矺迨岱甙骀绐侢垈帒单担诞沊泹狚玬瓭宕砀到舠虭的底抵迪籴呧奃弤彽怟拞枤苐苖店典坫奌钓佻迭怢泆苵顶定耵侗岽咚東苳枓妬竺杸祋炖剁沲咄刴沰陊陏饳轭亞佮侉妸妿枙砐佴迩侕兒刵陑法佱沷贩范矾钒柉籵放房肪昉昘牥瓬非肥肺废沸狒柹绋胏奋忿氛昐枌枫奉凮炐肨瓰坲拂服斧府肤阜咐苻绂驸咈坿姇宓岪弣彿枎泭玞竎郍呷軋该陔侅郂秆矸泔苷绀坩咁皯盰衦岡牨疘矼杲疙佫匌牫庚刯郉供肱糼狗购构苟岣诟呴坸泃股孤姑固咕沽呱劷泒苽刮卦诖咼坬怪拐乖官贯侊

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 行业资料 > 其它行业文档

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号