欢迎来到天天文库
浏览记录
ID:62051505
大小:60.50 KB
页数:16页
时间:2021-04-16
《汉字笔画数查询vb源码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途一共三个文件:1汉字笔画.vbp2 Form1.frm3 dat.txt汉字笔画.vbpType=ExeForm=Form1.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\....windows\system32stdole2.tlb#OLEAutomationIconForm="Form1"Startup="Form1"Command32=""Name="工程1"HelpContextID="0"Compatible
2、Mode="0"MajorVer=1MinorVer=0RevisionVer=0AutoIncrementVer=0ServerSupportFiles=0VersionCompanyName="jmsyz"CompilationType=0OptimizationType=0FavorPentiumPro(tm)=0CodeViewDebugInfo=0NoAliasing=0BoundsCheck=0OverflowCheck=0FlPointCheck=0FDIVCheck=0UnroundedFP=0StartMode=0Un
3、attended=0Retained=0ThreadPerObject=0MaxNumberOfThreads=1[MS TransactionServer]AutoRefresh=1个人收集整理勿做商业用途Form1.frmVERSION5.00BeginVB.FormForm1BorderStyle =1'FixedSingleCaption="Form1"ClientHeight = 4455ClientLeft= 45ClientTop =330ClientWidth = 8580 LinkTopic ="Form1"M
4、axButton = 0'False MinButton= 0'False ScaleHeight =4455 ScaleWidth = 8580StartUpPosition=3 '窗口缺省 BeginVB.ListBoxList1 Height =3120 Left = 0 TabIndex = 2 Top = 1320 Width = 8535 EndBegin VB.CommandButtonCommand1 Caption ="汉字笔画数查询"Height = 495
5、 Left =0TabIndex = 1 Top = 720 Width =8535End Begin VB.TextBoxText1 BeginPropertyFont Name = "宋体" Size = 15.75 Charset = 134 Weight =400 Underline = 0 'False Italic =0 'False Strikethrough = 0 'False EndProperty Height =615 Left =0 T
6、abIndex = 0 Text = "汉字笔画数"个人收集整理勿做商业用途 Top =0 Width = 8535 EndEndAttributeVB_Name = "Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable =FalseAttributeVB_PredeclaredId= TrueAttributeVB_Exposed =FalsePrivate SubCommand1_Click()List1.ClearDimcAs StringFori
7、=1ToLen(Text1.Text)c =Mid(Trim(Text1.Text), i,1)IfAscW(c)<40870AndAscW(c)>19967ThenList1.AddItem c&"="& cx(c)EndIfNextCaption ="查询完毕"&TimeEndSubPrivateFunctioncx(s AsString) AsIntegeri =1OnError ResumeNextOpenApp.Path&"\dat.txt"ForInputAs #1DoWhileNotEOF(1)LineInput #1,s
8、tr1i = i+ 1If InStr(1,str1, s)>0 ThenIfi Mod2=1 Thencx= Int(i/2)Close #1ExitFunctionEndIfEndIfLoopClose
此文档下载收益归作者所有