资源描述：
《任务管理项目源代码清单》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、任务管理项目源代码清单1.工程Fwb的模块Module1的代码如下：PublicLetterAsIntegerPublicChoiceAsIntegerDimIAsIntegerDimXrndAsIntegerDimStrCAsStringDimXYAsIntegerPublicReadTextAsStringPublicSReadAsStringPublicLenStrAsIntegerPublicOneCode(24)AsStringDimTwoCode()AsStringPublicdbRedAsNewRecordsetPubli
2、cdbConAsNewADODB.ConnectionPublicStrSqlAsStringPublicCountredAsIntegerPublicEABC(52)AsStringPublicCELAsIntegerPublicFormWidthAsIntegerPublicFormHeightAsIntegerPublicTSE,TSR,TSWAsIntegerPublicWordE,WordR,WordSAsIntegerPublicCountEAsIntegerPublicCountRAsIntegerPublicSWordA
3、sIntegerPublicUserStrAsStringPublicg_dbconAsNewADODB.ConnectionPublicg_dbredAsNewRecordsetPublicTestAsIntegerPublicMsgAsIntegerPublicSubRndABC()'载入文本信息FrmMain.LblErrar.Caption="错误:"&CountEFrmMain.LblRight.Caption="正确:"&CountRForI=0To6SelectCaseICase0M1Case1M2Case2M3Case3
4、M4Case436CodeDocumentM5Case5M6Case6M7EndSelectNextIEndSubSubM1()'载入第1行文本IfLetter=3AndChoice=1ThenFrmMain.LblText1(0).Caption=Mid(OneCode(Int(Rnd*25)),1,1)EndIf'IfLetter=2AndChoice=0Then'FrmMain.LblText1(0).Caption=Mid(Head(Int(Rnd*177)),1,1)'EndIfIfLetter=3And(Choice=2Or
5、Choice=3OrChoice=4)ThenFrmMain.LblText1(0).Caption=TwoCode(Int(Rnd*Countred))EndIfIf(Letter=1AndChoice=2)OrLetter=4OrLetter=5ThenFrmMain.LblText1(0).Caption=Mid(ReadText,LenStr,1)LenStr=LenStr+1EndIfIfLetter=1AndChoice=1ThenFrmMain.LblText1(0).Caption=EABC(Int(Rnd*53))En
6、dIfXY=1Xrnd=30+(FrmMain.LblText1(0).Width)While(Xrnd<=(FrmMain.PicDispaly(0).Width-200))LoadFrmMain.LblText1(XY)FrmMain.LblText1(XY).Visible=TrueFrmMain.LblText1(XY).Left=XrndIf(Letter=1AndChoice=2)OrLetter=4OrLetter=5Then'载入须序文本StrC=Mid(ReadText,LenStr,1)FrmMain.LblText
7、1(XY).Caption=StrCLenStr=LenStr+1EndIfIfLetter=3AndChoice=1Then'载入一级简码FrmMain.LblText1(XY).Caption=Mid(OneCode(Int(Rnd*25)),1,1)EndIf'IfLetter=2AndChoice=0Then'载入字根'FrmMain.LblText1(XY).Caption=Mid(Head(Int(Rnd*177)),1,1)'EndIfIfLetter=3And(Choice=2OrChoice=3OrChoice=4)T
8、hen'载入二、三、全码汉字FrmMain.LblText1(XY).Caption=TwoCode(Int(Rnd*Countred))EndIfIfLetter=1AndChoice=1Then'载入随
