计算机硬件知识考试系统

题目：计算机硬件知识考试系统一、课程设计时间2011年3月7日〜11日（第1周），共计I周。二、课程设计内容用VB+Access组合,编写“计算机硬件知识考试系统”软件。题目信息存储到Access数据库的表中，题目至少包括：选择题、填空题和问答题等。程序能实现对3种题型的考试及考试计时等功能。用户界面中的菜单至少应包括“考生登录”、“题型选择”、“交卷”、“退出”5项。三、课程设计要求程序质量：令贯彻事件驱动的程序设计思想。令用户界面友好，功能明确，操作方便：可以增加其它功能或修饰。◊代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：令课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：学生签名：五、成绩六、教师评语TOC\o"1-5"\h\z一、需求分析 4二、设计分析 5\o"CurrentDocument"三、关键技术 7\o"CurrentDocument"四、总结 10五、完整的源程序 11\o"CurrentDocument"六、参考文献 14一、需求分析计算机硬件知识考试系统，主要是为了实现考试题目的录入与学生作答的输出，以及对考试时间的控制这两大方面内容。考题的录入采用录入Access中表中数据，考题的输出采用把学生的作答输出至一个Txt文档中供老师批阅，才用倒计时功能对考试时间进行控制，时间到就自动结束考试①在Access表中建立题库，题库栏目包括两项，一是自动编号，二是问题。采用选择题、填空题与主观题分表，使得考试系统可以对三种题型分别作答，使考卷整洁,批阅轻松。②使用Txt作为学生作答的输出，可以使不同学生多次作答题目，每次都不发生冲突，老师批阅可以对每个学生所生成的Txt处理。③设计倒计时功能，如果时间结束，则自动关闭考试系统。④题库可以扩充且不影响Txt输出。

总系统详细设计二、设计分析(1)基本原理：建立程序设计与数据库(题库)的Access考题录学生作答Txt输出时间控制连接，用Write语句将学生作答录入特定Txt文档中，用Timer总系统详细设计二、设计分析(1)基本原理：建立程序设计与数据库(题库)的Access考题录学生作答Txt输出时间控制连接，用Write语句将学生作答录入特定Txt文档中，用Timer控件对倒计时进行管理。(2)总体设计:图1总体设计Access题库 空白点录入考试答案 创建timer控件连接题库与工程写入特定位置的Txt中写入倒计时程序创建工程开始图2详细设计（4）数据库设计：数据库的设计包括三个表格，可以对选择题、填空题与主观题的分别处理。1）选择题表如表1所示。表1选择题表题号（自动编号）题目（文本文档）1DVD刻录光驱的缩写是：A、DVD-ROMB.CD-ROMC、DVD-RWD.CD-RW2容量最大的光存储是一下的：A、3.5寸磁盘B、CD光盘C、DVD光盘D、蓝光光盘3•下哪些不是CPU的参数：A、主频B、核数C、前端输出D、内存大小*2）填空题表如表2所示表2填空题表题号（自动编号）题目（文本文档）1长按计算机电源按钮可以（ ）2CPU与CPU风扇之间用（ ）传导热量3选择多个内存条必须保证每个内存条（ ）*3）主观题表如表3所示。表3主观题表题号（自动编号）题目（文本文档）1简述计算机主板南桥的工作原理2分析IDE硬盘与SATA硬盘的区别*三、关键技术(1)创建倒数计时功能的页面与程序如下。图3聂For»5 口叵I区I29分56秒交卷DimtAsIntegerPrivateSubCommandl_Click()Form2.ShowForm5.ShowForml.Hidet=60*VaI(30)Timerl.Enabled=TrueEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubTimerl_Timer()DimM,sAsIntegert=t-1M=Int(t/60)s=tMod60Form5.Labell.Caption=M&"分“&s&”秒”If(t=O)ThenTimerl.Enabled=FalseForml.HideForm3.HideForm4.Hide

