1、网页代码设计：程序及网页审核：操作屏幕录像：理论题截取：理论题答案：系统测试：2 项目完成时间安排网站及域名：201X年6月客户端设计：201X年6月201X年10月201X年6月201X年1月201X年6月201X年11月201X年2月201X年3月12日系统修改：201X年3月201X年6月3 项目经费使用安排程序设计及网页制作：1200.00文献资料购置费：800.00网站租用及域名：500.00计算机耗材：500文印费：800五、项目实施过程整个项目的实施过程严格按照计划进行，在实施开始阶段，召开了全体成员会议，根据各个学生的特点，布置了相应的任务，共同商议了域名和网站租用的问题，拟采
2、用作为域名，租用中国数据服务商的网络空间标准。在工作分配之后，进行了201X春季试卷理论题的截取工作，以文本方式保存，并开始查找和制作答案，同时操作题录像也开始录制，网站代码及客户端程序也开始设计，各方面的工作同时进行。在201X秋季考试之前，客户端和网站已基本设计完成，将理论题及操作录像导入系统数据库中，并上传到网络空间，通过参加考试的学生进行测试使用，根据使用出现的问题进行修改，完善系统。在秋季考试结束后，继续进行理论题截取、答案制作以及操作录像的录制。共完成了14套试卷的操作讲解录像，截取2027道理论题目。六、项目结果介绍计算机一级B考试辅导系统共分为三大模块：客户端，服务网站，管理端
3、。（一）客户端客户端是本系统最重要的部分，也是辅导系统最重要的体现，在该模块中，使用者可以进行理论测试和操作题练习，同时也可以进行理论复习和操作录像观看，通过标准答案和操作讲解，使使用者能更好地掌握理论知识和实践操作能力。为了提高复习效率，系统还可以自动记录下使用者做错的题目，以便下一次进行错误加练，更快地掌握理论知识。同时系统也要求使用者必须有一个帐号登录，以便更好地掌握各个人的使用情况及学习进度。为了使大多数的用户使用方便，本系的客户端共开发了WindowsXP、Windows7两个绿色版本，用户在使用过程中，只需要下载相应的客户端程序，直接点击运行，无须安装。1. 客户端登录客户端程序运
4、行后，系统弹出一个帐号输入界面，使用者输入自己的帐号及密码可以查看到帐号相应的信息，当“可登录数”大于0时系统便可进行直接点击“使用”进入客户端主界面。登录窗口如下图：如果登录帐号的密码输入有错，系统将出现密码输入错误的提示，如下图：当输入密码正确，登录成功后，系统将提示你将从你的帐上扣去一次登录次数，同时也表示你已经使用过系统一次，登录次数多表示学习次数多。如果帐上的登录次数使用完后，可以到管理端进行帐上充值，这样可以再次使用系统。提示界面如下图所示：如果网络不通，又要登录或查询的话，系统会出现下面提示：此时要检查一下网络情况，确保学习能进行。2. 客户端主界面身份验证成功后，系统自动进入主
5、界面，在主界面中分别有理论测试、测试评分、错误加练，试题刷新、理论复习、操作讲解、密码修改、系统说明及服务网站功能，使用者可以根据自己需要的项目进行点击学习。在主界面中间显示的是系统介绍，界面的标题显示的是当前使用者帐号及姓名，下方显示系统的服务电话及QQ号。3. 理论测试介绍理论测试主要用于测试使用者掌握理论知识情况，系统可以按照设置顺序或随机出题（是否将“按顺序出题”选上），题目包括选择题、填空是和是非题，各题型的数量随机。理论测试界面模拟了省统考系统的界面显示方式，每次显示一道题，使用进，可以用鼠标点击界面下方的题号，也可以使用“PageDown”或“PageUp”键进行选题，答案选择可
6、以用鼠标直接点击，也可以使用键盘ABCD进行答案选择，填空题则直接输入。4. 理论测试介绍理论评分是对理论测试结果的评判，在测试完毕后，点击理论评分，系统自动对所答的题目进行对错评判，错的分别在下方的题号后面显示“”，对的显示显示“”，同时弹出一个对话框显示统计结果，还可以让使用都决定是否将做错的题目加入了错题库中，以便日后进行错误加练时再出现做错的题目，增加对题目的印象。5. 错误加练介绍错误加练在抽题时首先抽取本帐号中以前出现过错误的题目，如果题目达不到50题，则其它题目再由系统随机抽取补充，如果错误的题目超过50题，则完全抽取的题目为曾经错误的题目。这样的目的是为了加深对错误题目的印象，
7、更快掌握理论题目。6. 试题刷新介绍试题刷新是在理论测试结束或错误加练结束后，再由系统进行重新抽题。抽取题目后自动又进入理论测试界面。7. 理论复习介绍理论复习共分三大部分，分别是选择题、填空题和是非题，在复习时系统自动按题目录入的时间排序，即最后截出来的题目放在首位，这种排法的原因是：使用都往往都喜欢从头看到尾，且不是所有使用者都会全部看完，一般情况下都是看前面的题目，这样就保证使用都看到的都是最新的试题，为增加通过率提供一定的保证。选择题还是一屏显示一道题，填空题和是非题则每屏显示5题，在各题目后面都有标准答案。理论复习的过程中，使用都可以根据学习情况自己选择复习进度，也可以边复习，边进行
8、理论测试，在理论测试中选择“按顺序出题”便可加深学习印象，更快掌握理论知识。理论复习的界面如下图所示：8. 操作讲解介绍本系统目前共录制了14套试卷的操作讲解，分别是201X年春季8套和秋季6套，在使用时，先选择试卷，选择后，界面的下方将显示该套试卷的所有操作题目，此时使用者可以用鼠标直接点击题目，系统自动播放该题的操作录像。播放界面如下图：本系统的操作录像均采用“屏幕录像”软件制作而成，录像图像清晰，声音清楚，使用者可以自行调制声音大小和播放进度，在看完录像可以直接关闭，也可以点击下一道题目以覆盖当前录像。如果想一边看录像一边训练，可以点击“下载素材”，系统便弹出如下提示，点击“是（Y）”，
9、系统将出现下载界面，如下图，点击链接便可进行下载，如果系统装了迅雷且设置为默认下载工具，可能全出现下载错误。9. 密码修改介绍密码修改主要是让使用者改变自己的登录密码，在修改时，先输入旧的密码，再输入新的密码，然后再验证一下新的密码，点击修改便可以了。10. 系统说明介绍系统说明主要是介绍一下本系统的基本情况及小组成员的基本情况。11. 服务网站介绍通过点击该项，系统自动链接到本系统相应的服务网站，可以让使用都更加了解本系统的其他功能。（二）服务网站1. 主页介绍网站的主页上显示的一个Flash横幅，主要显示系统的作用、域名及服务手机号和QQ号，网页下方左边显示的是联系方式，中间显示的系统介绍
10、，右边则显示系统使用的主要问题，在中间的下方，提供了用户注册、信息修改、客户端下载、使用说明、使用录像、帐号使用查看及使用问题和密码找回等功能，网页底部显示的是网站访问量及系统里包含的理论题目。2. 帐号注册在使用本系统必须使用帐号，因此需要先进行注册，注册可以从网站上进行注册，也可以直接下载客户端，在客户端进行注册。在注册时，如果有*提示的表示该项必须填写，填写好就可以点击“提交”便可完成。3. 信息修改信息修改是为了让已注册的信息因某种原因需要更改时而设的，修改时按要求进行填写好后，直接点击“提交”便可完成信息修改。4. 使用记录查看为了让使用者更加了解自己使用系统情况，可以点击“使用查看
11、”，进入后，在帐号处输入帐号，点击“提交”系统将显示该帐号使用的详细情况，如下图所示：（三）管理端1. 登录界面管理端是为了方便教师进行试题输入、帐号充值、问题解答及了解使用情况，因此安全性有一定的要求，需要进行身份验证，登录时，输入管理帐号及登录密码，点击“登录”进行身份验证后，便可进行管理端的主界面。2. 管理主界面管理主界面包含帐号注册、帐号充值、试题输入、试题答案、使用问题、使用查看等功能，使用时根据所需要的工作点击相应的功能按钮便可完成。3. 帐号注册当使用者未使用网站注册或客户端注册，而直接要进行充值时使用。在使用过程中，输入使用者的帐号、姓名、所在班级，点击注册便可完成，同时在左
12、边列表第一行显示注册帐号，如果发现某个无意义的帐号，可以先选中，直接点击删除便可完成。4. 帐号充值由于系统采用了帐号登录管理方式，因此在使用一段时间后，帐号登录次数将变为0，此时帐号将无法登录，需要进行充值。充值时，直接输入帐号，按下“Enter”键，系统显示了该帐号的信息，直接输入需要充的次数，点击“充值”便可完成充值，同时左边列表显示充值的情况。5. 试题输入由于计算机一级B考试理论试题每年都有更新，因此需要对系统的数据库进行充实，就需要进行试题输入，在输入过程中，只需要使用Ctrl+C和鼠标点击便可完成试题截取，截取结束后，点击相应的题型保存便可以了。6. 答案输入当新试题输入完后，便
13、可进行答案输入了。首先先点击题型，当列表中出现题目时，便可直接答题了，答完后，点击“上传”便可以完成答案输入。7. 问题解答该功能主要是为了回答系统使用中常见的问题所设，输入问题及解答内容，点击“保存”便可，如果是需要修改问题，则先选中所要修改的问题，点击“复制”，将问题复制到输入框中，然后修改后再点击“添加”，再删除原来的便可。8. 使用查看使用掌握是为了让管理者更好地掌握系统的使用情况，使用该功能时，直接按要查看的条件选择好后，点击“查看”，系统便列出相应的内容。七、项目主要源代码1登录界面Dim WebFlag As BooleanDim ConnectTime As IntegerPr
14、ivate Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA _（ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long） As Long Private Const SW_SHOW = 5Private Sub cmdLable_Click（Index As
15、Integer）cmdSelect_Click IndexEnd SubPrivate Sub cmdSelect_Click（Index As Integer）If Index = 1 ThenIf txtID.Text = Or txtPWD.Text = Thena = MsgBox（由于您未输入帐号或密码!只能以浏览者身份进入！浏览者身份只能看到一套题目理论题，操作题讲解只能看到Word讲解！, 48, 天狼电脑工作室）ID = 浏览者UserName = 系统测试ReDim aByte（0） As BytePackBytes aByte, URLEncode（ID=系统测试WB1.N
16、avigate ServerIP & computerregister.asp, 14, , aByte, vHeadersfrmMain.ShowUnload MeElse您确定开始使用系统吗？点击“是（Y）”后，系统将从您的帐上减去一次登录数，系统进入后，在使用过程中请不要关闭，系统是以登录次数记帐的！, 36, 天狼电脑共管室） If a 6 Then Exit Sub WebFlag = TrueConnectTime = 0ID= & txtID.Text &PWD= txtPWD.Text）Timer1.Enabled = TrueEnd IfcmdConnectPrivate S
17、ub Form_Load（）ServerIP = /Ver = 1.00For I = 0 To 5lblinformation（0）.FontName = 宋体NextOn Error GoTo abclblRegister.FontName = lblNet.FontName = Frame1.FontName = Label1（0）.FontName = Label1（1）.FontName = cmdLable（0）.FontName = cmdLable（1）.FontName = abc:Private Sub lblNet_Click（）Call ShellExecute（Me.
18、hwnd, open, ServerIP &index.asp, , SW_SHOW）Private Sub lblRegister_Click（）userregister.htmPrivate Sub Timer1_Timer（）ConnectTime = ConnectTime + 1If ConnectTime 60 Then网络不通!可能有以下几个原因: vbCrLf &1.服务器未开通或有错误!2.本机未接入到InterNet!3.网速太慢,还没有返回消息!, 16, ） Private Sub cmdConnect（） And txtPWD.Text = 请输入用户名及密码!Exi
19、t Subcomputercheck.aspPrivate Sub txtPWD_KeyDown（KeyCode As Integer, Shift As Integer）If KeyCode = vbKeyDown Or KeyCode = vbKeyUp ThentxtID.SetFocustxtID.SelStart = 0txtID.SelLength = 30ElseIf KeyCode = 13 ThenPrivate Sub txtId_KeyDown（KeyCode As Integer, Shift As Integer）If KeyCode = vbKeyDown Or K
20、eyCode = vbKeyUp Or KeyCode = 13 ThentxtPWD.SetFocustxtPWD.SelStart = 0txtPWD.SelLength = 30Private Sub WB1_DocumentComplete（ByVal pDisp As Object, URL As Variant）If WebFlag = False Then Exit SubWebURL = LCase（URL）If InStr（1, WebURL, ） 0 Thencheckstring = WB1.Document.form1.checkresult.ValueIf check
21、string = no对不起！您所输入的登录密码不正确!请重新输入！txtPWD.Text = Ver = Trim（WB1.Document.form1.Ver.Value）inf = Trim（WB1.Document.form1.inf.Value）If Ver Ver Then该客户端程序已有新的版本（Ver Ver &）了！ inf &您目前使用的是“Ver”是否要下载？若不想下载请选“否（N）”！） If a = 6 Then windowsxp.rarID = txtID.TextPWD = txtPWD.Textlblinformation（0）.Caption = 用户姓名：
22、 WB1.Document.form1.inf1.Valuelblinformation（1）.Caption = 可登录数： WB1.Document.form1.inf2.Valuelblinformation（2）.Caption = 累积登录： WB1.Document.form1.inf3.Valuelblinformation（3）.Caption = 累积消费： WB1.Document.form1.inf4.Valuelblinformation（4）.Caption = 最近登录： WB1.Document.form1.inf5.Valuelblinformation（5）.Caption = 登录： WB1.Document.form1.inf6.ValueElseIf InStr（1, WebURL, ElseIf checkstring = off您的帐上的登录次数已为0，请您充值后再来使用！谢谢您的支持！UserName = WB1.Document.form1.inf1.Value2主界面Dim AnswerArray（60, 2） As String 共60题，一个放做的答案，一个放标准答案Dim DataArray（60, 7） As St
