资源目录
压缩包内文档预览：
编号：6894657
类型：共享资源
大小：7.48MB
格式：RAR
上传时间：2018-01-02
上传人：专业****设计
认证信息
个人认证
葛**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
定做请加QQ：
1060741974
参考网站
http://www.bysj360.com/
http://www.bylw520.ne
- 资源描述：
-
VB046考试分析评价系统AC,定做请加QQ：,1060741974,
,参考网站
,/
,http://www.bylw520.ne
- 内容简介：
-
附件A系统使用说明图6学生成绩考试试卷指标测试分析系统主界面系统维护是对系统数据库进行的一系列操作，稍不注意，就可能毁坏数据库，酿成大错，因此必须由系统管理员来实施。系统维护包含4项内容：系统初始化、数据库备份、数据库恢复和密码维护。图7系统维护主界面初始化是在最初开始使用该系统前所做的操作。它会将数据库的数据全部清空。此操作必须慎之又慎！数据库备份是将当前的数据库制作一份拷贝保存起来，以备不测。备份前系统会提示上次保存的日期，并且询问是否要覆盖原备份，确认后才会实施操作。备份数据库默认保存在系统安装文件夹下的“Backup”子文件夹下，文件名为“System.dbc”。如果想要将备份保存到软盘、U盘或其他介质中，直接从该文件夹中复制即可。不要改动这个文件名，否则数据恢复无法进行。数据库恢复是指在当前数据库遭到破坏、或用户想放弃最近的数据修改时所进行的操作。它可以将最近的备份数据恢复到当前数据库中。密码维护用于修改管理员密码。修改前必须输入正确的原始密码，否则系统拒绝修改操作名称维护是对试卷中所用到的基本数据进行添加、修改和删除操作。包括学院名称维护、课程、名称维护、教师姓名维护和班级名称维护。图8名称维护界面学院名称维护：在系统主界面中展开名称维护菜单，然后选择学院名称，系统会打开名称维护对话框如图所示。图9基本数据维护选项界面名称输入：在图中列表框内输入学院名称，单击确定按钮，即可将新的名称添加到数据库中。名称修改：在图中列表框的下拉列表中选择已有的学院名称，按需要进行修改，完成后单击修改按钮，即可将数据库中的原来的名称改变为新名称。名称删除：在图中列表框的下拉列表中选择需要删除的学院名称单击删除按钮，即可将该名称从数据库中删除。课程名称维护、教师姓名维护和班级名称维护使用与学院名称维护相似的方法步骤操作即可，不再赘述。试卷维护可以对试卷进行考试记录添加、修改、删除、整张试卷的删除、以及录入数据的核对等操作。它包括试卷录入、试卷修改、试卷删除和成绩核对等子系统。图10试卷维护界面试卷录入：在系统主界面中展开试卷维护菜单，然后选择试卷录入，系统会打开试卷录入对话框如下图所示：图11试卷录入界面用对话框中的各列表框选择试卷基本资料，在各文本输入框中输入试卷的其他参数，然后单击下一步按钮，即可将创建一份新的试卷框架，如果输入的各题分值之和不等于满分数，将不能进入下一步。如果数据正确，系统会打开试卷记录录入窗体如下图所示：图12成绩录入界面在表格中按列名称逐项输入数据即可。为了使录入更加快捷，最好用小键盘来进行输入，然后配合回车键来进行单元格跳转。录入完一条记录后在下一条记录中会自动添加连续的学号，如果不需要连续，可以手工进行修改。在录入过程中系统会自动判断数据的取值范围：学号必须输满10位、各题的分数不能大于该题的满分值。录入过程中随时都可以结束录入工作，但如果一条记录录入到一半，将不能结束录入，此时可以单击删除当前记录按钮来删除未完成的记录，然后再结束录入。如果记录录入没有全部完成，以后可以在试卷修改中继续补录。删除当前记录按钮还可以用来删除任何一条被选中的记录。试卷修改：试卷修改包括资料修改和成绩修改两个子系统，可以对试卷录入中的所有错误进行修正操作。图13试卷维护界面试卷删除：在系统主界面中展开试卷维护菜单，然后选择试卷删除，系统会打开试卷搜索向导。通过试卷搜索向导找满足条件的试卷列表后，在试卷列表中选中某张试卷，然后单击删除所选试卷按钮，即可删除被选中的试卷。删除前系统会要求用户再次进行确认，以免发生误操作。试卷成绩核对：在系统主界面中展开试卷维护，然后选择成绩核对，系统会打开试卷搜索导向。通过试卷搜索向导找需要的试卷后，单击核对所选试卷按钮，系统就会将该试卷中录入的全部成绩记录用EXCEL电子表格显示出来，供成绩核对之用，也可以利用EXCEL的打印功能，将此成绩单打印出来，供核对或它用。见下图。图14成绩单输出指标维护是对试卷分析中所用到的难度指标、区分度指标和试卷分析判断结果评价标准等的维护。难度指标和区分度指标一般情况下是长期相对保持不变的，单为了适应开放式软件的需要，增加了这项功能，使得用户可以自己定义各项分析判断尺度。该子系统包括难度指标维护、区分度指标维护试卷分析评价指标维护三个模块。图15指标维护界面试卷分析：试卷分析子系统是用于实现对录入的试卷记录进行各项指标统计、汇总、分析并且生成分析统计报告，同时可以显示和打印分析报告。其中包括分析报告生成和分析报告打印两个子系统。图16试卷分析界面在分析报告生成中，通过试卷搜索向导找满足条件的试卷列表后，在试卷列表中选中某张试卷，然后单击分析所选试卷按钮，即可对被选中的试卷进行数据统计、汇总、分析并生成试卷分析报告，如下图所示：图17分析报告生成生成的试卷分析报告被自动保存在软件所安装的文件夹下的“Result”子文件夹下，文件名为“PaperXXX”,其中的“XXX”是试卷的编号，由系统自动生成，与搜索到的试卷编号相一致。此时用户可以浏览、编辑、修改报告内容和页面格式，还可以利用EXCEL的打印功能直接打印报告。附录软件的主要源代码：试卷生成：PrivateSubcmd_next_Click()Dimtotal_fenAsIntegerDimiAsIntegerDimRSAsRecordsetFori=0ToVal(txt_total_ti)-1total_fen=total_fen+Val(txt_fen(i).Text)NextiIftotal_fenVal(txt_total_fen.Text)ThenMsgBox小分之和与总分不符！,仔细检查Else先向表shijuan插入记录SetRS=DB.OpenRecordset(select*fromshijuan)RS.AddNewRS!Institute=Trim(frm_sjlr.cmb_institute.Text)RS!teacher=Trim(frm_sjlr.cmb_teacher.Text)RS!Course=Trim(frm_sjlr.cmb_course.Text)RS!Classes=Trim(frm_sjlr.cmb_classes.Text)RS!Year=Trim(frm_sjlr.cmb_year.Text)RS!Term=Trim(frm_sjlr.cmb_term.Text)RS!stu_num=Trim(frm_sjlr.txt_stu_num.Text)RS!total_fen=Trim(frm_sjlr.txt_total_fen.Text)RS!total_ti=Trim(frm_sjlr.txt_total_ti.Text)RS!T1=Val(Trim(txt_fen(0).Text)RS!T2=Val(Trim(txt_fen(1).Text)RS!T3=Val(Trim(txt_fen(2).Text)RS!T4=Val(Trim(txt_fen(3).Text)RS!T5=Val(Trim(txt_fen(4).Text)RS!T6=Val(Trim(txt_fen(5).Text)RS!T7=Val(Trim(txt_fen(6).Text)RS!T8=Val(Trim(txt_fen(7).Text)RS!T9=Val(Trim(txt_fen(8).Text)RS!T10=Val(Trim(txt_fen(9).Text)RS.UpdateRS.CloseSetRS=DB.OpenRecordset(selectSJIDfromshijuanorderbySJIDdesc)frm_cjlr.SJID=Trim(RS.Fields(SJID).Value)RS.Closefrm_cjlr.fen0=Val(txt_fen(0).Text)frm_cjlr.fen1=Val(txt_fen(1).Text)frm_cjlr.fen2=Val(txt_fen(2).Text)frm_cjlr.fen3=Val(txt_fen(3).Text)frm_cjlr.fen4=Val(txt_fen(4).Text)frm_cjlr.fen5=Val(txt_fen(5).Text)frm_cjlr.fen6=Val(txt_fen(6).Text)frm_cjlr.fen7=Val(txt_fen(7).Text)frm_cjlr.fen8=Val(txt_fen(8).Text)frm_cjlr.fen9=Val(txt_fen(9).Text)frm_cjlr.total_ti=Val(txt_total_ti.Text)UnloadMeFrm_main.tform=cjlrfrm_cjlr.ShowEndIfEndSub成绩输入：PrivateSubCommand2_Click()DimiAsInteger,s1AsString,s2AsStringDimRSAsRecordsetDimaaAsIntegerData1.RefreshIfData1.Recordset.RecordCount0ThenData1.Recordset.MoveFirstDoWhileNotData1.Recordset.EOFIfTrim(Str(DBGrid1.Columns(0)=ThenMsgBox学号不能为空！,vbCritical,输入错误DBGrid1.SetFocusExitSubElseIfLen(Trim(DBGrid1.Columns(0)fen(i-1)ThenMsgBox得分不能超过本大题分值范围：0+Str(fen(i-1),vbCritical,输入错误DBGrid1.SetFocusExitSubEndIfNextiData1.Recordset.MoveNextLoopaa=MsgBox(要结束修改吗？,vbOKCancel,确认)Ifaa=1ThenSetRS=DB.OpenRecordset(select*fromstu_cj)Data1.Recordset.MoveFirstDoWhileNotData1.Recordset.EOFFori=1To10IfTrim(DBGrid1.Columns(i)=ThenDBGrid1.Columns(i)=0EndIfNextiRS.AddNewRS!SJID=SJIDRS!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.UpdateData1.Recordset.MoveNextLoopUnloadMeEndIfElseMsgBox您没有输入任何数据，请输入！,vbCritical,输入错误EndIfEndSub试卷搜索：PrivateSubCommand2_Click()DimsqlAsStringsql=select*fromshijuanwhereIfcmb_institute.TextThensql=sql+Institute=+cmb_institute.Text+andEndIfIfcmb_classes.TextThensql=sql+classes=+cmb_classes.Text+andEndIfIfcmb_teacher.TextThensql=sql+teacher=+cmb_teacher.Text+andEndIfIfcmb_year.TextThensql=sql+year=+cmb_year.Text+andEndIfIfcmb_course.TextThensql=sql+course=+cmb_course.Text+andEndIfIfcmb_term.TextThensql=sql+term=+cmb_term.Text+EndIfIfRight(sql,4)=andThensql=Left(sql,Len(sql)-4)EndIfSetRS=DB.OpenRecordset(sql)IfRS.RecordCount0ThenSetRS_t=DB.OpenRecordset(select*fromstu_cjwhereSJID=+Str(DBGrid1.Columns(0)IfRS_t.RecordCount0ThenSetexl=NewExcel.Applicationexl.Workbooks.Addexl.Visible=Truetotal_ti=RS.Fields(Total_ti).Valuecol_width=87/(total_ti+1)col=Get_Exl_Col(1)exl.Columns(col).ColumnWidth=13exl.Columns(col).HorizontalAlignment=xlCenterFori=1Tototal_tiexl.Cells(3,i+1).Value=第+Trim(Str(i)+题col=Get_Exl_Col(i+1)exl.Columns(col).ColumnWidth=col_widthexl.Columns(col).HorizontalAlignment=xlCenterNextiexl.Cells(3,i+1).Value=总分col=Get_Exl_Col(i+1)exl.Columns(col).ColumnWidth=col_widthexl.Columns(col).HorizontalAlignment=xlCenteri=1DoWhileNotRS_t.EOFtotal_fen=0exl.Cells(3+i,1).Value=RS_t.Fields(SID).ValueForj=1Tototal_tifen=RS_t.Fields(T+Trim(Str(j).Valueexl.Cells(3+i,1+j).Value=fentotal_fen=total_fen+fenNextjexl.Cells(3+i,1+j).Value=total_fenRS_t.MoveNexti=i+1Loopexl.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).Valueexl.Cells(3,1).Value=学号CallUnite_Exl_Col(1,total_ti+2,1)合并第一行CallUnite_Exl_Col(1,total_ti+2,2)合并第二行ElseMsgBox该试卷的没有成绩录入！,vbOK,信息提示EndIfRS_t.CloseElseMsgBox没有该试卷的信息！,vbOK,信息提示EndIfRS.CloseElseIfmod_type=fxbgThen分析报告生成ElseIfmod_type=fxbgThen分析报告生成SetRS=DB.OpenRecordset(select*fromshijuanwhereSJID=+Str(DBGrid1.Columns(0)IfRS.RecordCount0ThenSetRS_t=DB.OpenRecordset(select*fromstu_cjwhereSJID=+Str(DBGrid1.Columns(0)IfRS_t.RecordCount0ThenDimf_MaxAsDouble,f_MinAsDouble,f_AvgAsDoubleDimQ_ndAsDouble,Q_nd_m(10)AsDouble难度DimD_qfdAsDouble区分度Dimfens(10,2)AsDoubleDimfd(6)分段数组，即各分数段的人数，如fd(1)为90分以上的人DimNumAsIntegerDimpAsDoubleDimtt(999)AsDouble每个学生的分数Dimstr_numAsStringstr_num=一二三四五六七八九十f_Max=0f_Min=99999Fori=1To10fens(i,1)=-99999NextiFori=1To6fd(i)=0Nextitotal_ti=RS.Fields(Total_ti).Value试卷总题数取每个人的分数，计算最高分，最低分，等。DoWhileNotRS_t.EOFNum=Num+1Forj=1Tototal_tifen=RS_t.Fields(T+Trim(CStr(j).Valuefens(j,2)=RS.Fields(T+Trim(CStr(j).Valuefens(j,1)=fens(j,1)+fentt(Num)=tt(Num)+fenNextjIftt(Num)f_MaxThenf_Max=tt(Num)Iftt(Num)=90Thenfd(1)=fd(1)+1ElseIftt(Num)=80Thenfd(2)=fd(2)+1ElseIftt(Num)=70Thenfd(3)=fd(3)+1ElseIftt(Num)=60Thenfd(4)=fd(4)+1ElseIftt(Num)=40Thenfd(5)=fd(5)+1Elsefd(6)=fd(6)+1EndIfRS_t.MoveNextLoopf_Avg=total_fen/Num平均分计算整个试卷的难度Fori=1Tototal_tiQ_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)NextiQ_nd=Q_nd/100计算整个试卷的区分度DimshAsDouble,slAsDouble,nAsIntegerp=Num*27/100n=CInt(Get_Point(p,-1)+1排序Fori=1ToNum-1Forj=2ToNumIftt(i)tt(j)Thenp=tt(i)tt(i)=tt(j)tt(j)=pEndIfNextjNextiFori=1Tonsh=sh+tt(Num+1-i)高分组sl=sl+tt(i)低分组NextiD_qfd=(sh-sl)/(n*(f_Max-f_Min)DimexwbookAsExcel.WorkbookSetexl=CreateObject(excel.application)Setexwbook=exl.Workbooks.Open(App.Path+resultPaper1.xls)exl.Visible=Trueexl.Cells(3,2).Value=RS.Fields(Classes).Valueexl.Cells(3,6).Valu
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号