选择题图片5填空题(2)Access题库录入采用如下页面与程序图片4।题u求光s既缩写是：」2~选择题图片5填空题(2)Access题库录入采用如下页面与程序图片4।题u求光s既缩写是：」2~ .容量最大的光存储是一下C一 .一下嘶些不是CP底库数T作答主观题Form5.HideEndIfEndSubPrivateSubForm_Load()EndSub长技计箕机电涯按钮可以CPU与CPU风扇之间用(.选择多个内存条必须保证4作答埴空题作答主观题作答选择题SEE□0®图片6■FoX7 8PrivateSubCommandl_Click()EndEndSubPrivateSubCommand2_Click()Form4.Show0Form2.HideEndSubPrivateSubCommand3_Click()Form3.Show0Form2.HideEndSubPrivateSubTextl__Change()EndSubPrivateSubForm_Load()EndSubPrivateSubCommandl_Click()Form2.Show0Form3.HideEndSubPrivateSubCommand2_Click()Form4.Show0Form3.HideEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()EndSubPrivateSubCommandl_Click()Form2.Show0Form4.HideEndSubPrivateSubCommand2_Click()Form3.Show0Form4.HideEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()EndSub(3)Txt文件的输出的程序PrivateSubCommandl_Click()cl=Form1.Textl.Text:c2=Form2.text2.Text:c3=Form2.Text3.Text:c4=Form2.Text4.Text:c5=Form3.Text5.Text:c6=Form3.Text6.Text:c7=Form3.Text7.Text:c8=Form4.Text8.Text:c9=Form4.Text9.TextOpenHf:\xueshengzuoda.txtHForOutputAs#1Write#1,cl,c2,c3,c4,c5,c6,c7,c8,c9EndEndSubPrivateSubForm_Load()EndSub图3窗体•查询四、总结本次课程设计我的任务是运用VB制作一个计算机硬件知识考试系统，运用Access录入题库，导入答案至Txt文档中，并接对考试时间作控制，选择以上三项对整个程序进行设计，我的设计理念是使得程序尽可能的简单，显示的界面尽可能的简洁，给考生一个整洁的环境,这个程序对时间的要求特别的苛刻，督促考生快速作答,倒计时显示的也很大，让学生直观的看到考试时间，更加人性化，导入的Txt也方便阅卷人员阅卷。在此次课设过程中，选择用什么控件或是命令来实现题目要求是最为重要的环节,我选择的三种解决问题的方法是最为简单直观的，其中一些细节处理也让我费尽脑筋，为了美观和人性化处理对各个Form之间的显示与切换我下个很大功夫。通过此次课程设计，让我了解了VB的魅力，也让我知道我对编程的不足,对各个编程的软件及其关联有了深刻了解，总之获得了许多，再下次课程设计时我会做的更加完美。五、完整的源程序FormS.ShowForml.Hidet=60*Val(30)Timerl.Enabled=TrueEndSubPrivateSubCommand2_Click()EndEndSubPrivateSuhForm_Load()EndSubPrivateSubTimerl_Timer()DimM,sAsIntegerM=Int(t/60)s=tMod60Form5.Labell.Caption二M&"分“&s&”秒If(t=0)ThenTimerl.Enabled=FalseForml.HideForm3.HideForm4.HideFormS.HideEndIfEndSubPrivateSubCommandl_Click()EndEndSubPrivateSubCommand2_Click()Form4.Show0Form2.HideEndSubPrivateSubCommand3_Click()Form3.ShowOForm2.HideEndSubPrivateSubTextl_Change()EndSubPrivateSubForm_Load()EndSubPrivateSubCommandl_Click()Form2.Show0Form3.HideEndSubPrivateSubCommand2_Click()Form4.Show0Form3.HideEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()EndSubPrivateSubCommandl_Click()Form2.Show0Form4.HideEndSubPrivateSubCommand2_Click()Form3.ShowOForm4.HideEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()EndSubPrivateSubCommandl_Click()cl=Forml.Textl.Text:c2=Form2.text2.Text:c3=Form2.Text3.Text:c4=Form2.Text4.Text:c5=Form3.Text5.Text:c