JSJ06-301@VB考试分析评价系统设计(论文+源代码+开题报告+外文翻译+文献综述+答辩PPT)
收藏
资源目录
压缩包内文档预览：
编号：507623
类型：共享资源
大小：7.73MB
格式：ZIP
上传时间：2015-11-11
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-301@VB考试分析评价系统设计(论文+源代码+开题报告+外文翻译+文献综述+答辩PPT),毕业设计论文
- 内容简介：
-
附件 A 系统使用说明 图 6 学生成绩考试试卷指标测试分析系统主界面 系统维护是对系统数据库进行的一系列操作，稍不注意，就可能毁坏数据库，酿成大错，因此必须由系统管理员来实施。系统维护包含 4 项内容： 系统初始化、数据库备份、数据库恢复和密码 维护。 图 7 系统维护主界面 nts初始化是在 最初开始使用该系统前所做的操作。它会将数据库的数据全部清空。此操作必须 慎之又慎！ 数据库备份 是将当前的数据库制作一份拷贝保存起来，以备不测。备份前系统会提示上次保存的日期，并且询问是否 要覆盖原备份，确认后才会实施操作。备份数据库默认保存在系统安装文件夹下的 “Backup” 子文件夹下，文件名为 “System.dbc” 。如果想要将备份保存到软盘、 U 盘或其他介质中，直接从该文件夹中复制即可。不要改动这个文件名，否则数据恢复无法进行。 数据库恢复 是指在当前数据库遭到破坏、或用户想放弃最近的数据修改时所进行的操作。它可以将最近的备份数据恢复到当前数据库中。 密码维护 用于修改管理员密码。修改前必须输入正确的原始密码，否则系统拒绝修改操 作 nts名称维护 是对试卷中所用 到的基本数据进行添加、修改和删除操作 。包括学院名称维护、课程 、 名称维护、教师姓名维护和班级名称维护。 图 8 名称维护界面 学院名称维护 ：在系统主界面中展开 名称维护 菜单，然后选择 学院名称 ，系统会打开名称维护对话框如图所示。 图 9 基本数据维护选项界面 名称输入 ：在图中列表框内输入学院名称，单击 确定 按钮，即可将新的名称添加到数据库中。 名称修改 ：在图中列表框的下拉列表中选择已有的学院名称，按需要进行修改，完成后单击 修改 按钮，即可将数据库中的原 来的 名称改变为新名称。 名称删除 ：在图中列表框的下拉列表中选择需要删除的学院名称单击 删除 按钮，即可将该名称从数据库中删除。 nts课程名称维护、教师姓名维护 和 班级名称维护 使用与 学院名称维护 相似的方法步骤操作即可，不再赘述。 试卷 维护 可以对试卷进行考试记录添加、修改、删除、整张试卷的删除、以及录入数据的核对等操作。 它包括 试卷录入、试卷修改、试卷删除和成绩核对 等子系统。 图 10 试卷维护界面 试卷 录入：在系统主界面中展开 试卷维护 菜单，然后选择 试卷录入 ，系统会打开试卷录入对话框如下图所示： 图 11 试卷录入界面 nts 用对话框中的各列表框选择试卷基本资料，在各文本输入框中输入试卷的其他参数，然后单击 下一步 按钮，即可将创建一份新的试卷框架，如果输入的各题分值之和不等于满分数，将不能进入下一步。 如果数据正确，系统会打开试卷记录录入窗体如下图所示： 图 12 成绩录入界面 在表格中按列名称逐项输入数据即可。为了使录入更加快捷，最好用小键盘来进行输入，然后配合回车键来进行单元格跳转。 录入完一条记录后在下一条记录中会自动添加连续的学号，如果不需要连续，可以手工进行 修改。 在录入过程中系统会自动判断数据的取值范围：学号必须输满 10 位、各题的分数不能大于该题的满分值。 录入过程中随时都可以结束录入工作，但如果一条记录录入到一半，将不能结束录入，此时可以单击 删除当前记录 按钮来删除未完成的记录，然后再结束录入。 如果记录录入没有全部完成，以后可以在试卷修改中继续补录。 删除当前记录 按钮还可以用来删除任何一条被选中的记录。 nts试卷修改 ：试卷修改包括 资料修改 和 成绩修改 两个子系统，可以对试卷录入中的所有错误进行修正操作。 图 13 试卷维护界面 试卷删除 ：在系统主界面中展开 试卷维护 菜单，然后选择 试卷删除 ，系统会打开 试卷搜索向导 。 通过试卷搜索向导找满足条件的试卷列表后，在试卷列表中选中某张试卷，然后单击 删除所选试卷 按钮，即可删除被选中的试卷。删除前系统会要求用户再次进行确认，以免发生误操作。 nts试卷成绩核对 ：在系统主界面中展开 试卷维护 ，然后选择 成绩核对 ，系统会打开 试卷搜索导向 。通过试卷搜索向导找需要的试卷后，单击 核对所选试卷 按钮，系统就会将该试卷中录入的全部成 绩记录用 EXCEL电子表格显示出来，供成绩核对之用，也可以利用 EXCEL的打印功能，将此成绩单打印出来，供核对或它用。见下图。 图 14 成绩单输出 nts指标维护 是对试卷分析中所用到的难度指标、区分度指标和试卷分析判断结果评价标准等的维护。 难度指标和区分度指标一般情况下是长期相对保持不变的，单为了适应开放式软件的需要，增加了这项功能，使得用户可以自己定义各项分析判断尺度。该子系统包括 难度指标维护 、 区分度指标维护试卷分析评价指标维护 三个模块。 图 15 指标维护界面 试卷分析 ：试卷分析子系统是用于实现对录入的试卷记录进行各项指标统计、汇总、分析并且生成分析统计报告，同时可以显示和打印分析报告。 其中包括 分析报告生成 和 分析报告打印 两个子系统。 图 16 试卷分析界面 nts在分析报告生成中，通过试卷搜索向导找满足条件的试卷列表后，在试卷列表中选中某张试卷，然后单击 分析所选试卷 按钮，即可对被选中的试卷进行数据统计、汇总、分析并生成试卷分析报告，如下图所示： 图 17 分析报告生成 生成的 试卷分析报告被自动保存在软件所安装的文件夹下的 “Result” 子文件夹下，文件名为 “PaperXXX”, 其中的 “XXX” 是试卷的编号，由系统自动生成，与搜索到的试卷编号相一致。 此时用户可以浏览、编辑、修改报告内容和页面格式，还可以利用 EXCEL 的打印功能直接打印报告。 nts附录 软件的主要源代码： 试卷生成： Private Sub cmd_next_Click() Dim total_fen As Integer Dim i As Integer Dim RS As Recordset For i = 0 To Val(txt_total_ti) - 1 total_fen = total_fen + Val(txt_fen(i).Text) Next i If total_fen 0 Then Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Trim(Str(DBGrid1.Columns(0) = Then MsgBox 学号不能为空！ , vbCritical, 输入错误 DBGrid1.SetFocus Exit Sub ElseIf Len(Trim(DBGrid1.Columns(0) fen(i - 1) Then MsgBox 得分不能超过本大题分值范围： 0 + Str(fen(i - 1), vbCritical, 输入错误 DBGrid1.SetFocus Exit Sub End If Next i Data1.Recordset.MoveNext Loop aa = MsgBox(要结束修改吗？ , vbOKCancel, 确认 ) If aa = 1 Then ntsSet RS = DB.OpenRecordset(select * from stu_cj ) Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF For i = 1 To 10 If Trim(DBGrid1.Columns(i) = Then DBGrid1.Columns(i) = 0 End If Next i RS.AddNew RS!SJID = SJID RS!SID = DBGrid1.Columns(0) RS!T1 = Val(Trim(DBGrid1.Columns(1) RS!T2 = Val(Trim(DBGrid1.Columns(2) RS!T3 = Val(Trim(DBGrid1.Columns(3) RS!T4 = Val(Trim(DBGrid1.Columns(4) RS!T5 = Val(Trim(DBGrid1.Columns(5) RS!T6 = Val(Trim(DBGrid1.Columns(6) RS!T7 = Val(Trim(DBGrid1.Columns(7) RS!T8 = Val(Trim(DBGrid1.Columns(8) RS!T9 = Val(Trim(DBGrid1.Columns(9) RS!T10 = Val(Trim(DBGrid1.Columns(10) RS.Update Data1.Recordset.MoveNext Loop Unload Me End If Else MsgBox 您没有输入任何数据，请输入！ , vbCritical, 输入错误 End If End Sub 试卷搜索： Private Sub Command2_Click() Dim sql As String sql = select * from shijuan where If cmb_institute.Text Then sql = sql + classes= + cmb_classes.Text + and End If If cmb_teacher.Text Then sql = sql + year= + cmb_year.Text + and End If If cmb_course.Text Then sql = sql + term= + cmb_term.Text + End If If Right(sql, 4) = and Then sql = Left(sql, Len(sql) - 4) End If Set RS = DB.OpenRecordset(sql) If RS.RecordCount 0 Then Set RS_t = DB.OpenRecordset(select * from stu_cj where SJID= + Str(DBGrid1.Columns(0) If RS_t.RecordCount 0 Then Set exl = New Excel.Application exl.Workbooks.Add exl.Visible = True total_ti = RS.Fields(Total_ti).Value col_width = 87 / (total_ti + 1) col = Get_Exl_Col(1) exl.Columns(col).ColumnWidth = 13 exl.Columns(col).HorizontalAlignment = xlCenter For i = 1 To total_ti exl.Cells(3, i + 1).Value = 第 + Trim(Str(i) + 题 col = Get_Exl_Col(i + 1) exl.Columns(col).ColumnWidth = col_width exl.Columns(col).HorizontalAlignment = xlCenter Next i exl.Cells(3, i + 1).Value = 总分 col = Get_Exl_Col(i + 1) exl.Columns(col).ColumnWidth = col_width exl.Columns(col).HorizontalAlignment = xlCenter i = 1 Do While Not RS_t.EOF total_fen = 0 exl.Cells(3 + i, 1).Value = RS_t.Fields(SID).Value For j = 1 To total_ti fen = RS_t.Fields(T + Trim(Str(j).Value exl.Cells(3 + i, 1 + j).Value = fen total_fen = total_fen + fen Next j exl.Cells(3 + i, 1 + j).Value = total_fen RS_t.MoveNext i = i + 1 Loop nts exl.Cells(1, 1).Value = RS.Fields(Institute).Value + RS.Fields(Year).Value + 学年第 + RS.Fields(Term).Value + 学期考试（考查）成绩登记表 exl.Cells(2, 1).Value = 班级： + RS.Fields(Classes).Value + 课程名称： + RS.Fields(Course).Value + 任课教师： + RS.Fields(Teacher).Value exl.Cells(3, 1).Value = 学号 Call Unite_Exl_Col(1, total_ti + 2, 1) 合并第一行 Call Unite_Exl_Col(1, total_ti + 2, 2) 合并第二行 Else MsgBox 该试卷的没有成绩录入！ , vbOK, 信息提示 End If RS_t.Close Else MsgBox 没有该试卷的信息！ , vbOK, 信息提示 End If RS.Close ElseIf mod_type = fxbg Then 分析报告生成 ElseIf mod_type = fxbg Then 分析报告生成 Set RS = DB.OpenRecordset(select * from shijuan where SJID= + Str(DBGrid1.Columns(0) If RS.RecordCount 0 Then Set RS_t = DB.OpenRecordset(select * from stu_cj where SJID= + Str(DBGrid1.Columns(0) If RS_t.RecordCount 0 Then Dim f_Max As Double, f_Min As Double, f_Avg As Double Dim Q_nd As Double, Q_nd_m(10) As Double 难度 Dim D_qfd As Double 区分度 Dim fens(10, 2) As Double Dim fd(6) 分段数组，即各分数段的人数，如 fd(1)为 90 分以上的人 Dim Num As Integer Dim p As Double Dim tt(999) As Double 每个学生的分数 Dim str_num As String str_num = 一二三四五六七八九十 f_Max = 0 f_Min = 99999 For i = 1 To 10 fens(i, 1) = -99999 Next i nts For i = 1 To 6 fd(i) = 0 Next i total_ti = RS.Fields(Total_ti).Value 试卷总题数 取每个人的分数，计算最高分，最低分，等。 Do While Not RS_t.EOF Num = Num + 1 For j = 1 To total_ti fen = RS_t.Fields(T + Trim(CStr(j).Value fens(j, 2) = RS.Fields(T + Trim(CStr(j).Value fens(j, 1) = fens(j, 1) + fen tt(Num) = tt(Num) + fen Next j If tt(Num) f_Max Then f_Max = tt(Num) If tt(Num) = 90 Then fd(1) = fd(1) + 1 ElseIf tt(Num) = 80 Then fd(2) = fd(2) + 1 ElseIf tt(Num) = 70 Then fd(3) = fd(3) + 1 ElseIf tt(Num) = 60 Then fd(4) = fd(4) + 1 ElseIf tt(Num) = 40 Then fd(5) = fd(5) + 1 Else fd(6) = fd(6) + 1 End If RS_t.MoveNext Loop f_Avg = total_fen / Num 平均分 计算整个试卷的难度 For i = 1 To total_ti Q_nd_m(i) = 1 - fens(i, 1) / Num / fens(i, 2) 每道题的难度 Q_nd = Q_nd + CDbl(RS.Fields(t + Trim(CStr(i).Value) * Q_nd_m(i) Next i Q_nd = Q_nd / 100 计算整个试卷的区分度 Dim sh As Double, sl As Double, n As Integer p = Num * 27 / 100 n = CInt(Get_Point(p, -1) + 1 排序 nts For i = 1 To Num - 1 For j = 2 To Num If tt(i) tt(j) Then p = tt(i) tt(i) = tt(j) tt(j) = p End If Next j Next i For i = 1 To n sh = sh + tt(Num + 1 - i) 高分组 sl = sl + tt(i) 低分组 Next i D_qfd = (sh - sl) / (n * (f_Max - f_Min) Dim exwbook As Excel.Workbook Set exl = CreateObject(excel.application) Set exwbook = exl.Workbooks.Open(App.Path + resultPaper1.xls) exl.Visible = True exl.Cells(3, 2).Value = RS.Fields(Classes).Value exl.Cells(3, 6).Value = Date exl.Cells(4, 2).Value = RS.Fields(Course).Value exl.Cells(4, 5).Value = RS.Fields(Teacher).Value exl.Cells(4, 7).Value = RS.Fields(Stu_Num).Value exl.Cells(5, 3).Value = f_Max exl.Cells(5, 5).Value = f_Min exl.Cells(5, 7).Value = f_Avg For i = 1 T
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号