“计算机考试系统”课程设计的报告1

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

“计算机等级考试系统”课程设计报告
1.选题的背景和意义
本选题是将课堂所学的知识与实际需求相结合的产物。

在日常的计算机教育中,人们总需要一个考试系统来检测学生的学习情况,以便教师及时地了解学生对知识点的掌握情况,同时更有利于学生了解自身的缺陷和优势。

本选题将这些常见的需求,我们开发了一个“计算机等级考试系统”来实现人们的需求。

本选题具有以下几点实际意义:
(1)将课堂所学的内容应用到实际的教学中,巩固了知识的同时也锻炼了我们的动手能力。

(2)锻炼和提高了我们的科技报告的写作能力。

(3)激发了我们对VB课程的学习兴趣,同时也提高了我们对计算机的学习兴趣。

(4)通过实践我们了解到科研工作基本功的重要性,在今后其他课程的学习中,我们一定会更加努力。

2.系统的分析及整体结构的设计
本选题要实现的功能如下:
(1)保密功能:考生只有输入正确的考生号和密码才能进入考试系统(2)可选择功能:考生在答题时可以选择自己拿手的部分开始答题
(3)时间功能:考生在考试期间可以随时查看自己所剩余的时间,同时在考试结束前3分钟会自动弹出时间提示
(4)提示功能:在每个部分完成后(如正常交卷后),系统会自动弹出一个温馨小提示
3.源程序
(1)f orm1
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "考号不能为空!"
Text1.SetFocus 『对考生号的设定:不能为空』
ElseIf Text2.Text = Text1.Text Then
Me.Hide
Form13.Show
Else
MsgBox "密码错误!" 『对密码的设定:密码号就是考生号』End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.PasswordChar = "*" 『输入密码时以”***”形式展现』
End Sub
Private Sub Text1_Change()
If Not IsNumeric(Text1) Then
MsgBox "考号中不能含有数字符!请重新输入!"
Text1.Text = ""
Text1.SetFocus 『对考生号的设定:必须是数字』
End If
End Sub
(2)form2
Dim a
Private Sub Command1_Click()
Me.Hide
Form3.Show
End Sub 『进入另一个界面』
Private Sub feixuanzeti_Click()
Me.Hide
Form7.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Label3.Caption = 120
a = 120
End Sub 『设定时间:考生可以知道自己还剩余多少时间』Private Sub Timer1_Timer()
a = a - 1
Label3.Caption = a
If a = 118 Then
MsgBox "您好有3分钟,请准备交卷!" 『时间提示』
End If
If Label3.Caption = " 0" Then
MsgBox "时间到!" 『时间到的提示』
End If
End Sub
Private Sub xuanze_Click()
Timer1.Enabled = True
End Sub 『当前时间提示:考生可以随时查看当前时间』(3)form3
Private Sub Command1_Click()
Me.Hide
Form2.Show
End Sub
Private Sub Command2_Click(Index As Integer)
Me.Hide
Form4.Show
End Sub 『进入另一个界面』
Private Sub Command3_Click()
Me.Hide
Form14.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$
End Sub 『当前时间提示:考生可以随时查看当前时间』
(4)form4
Private Sub Command1_Click(Index As Integer)
Me.Hide
Form3.Show
End Sub 『进入另一个界面』
Private Sub Command2_Click()
Me.Hide
Form5.Show
End Sub 『进入另一个界面』
Private Sub Command3_Click()
Me.Hide
Form14.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$
End Sub 『当前时间提示:考生可以随时查看当前时间』(5)form5
Private Sub Command1_Click()
Me.Hide
Form4.Show
End Sub 『进入另一个界面』
Private Sub Command2_Click()
Me.Hide
Form6.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$ 『当前时间提示:考生可以随时查看当前时间』End Sub
(6)form6
Private Sub Command1_Click()
Me.Hide
Form5.Hide
End Sub 『进入另一个界面』
Private Sub Command2_Click()
Me.Hide
Form12.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$
End Sub 『当前时间提示:考生可以随时查看当前时间』
(7)form7
Private Sub Command1_Click()
Me.Hide
Form8.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$
End Sub 『当前时间提示:考生可以随时查看当前时间』
(8)form8
Private Sub Command1_Click()
Me.Hide
Form9.Show
End Sub 『进入另一个界面』
Private Sub Command2_Click()
Me.Hide
Form7.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$ 『当前时间提示:考生可以随时查看当前时间』End Sub
(9)form9
Private Sub Command1_Click()
Me.Hide
Form10.Show
End Sub 『进入另一个界面』
Private Sub Command2_Click()
Me.Hide
Form8.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$
End Sub 『当前时间提示:考生可以随时查看当前时间』
(10)form10
Private Sub Command1_Click()
Me.Hide
Form12.Show
End Sub 『进入另一个界面』
Private Sub Command2_Click()
Me.Hide
Form11.Show
End Sub 『进入另一个界面』
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time$
End Sub 『当前时间提示:考生可以随时查看当前时间』
(11)form11
Private Sub Label1_Click()
End Sub
(12)form12
Private Sub Command1_Click()
Me.Hide
Form2.Show
End Sub 『进入另一个界面』
Private Sub Command2_Click()
Me.Hide
Form7.Show
End Sub 『进入另一个界面』
(13)form13
Private Sub Command1_Click()
Me.Hide
Form12.Show 『进入另一个界面』
End Sub
4.设计过程中出现的问题及相应的解决办法
在设计过程中我们也遇到一些问题,如如何在点击『上一题』或『下一题』时出现相应的题目,我们是设定通过多个窗体来实现的;对于考试中需要查看时间的问题,我们是通过在每个界面上设定时间装置来显示当前时间的;对于密码问题,我们设定了一些相应的要求等等。

这些问题我们大部分是求助于老师来解决的,再次对老师的帮助表示感谢!
5.参考资料
《VB程序设计及应用教程》(高等教育出版社)
《VB程序设计及应用实验教程》(高等教育出版社)
老师的课件(ppt)
6.课程设计的心得体会
我们通过这次编程,将自己在课堂上学到的知识运用在实践中,既成功地编制出一个计算机考试系统,又极大地激起了我们对VB学习的兴趣。

同时我们在编程的过程中及时地了解知道自己的不足之处,在寻求老师和教材的帮助的过程中,我们及时地解决了自己的薄弱环节,巩固了VB的基本功。

除此之外,这次的编程过程是我们组的四个人共同完成的,在我们共同克服困难的同时,增进了彼此的感情,又深深体会到团队合作的重要性。

我想,这次的团队合作会是我们在大学期间的一次美好的回忆。

相关文档
最新文档