江苏大学生实践创新项目结题报告.docx

江苏省大学生实践创新工程结题板告工程名称：工程成员：指导老师：学校名称：工程时间：大学生实践创新工程结题报告计算机一级B考试辅导系统设计一、工程申请背景随着计算机的普及化，社会对计算机的要求越来越高，因此学校对学生的计算机能力的培养也越来越为重视，一般高职院校必需通过江苏省计算机一级B考试，未通过的学生不能发放毕业证书，对于初高中未普及计算机的学校学生来讲，进入大学后计算机的学习就相对吃力，需要更加努力才能完成此课程，在大学里，由于该课程相对课时少，且又涉及知识面又广，因此学生学习起来相对困难，这就需要有一个能让学生自己的学习的辅导软件，从而帮助学生自学该门课程，计算机一级B辅导系统设计设想便酝酿而成。作为大学生实践创新工程来说，该系统的内容正好针对在校的学生，通过该系统的设计和题目的制作，可以帮助学生更好的掌握计算机理论知识，通过操作的练习，可以让学生更加熟练地运用计算机。系统设计、调试以及运用的过程可以让学生掌握一个软件的设计过程，对程序设计有一个充分的认识，课件中的多媒体制作可以让学生了解一个课件中媒体制作的方法，以及如何运用媒体进行教学的理念，让学生了解一个网络教学平台的运作方式。二、工程可行性根底该工程主要是利用屏幕录像软件录制操作题的操作过程，并以WmV格式保存下来，存入在网站中，通过WindoWSmediaPIayer来播放。理论题通过统考系统中的题目截取，并配以答案，也存放于网站数据库中，通过动态网页方式将题目显示在客户端中，学生通过客户端的练习以掌握理论题目，客户端采用VisualBasic程序设计语言进行编写。不管是VisualBaSiC还是屏幕录像软件的使用，对于大学生来说，掌握都不是困难，通过老师的相应指导,程序设计及媒体制作可行性相对高，完全可以将该工程完成。三、工程框架设计计算机一级B辅导系统主要针对学生使用，由于学生在使用计算机时，往往无法固定在某台电脑上，因此，该系统借用网络效劳方式。首先，在Imemet网效劳商处申请一个网络空间及访问域名，将相应的媒体文件、理论题数据库及相应的动态网页存放在网络空间中，学生可以通过域名访问进行相应的注册、问题咨询、客户端下载。下面是该系统中的设计框架图。四、工程实施方案工程要得到很好的实施和完成，就应有一个很好的方案，没有一个方案，实施起来就缺乏目的性、条理性，运作起来就相对困难，为此特制定如下方案：1 .工作分工安排客户端程序设计：网页代码设计：程序及网页操作屏幕录像：理论题截取：理论题答案：系统测试：2 .工程完成时间安排网站及域名：2010年6月客户端设计：2010年6月一2010年10月操作屏幕录像：2010年6月一2011年1月理论题截取：2010年6月一2010年11月理论题答案：2010年6月一2011年11月系统测试：2011年2月一2011年3月12日系统修改：2011年3月一2011年6月3 .工程经费使用安排程序设计及网页制作：1200.00文献资料购置费：800.00网站租用及域名：500.00计算机耗材：500文印费：800五、工程实施过程整个工程的实施过程严格按照方案进行，在实施开始阶段，召开了全体成员会议，根据各个学生的特点，布置了相应的任务，共同商议了域名和网站租用的问题，拟采用作为域名，租用中国数据效劳商的网络空间标准III。在工作分配之后，进行了2010春季试卷理论题的截取工作，以文本方式保存，并开始查找和制作答案，同时操作题录像也开始录制，网站代码及客户端程序也开始设计，各方面的工作同时进行。在2010秋季考试之前，客户端和网站已根本设计完成，将理论题及操作录像导入系统数据库中，并上传到网络空间，通过参加考试的学生进行测试使用，根据使用出现的问题进行修改，完善系统。在秋季考试结束后，继续进行理论题截取、答案制作以及操作录像的录制。共完成了14套试卷的操作讲解录像，截取2027道理论题目。六、工程结果介绍计算机一级B考试辅导系统共分为三大模块：客户端，效劳网站，管理端。（一）客户端客户端是本系统最重要的局部，也是辅导系统最重要的表达，在该模块中，使用者可以进行理论测试和操作题练习，同时也可以进行理论复习和操作录像观看，通过标准答案和操作讲解，使使用者能更好地掌握理论知识和实践操作能力。为了提高复习效率，系统还可以自动记录下使用者做错的题目，以便下一次进行错误加练，更快地掌握理论知识。同时系统也要求使用者必须有一个帐号登录，以便更好地掌握各个人的使用情况及学习进度。为了使大多数的用户使用方便，本系的客户端共开发了WindowsXPWindows7两个绿色版本，用户在使用过程中，只需要下载相应的客户端程序，直接点击运行，无须安装。1 .客户端登录客户端程序运行后，系统弹出一个帐号输入界面，使用者输入自己的帐号及密码可以查看到帐号相应的信息，当“可登录数”大于0时系统便可进行直接点击“使用”进入客户端主界面。登录窗口如下列图：如果登录帐号的密码输入有错，系统将出现密码输入错误的提示，如下列图：当输入密码正确，登录成功后，系统将提示你将从你的帐上扣去一次登录次数，同时也表示你已经使用过系统一次，登录次数多表示学习次数多。如果帐上的登录次数使用完后，可以到管理端进行帐上充值，这样可以再次使用系统。提示界面如下列图所示：如果网络不通，又要登录或查询的话，系统会出现下面提示：此时要检查一下网络情况，确保学习能进行。2 .客户端主界面身份验证成功后，系统自动进入主界面，在主界面中分别有理论测试、测试评分、错误加练，试题刷新、理论复习、操作讲解、密码修改、系统说明及效劳网站功能，使用者可以根据自己需要的工程进行点击学习。在主界面中间显示的是系统介绍，界面的标题显示的是当前使用者帐号及姓名，下方显示系统的效劳及QQ号。3 .理论测试介绍理论测试主要用于测试使用者掌握理论知识情况，系统可以按照设置顺序或随机出题（是否将“按顺序出题”选上），题目包括选择题、填空是和是非题，各题型的数量随机。理论测试界面模拟了省统考系统的界面显示方式，每次显示一道题，使用进，可以用鼠标点击界面下方的题号，也可以使用“PageDown”或“PageUp”键进行选题，答案选择可以用鼠标直接点击，也可以使用键盘ABCD进行答案选择，填空题那么直接输入。4 .理论测试介绍理论评分是对理论测试结果的评判，在测试完毕后，点击理论评分，系统自动对所答的题目进行对错评判，错的分别在下方的题号后面显示“X”，对的显示显示“J”，同时弹出一个对话框显示统计结果，还可以让使用都决定是否将做错的题目参加了错题库中，以便日后进行错误加练时再出现做错的题目，增加对题目的印象。5 .错误加练介绍错误加练在抽题时首先抽取本帐号中以前出现过错误的题目，如果题目达不到50题，那么其它题目再由系统随机抽取补充，如果错误的题目超过50题，那么完全抽取的题目为曾经错误的题目。这样的目的是为了加深对错误题目的印象，更快掌握理论题目。6 .试题刷新介绍试题刷新是在理论测试结束或错误加练结束后，再由系统进行重新抽题。抽取题目后自动又进入理论测试界面。7 .理论复习介绍理论复习共分三大局部，分别是选择题、填空题和是非题，在复习时系统自动按题目录入的时间排序，即最后截出来的题目放在首位，这种排法的原因是：使用都往往都喜欢从头看到尾，且不是所有使用者都会全部看完，一般情况下都是看前面的题目，这样就保证使用都看到的都是最新的试题，为增加通过率提供一定的保证。选择题还是一屏显示一道题，填空题和是非题那么每屏显示5题，在各题目后面都有标准答案。理论复习的过程中，使用都可以根据学习情况自己选择复习进度，也可以边复习，边进行理论测试,在理论测试中选择“按顺序出题”便可加深学习印象，更快掌握理论知识。理论复习的界面如下列图所示：8 .操作讲解介绍本系统目前共录制了14套试卷的操作讲解，分别是2010年春季8套和秋季6套，在使用时，先选择试卷，选择后，界面的下方将显示该套试卷的所有操作题目，此时使用者可以用鼠标直接点击题目，系统自动播放该题的操作录像。播放界面如下列图：本系统的操作录像均采用“屏幕录像”软件制作而成，录像图像清晰，声音清楚，使用者可以自行调制声音大小和播放进度，在看完录像可以直接关闭，也可以点击下一道题目以覆盖当前录像。如果想一边看录像一边训练，可以点击“下载素材”，系统便弹出如下提示，点击“是（Y）”，系统将出现下载界面，如下列图，点击链接便可进行下载，如果系统装了迅雷且设置为默认下载工具，可能全出现下载错误。9 .密码修改介绍密码修改主要是让使用者改变自己的登录密码，在修改时，先输入旧的密码，再输入新的密码，然后再验证一下新的密码，点击修改便可以了。10 .系统说明介绍系统说明主要是介绍一下本系统的根本情况及小组成员的根本情况。11 .效劳网站介绍通过点击该项，系统自动链接到本系统相应的效劳网站，可以让使用都更加了解本系统的其他功能。（二）效劳网站1 .主页介绍网站的主页上显示的一个FlaSh横幅，主要显示系统的作用、域名及效劳号和QQ号，网页下方左边显示的是联系方式，中间显示的系统介绍，右边那么显示系统使用的主要问题，在中间的下方，提供了用户注册、信息修改、客户端下载、使用说明、使用录像、帐号使用查看及使用问题和密码找回等功能，网页底部显示的是网站访问量及系统里包含的理论题目。2 .帐号注册在使用本系统必须使用帐号，因此需要先进行注册，注册可以从网站上进行注册，也可以直接下载客户端，在客户端进行注册。在注册时，如果有*提示的表示该项必须填写，填写好就可以点击“提交”便可完成。3 .信息修改信息修改是为了让已注册的信息因某种原因需要更改时而设的，修改时按要求进行填写好后，直接点击“提交”便可完成信息修改。e转电柿线曝号:*登勤寸使用！主册生效后不可更改！姓名：请使用真名，以便找回密码时用！单位：登录密码：登录时使用！找回密码字符：密码善失a寸找回密码用！曾樨交4 .使用记录查看为了让使用者更加了解自己使用系统情况，可以点击“使用查看”，进入后，在帐号处输入帐号，点击“提交”系统将显示该帐号使用的详细情况，如下列图所示：（三）管理端1 .登录界面管理端是为了方便教师进行试题输入、帐号充值、问题解答及了解使用情况，因此平安性有一定的要求，需要进行身份验证，登录时，输入管理帐号及登录密码，点击“登录”进行身份验证后，便可进行管理端的主界面。2 .管理主界面管理主界面包含帐号注册、帐号充值、试题输入、试题答案、使用问题、使用查看等功能，使用时根据所需要的工作点击相应的功能按钮便可完成。3.帐号注册当使用者未使用网站注册或客户端注册，而直接要进行充值时使用。在使用过程中，输入使用者的帐号、姓名、所在班级，点击注册便可完成，同时在左边列表第一行显示注册帐号，如果发现某个无意义的帐号，可以先选中，直接点击删除便可完成。4 .帐号充值由于系统采用了帐号登录管理方式，因此在使用一段时间后，帐号登录次数将变为0,此时帐号将无法登录，需要进行充值。充值时，直接输入帐号，按下“Enter”键，系统显示了该帐号的信息，直接输入需要充的次数，点击“充值”便可完成充值，同时左边列表显示充值的情况。5 .试题输入由于计算机一级B考试理论试题每年都有更新，因此需要对系统的数据库进行充实，就需要进行试题输入，在输入过程中，只需要使用ClrHC和鼠标点击便可完成试题截取，截取结束后，点击相应的题型保存便可以了。6 .答案输入当新试题输入完后，便可进行答案输入了。首先先点击题型，当列表中出现题目时，便可直接答题了，答完后，点击“上传”便可以完成答案输入。7.问题解答该功能主要是为了答复系统使用中常见的问题所设，输入问题及解答内容，点击“保存”便可,如果是需要修改问题，那么先选中所要修改的问题，点击“复制”，将问题复制到输入框中，然后修改后再点击“添加”，再删除原来的便可。8.使用查看使用掌握是为了让管理者更好地掌握系统的使用情况，使用该功能时，直接按要查看的条件选择好后，点击“查看”，系统便列出相应的内容。七、工程主要源代码(一)客户端1.登录界面DimWebFlagAsBooleanDimConnectTimeAsIntegerPrivateDeclareFunctionShellExecuteLib"shell32.dl,Alias"ShellExecuteA"_(ByValhwndAsLong,ByValIpOperationAsString,ByValIpFileAsString,_ByValIpParametersAsString,ByValIpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateConstSW_SHOW=5PrivateSubcmdLable-Click(IndexAsInteger)cmdSeIect-ClickIndexEndSubPrivateSubcmdSelect_Click(IndexAsInteger)IfIndex=1ThenIftxtID,Text=""OrtxtPWD.Text=',"Thena=MsgBox("由于您未输入帐号或密码!只能以浏览者身份进入！浏览者身份只能看到一套题目理论题，操作题讲解只能看到Word讲解！",48,”天狼电脑工作室")ID="浏览者"UserName="系统测试"ReDimaByte(O)AsBytePackBytesaByte,URLEnCOdecTD=系统测试”)WB1.NavigateServerIP&"Computerregistenasp'1,14,aByte,vHeadersfrmMain.ShowUnloadMeElsea=MsgBox("您确定开始使用系统吗？点击“是(Y)”后，系统将从您的帐上减去一次登录数，系统进入后，在使用过程中请不要关闭，系统是以登录次数记帐的！二36,"天狼电脑共管室")Ifao6ThenExitSubWebFlag=TrueConnectTime=OReDimaByte(O)AsBytePackBytesaByte,URLEncode("ID="&txtID.Text&"&PWD="&txtPWD.Text)WB1.NavigateServerIP&"computerregister.asp",14,aByte,vHeadersTimerLEnabIed=TrueEndIfElseCmdConnectEndIfEndSubPrivateSubForm_Load()SeverIP=":/jsyjbVer="1.00"ForI=0To5Iblinfomiation(O),FontName="宋体"NextOnErrorGoToabcIblRegistenFontName="宋体"IbINet.FontName="宋体"Frame1.FontName="宋体"1.abell(O)TontName="宋体"1.abell(I)TontName="宋体"CmdLable(O),FontName="宋体"cmdLable(1).FontName="宋体"abc:EndSubPrivateSublblNet_Click()CallShellExecute(Me.hwnd,"open",ServerIP&"index.asp",u',",',SW.SHOW)EndSubPrivateSublblRegister-Click()CallShellExecute(Me.hwnd,"open",ServerIP&"userregister.htm",'",'",SW.SHOW)EndSubPrivateSubTimerl_Timer()ConnectTime=ConnectTime+1IfConnectTime>60Thena=MSgBOX("网络不通!可能有以下几个原因:"&vbCrLf&"1.效劳器未开通或有错误!"&VbCrLf&”2.本机未接入到InterNei!"&VbcrLf&"3.网速太慢,还没有返回消息!”,16,”天狼电脑工作室”)ConnectTime=OEndIfEndSubPrivateSubcmdConnect()IftxtID-Text="',AndtxtPWD.Text=""Thena=MSgBox("请输入用户名及密码!"，16,”天狼电脑工作室")ExitSubEndIfWebFlag=TrueConnectTime=OReDimaByte(O)AsBytePackBytesaByte,URLEncodeCID="&txtID.Text&"&PWD="&txtPWD.Text)WBLNavigateServerIP&',computercheck.asp",14,aByte,vHeadersTimerLEnabled=TrueEndSubPrivateSubtxtPWD_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=VbKeyDownOrKeyCode=VbKeyUpThentxtID.SetFocustxtID.SelStart=0txtID.SelLength=30ElseIfKeyCode=13ThenCmdConnectEndIfEndSubPrivateSubtxtId_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=VbKeyDownOrKeyCode=VbKeylIpOrKeyCode=13ThentxtPWD.SetFocustxtPWD.SelStart=OtxtPWD.SelLength=30EndIfEndSubPrivateSubWBl_DocumentComplete(ByValpDispAsObject,URLAsVariant)IfWebFlag=FalseThenExitSubWebURL=LCase(URL)IfInStrd,WebURL,"computercheck.asp")>OThenOnErrorGoToabcIfcheckstring="no"Thena=MsgBox("对不起！您所输入的登录密码不正确!请重新输入！“，16,"天狼电脑工作室")txtPWD.Text=txtPWD.SetFocusElseVer=Trim(WBLDocumentfbnn1.Ver.Value)inf=Trim(WB1.Document,fonnI.inf.Value)IfVerOVerThena=MSgBox("该客户端程序已有新的版本(Ver"&Ver&")了！"&vbCrLf&inf&vbCrLf&”您目前使用的是“Ver"&Ver&”是否要下载？假设不想下载请选“否(N)”！",36,”天狼电脑工作室")Ifa=6ThenWBLNavigateServerIP&"windowsxp.rar"ExitSubEndIfEndIfID=txtID.TextPWD=txtPWD.TextEndIfElseIfInStr(1,WebURL,"computerregister.asp")>OThenOnErrorGoToabcIfcheckstring="no"Thena=MsgBox("对不起！您所输入的登录密码不正确!请重新输入！“，16,"天狼电脑工作室")txtPWD.Text=",txtPWD.SetFocusElseIfcheckstring="of,Thena=MsgBox("对不起！您的帐上的登录次数已为0,请您充值后再来使用！谢谢您的支持！"，16,"天狼电脑工作室")ElseID=txtID.lextPWD=txtPWD.TextfrmMain.ShowUnloadMeEndIfEndIfExitSubabc:a=MSgBOX("网络不通!可能有以下几个原因:"&vbCrLf&”1.效劳器未开通或有错误!"&VbCrLf&”2.本机未接入到InIerNet!"&VbCrLf&"3.网速太慢,还没有返回消息!”，16,”天狼电脑工作室")EndSub2.主界面DimAnSWerArray(60,2)ASSlring'共60题，一个放做的答案，一个放标准答案DimDataArray(60,7)AsString'6存放题型DimOperateArray(60)AsString'存放操作题DimReviewArray(BOO)AsStringDimDownArray(100)AsStringDimCurrentNumAsIntegerDimShowAnswerAsBooleanDimUseTimeAsSinglePrivateDeclareFunctionGetSystemMenuLib"user32"(ByValhwndAsLong,ByValbRevertAsLong)AsLongPrivateDeclareFunctionRemoveMenuLib"user32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLongPrivateDeclareFunctionSheIIExecuteLib"shell32.dll"Alias"ShellExecuteA"_(ByValhwndAsLong,ByValIpOperationAsString,ByValIpFileAsString,_ByValIpParametersAsString,ByValIpDirectoryAsString,ByVaInShowCmdAsLong)AsLongPrivateConstSW.SHOW=5PrivateConstLB_SETHORIZONTALEXTENT=&H194PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByVaIhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,IParamAsAny)AsLongPrivateSubcboTestPaper_Click()IfCboTestPaper.Text<>""ThenReDimaByte(O)AsBytePackBytesaByte,URLEncode("testname="&CboTestPaperText&"&id="&ID)WBI.NavigateServerIP&"computerreadoperateitem.asp",14,aByte,vHeadersEndIfEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfFrame!.Visible=TrueAndFrame3.Visible=FalseThenSelectCaseKeyCodeCaseVbKeyDown,VbKeyRight,32imgButton_Click2CasevbKeyUp,VbKeyLeftimgButton_ClickIimgButton_CIick4CaseVbKeyPageUpimgButton_Click3EndSelectElseIfFrameI.Visible=FalseAndFrame3.Visible=FalseAndIblMsg.Visible=FalseThenSelectCaseKeyCodeCaseVbKeyDown,VbKeyRight,32IftxtFill.Visible=TrueAnd(KeyCode=VbKeyRightOrKeyCode=32)ThenExitSubIfCurrentNum<49ThenlblNum_ClickCurrentNum+ICasevbKeyUp,VbKeyLeftIftxtFill.Visible=TrueAndKeyCode=VbKeyLeftThenExitSubIfCurrentNum>OThenlblNum-ClickCurrentNum-1CasevbKeyA,vbKeyB,vbKeyC,vbKeyDIftxtFill.Visible=FalseThenShowWin_MouseDownO,O,1000,600+(KeyCode-63)*8(X)EndIfEndSelectEndIfEndSubPrivateSubForm_Load()MeCaplion="江苏省计算机一级B考试辅导系统使用帐号："&ID&"姓名："&UserNameForI=0To8imgSelect(I).Picture=ImgNoSelect.PictureNextCurrentNum=OForI=0To49IblNum(I),Caption=,'"&Format(I+1,',")&"J,IblNum(I),Visible=FalseNexttxtFill.Visible=Falsetemp=VbCrLf&vbCrLf&"江苏省计算机一级B考试辅导系统是针对一级B考试训练而开发的，系统里包含的理论题和操作题全部"&VbCrLf&VbCrLfIemP=IemP&"为统考系统中原题。操作讲解采用了屏幕录像方式，边讲解边演示，使用者完全可以根据讲解自己练习，理论"&VbCrLf&VbCrLfIemP=IemP&"测试每次随机从库中抽取题目，系统可以给测试者打分，测试者也可以根据屡次练习的结果进行错误加强练习"&VbCrLf&VbCrLfIemP=IemP&"即系统根据测试者以往做错的题目，自动调用这些题目进行加强练习。该系统为绿色版，可以XP系统中运行,"&VbCrLf&VbCrLftemp=temp&"无须安装。也可在windows7版本运行，只需使用windows7版本。"&VbCrLf&VbCrLf&VbCrLf&VbCrLftemp=temp&',操作讲解：石容"&vbCrLf&vbCrLftemp=temp&,其它组员：黄冠之宋晶徐文斌裴季杰吕思静袁舟费香蓉"&vbCrLf&vbCrLftemp=temp&"网站地址：jsyjb/',&vbCrLf&vbCrLfIblMsg.Caption=tempEraseAnswerArrayEndSubPrivateSubImage1-Click()a=MsgBox("真的下载CboTesiPaperTexi&""的操作素材吗？",36,"天狼电脑工作室")Ifa=6ThenCallShellExecute(Me.hwnd,"open",ServerIP&DownArray(CboTestPaper.ListIndex),m,"",SW,SHOW)EndSubPrivateSubimgButton_Click(IndexAsInteger)IfIndex=OThenIfOptSelect(O).Value=TrueThenflag="select"ElseIfoptSelect(1).Value=TrueThenflag="dispute"Elseflag="fill"EndIfIfID=”浏览者"AndtxtNum.Texto"0001"Thenaa=MsgBox("对不起！浏览者的身份没有往后看的权限！二48,"天狼电脑工作室")txtNum.Text="(XX),ExitSubEndIfEraseReviewArrayIfVal(txtNum.Text)<1ThenBeginNum=1ElseBeginNum=Val(txtNum.Iext)ReDimaByte(0)AsBytePackBytesaByte,URLEncode("ID="&ID&"&flag="&flag&"&beginnum="&BeginNum)WB1.NavigateServerIP&"computerreadtheory.asp",14,.aByte,vHeadersElseIfIndex=1ThenIfCurrentNum>0ThenCurrentNum=CurrentNum-1ReviewShowElseIfIndex=2ThenIfCurrentNum<50AndReviewArray(CurrentNum*5+5)<>',"ThenCurrentNum=CurrentNum+1ReviewShowElseIfIndex=3Thenaa=MsgBox("真的读取“"&txtNum.Text”的前面50题吗？",36,”天狼电脑工作室”)Ifaa<>6ThenExitSuba=Val(txtNum.Text)-50Ifa>OThentxtNum.Text=Format(a,"0(X)0")ElsetxtNum.Text="(XX),EndIfimgButton_Click0ElseIfIndex=4Thenaa=MsgBox("真的读取“"&txtNum.Text”的后面50题吗？",36,”天狼电脑工作室")Ifaa<>6ThenExitSuba=Val(txtNum.Text)+50b=Val(Right(lblTotal.Caption,Len(IblTotaLCaption)-Len("库中共有选择题：")-50Ifa<bThentxtNum.Text=Format(a,"0(X)0")ElsetxtNum.Text=Format(b,"0000")EndIfimgButton-Click0EndIfEndSubPrivateSubReviewShowOShowWin.ClsOnErrorResumeNextShowWinTontName="宋体”ShowWin.FontSize=11IfCurrentNum>=50ThenExitSubForI=1To5IfInStr(l,ReviewArray(CurrentNum*5+I),'>")>0AndOptSelect(O),Value=TrueThenShowWin.ForeCoIor=vbRedElseShowWin.ForeColor=vbWhiteEndIfPrintMultiLineShowWin,800,5()0+I*800,10500,800+I*800,ReviewArray(CurrentNum*5+I),0,TrUeNextEndSubPrivateSubimgSelect_Click(IndexAsInteger)DimErrorString,RightStringAsStringSelectNum=IndexShowAnswer=FalseSelectCaseIndexCaseOForI=0To49IblNum(I),Visible=TrueNextIblMsg.Visible=FalseFrame3.Visible=FalseFrame!.Visible=FalseShowWin.Visible=TrueIblCheck1Visible=TrueIbicheckClick.Visible=TrueIfDataArray(O,1)=""ThenimgSelect.Click3:ExitSubForI=OTo49IfAnswerArray(I,1)<>""ThenIblNum(I),Caption=',"&Format(I+l,"00")&,'"ElselblNum(I).Caption=","&Format(I+1,"00")&TEndIfNextCase 1ShowAnswer=Truet=0RightString=""ErrorString="',ForI=0To49IfAnswerArray(I,1)=AnswerAay(I,2)AndAnswerArray(I,2)<>""ThenIblNum(I),Caption=T&Format(I+1,"00")&',"t=t+1RightString=RightString&DataArray(I,O)&'"ElselblNum(I).Caption=","&Format(I+1,"00")&',×mErrorString=ErrorString&DataArray(I,O)&",EndIfNexta=MsgBox("一共有50道理论题，您共做对了&I&题，得分错误的在题号处显示“X”，点击可以显示正确答案！"&vbCrLf&vbCrLf&"你是否将做错的题目保存到效劳器中，以便下次可以错误加练？”,36,”天狼电脑工作室")Ifa=6ThenReDimaByte(O)AsBytePackBytesaByte,URLEncode("ID="&ID&"Aerrorstring=',&ErrorString&"&rightstring="&RightString)WB1.NavigateServerIP&"computererrorinput.asp",14,.aByte,vHeadersEndIfCase 2IblMsg.Visible=FalseFrame3.Visible=FalseFrame!.Visible=FalseShowWin.Visible=TrUeEraseDataArrayEraseAnswerArrayIftxtBeginNum.Visible=TrueThenBeginNum=Val(IxtBeginNum.Text)ElseBeginNum="none"EndIfReDimaByte(O)AsBytePackBytesaByte,URLEncode("ID="&ID&"&flag=error&beginnum="&BeginNum)WBI.NavigateServerIP&"computerreadtheory.asp",14,.aByte,vHeadersCase 3IblMsg.Visible=FalseFr