《vb：考试系统》由会员分享，可在线阅读，更多相关《vb：考试系统（19页珍藏版）》请在金锄头文库上搜索。
1、课程设计说明书面向对象程序设计（ VB）班级: * 姓名: * 设计题目: 考试系统 设计时间: * 至 * 指导教师: 评 语:_评阅成绩: _评阅教师: _面相对象程序设计(VB) 课程设计报告开课实验室：基础实验室二 2009 年 3 月 5 日实验题目 考试系统一、 实验目的（1） VB系统具有很强的实用性，此次VB课程设计有目的的把所学到的知识融合到了一起，让自己开发出一套有一定实用价值的系统。通过课程设计，熟悉各个控件的属性；掌握面向对象的程序设计思想与方法，进一步提高使用高级语言进行可视化程序的设计与应用的能力；掌握编程技巧；对之前用之不多的数据库知识进行强化；加强界面的综合设计
2、能力，设计出界面清晰、美观、操作简便的考试系统。（2） 此次课程设计为后续课，特别是网络数据库及网络编程等学习其他计算机课程的学习打下坚实的基础。在信息化社会的今天，作为“信息管理与信息系统”专业的学生，不仅需要掌握信息管理与信息系统方面与网络方面的基本理论知识，而且还需要掌握系统的开发和应用的技能及一定的科学研究能力。通过VB课程设计 ，我们这方面的能力要得到一定的加强。二、设备与环境PC 兼容机、Windows 操作系统、 VB6.0 软件等。三、功能模块简介和系统结构图本系统主要运用数据库知识，综合VB其他程序，设计出了一套布局合理的考试系统，学生通过系统的使用来检验自己的VB知识结构，
3、教师同时可通过查看学生答题的结果及时了解学生对知识的掌握情况。教师能够通过系统，对学生的答题信息进行添加，修改。用户登陆时即可分为教师和学生，这样增加了系统的安全性。(一) 功能模块简介系统结构图 考试系统图片动画教师登陆 学生登录密码确认 输入身份查看学生选择题，填空题，编程题答题情况 进行选择题，填空题，编程题的作答系统说明（1）学生登陆系统。系统运用用户登录的方式，保证了系统信息的安全。学生进入系统进行 VB 知识的考察，题目包括选择题，填空题和编程题，题号随机变动，考生可随时对答卷进行保存，点击“交卷”按钮即可知道自己的答题情况和各题所得分数，当同一考生再次进入系统时，其答题顺序与内容
4、依旧保留，保证了内容的连续性。同时当考生开始答卷时，系统倒计时启动，90 分钟后系统自动交卷保存。（2）教师登录系统。教师需输入自己用户名方可登陆，保证了系统的安全。教师进入系统后即可进行对考生考试成绩的查看，了解该学生的知识掌握度。同时，教师还可以新增或更改考题，以此来保持此系统的持久性。四、系统的主要界面设计及运行说明1、登陆窗体登录时设计了图片的变幻老师进入需输入自己用户名，进入后选择对考生答卷的查看和试题的修改。考生登录时进行信息的输入和确认开始答题，系统开始倒计时考生得到考试结果五、主要的源程序代码1、登陆系统代码（包括图片变幻）Const bmpfilemax = 5Dim bmp
5、file(bmpfilemax) As StringDim drawbmpmode(bmpfilemax) As IntegerDim bmpnum, movestep, xmax, ymax As IntegerDim kxy As SinglePrivate Sub Command1_Click()考试系统终端.ShowUnload MeEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()bmpnum = 0bmpfile(0) = App.Path + “海滩 1.jpg“bmpfile(1) = App
6、.Path + “海滩 3.jpg“bmpfile(2) = App.Path + “海滩 4.jpg“bmpfile(3) = App.Path + “海滩 5.jpg“bmpfile(4) = App.Path + “海滩 6.jpg“drawbmpmode(0) = 1drawbmpmode(1) = 5drawbmpmode(2) = 3drawbmpmode(3) = 4drawbmpmode(4) = 2movestep = 0xmax = ttt2.ScaleWidth / 2ymax = ttt2.ScaleHeight / 2kxy = ymax / xmaxPicture1
7、.Picture = LoadPicture(bmpfile(bmpnum)Timer1.Interval = 30End SubPrivate Sub Timer1_Timer()hDestDC = ttt2.hDChSrcDC = Picture1.hDCdrawflag = drawbmpmode(bmpnum)Select Case drawflagCase 1endmax = xmaxX1 = xmax - movestepw = movestep * 2Y1 = CInt(ymax - movestep * kxy)h = CInt(2 * movestep * kxy)i = B
8、itBlt(hDestDC, X1, Y1, w, h, hSrcDC, X1, Y1, SRCCOPY)Case 2endmax = xmaxw = movestep * 2h = ttt2.ScaleHeighti = BitBlt(hDestDC, 0, 0, w, h, hSrcDC, X1, Y1, SRCCOPY)Case 3endmax = xmaxw = movesteph = ttt2.ScaleHeighti = BitBlt(hDestDC, 0, 0, w, h, hSrcDC, 0, 0, SRCCOPY)X1 = ttt2.ScaleWidth - movestep
9、i = BitBlt(hDestDC, X1, 0, w, h, hSrcDC, X1, 0, SRCCOPY)Case 4endmax = CInt(2 * xmax / 10)tempi = CInt(2 * xmax / 10)w = movesteph = ttt2.ScaleHeightFor ij = 0 To 9i = BitBlt(hDestDC, tempi * ij, 0, w, h, hSrcDC, tempi * ij, 0, SRCCOPY)Next ijCase 5endmax = CInt(2 * xmax / 10)tempi = CInt(2 * xmax /
10、 10)w = movestepFor ih = 0 To w - 1For ik = 0 To 9For ij = 0 To 9l = tempi * ik + tempi / 2t = tempi * ij + tempi / 2i = BitBlt(hDestDC, 1 - (w - ih), t - ih, (w - ih) * 2, 1, hSrcDC, 1 - (w - ih), t - ih, SRCCOPY)i = BitBlt(hDestDC, 1 - (w - ih), t + ih, (w - ih) * 2, 1, hSrcDC, 1 - (w - ih), t + i
11、h, SRCCOPY)Next ijNext ikNext ihEnd Selectttt2.Refreshmovestep = movestep + 2If movestep endmax Thenbmpnum = bmpnum + 1If bmpnum = bmpfilemax Thenbmpnum = 0End Ifmovestep = 0Picture1.Picture = LoadPicture(bmpfile(bmpnum)End IfEnd Sub教师登录窗体Private Sub Form_Load()Text1.PasswordChar = “*“End SubPrivate
12、 Sub Command1_Click()Dim i As IntegerIf Text1.Text “ Then mpath = mpath & “Open mpath + “xm.dat“ For Random As #1 Len = Len(xmzy)record_no = LOF(1) / Len(xmzy)If record_no 0 ThenGet #1, record_no, xmzyText1(0) = xmzy.strno: Text1(1) = xmzy.strnameEnd IfClose #1End SubPrivate Sub Command1_Click()strs
13、1 = “你输入准考证号是:“ + Text1(0).Text + Chr(13) + Chr(10) + “考生姓名是:“ + Text1(1).Text + Chr(13) + Chr(10) + “身份证号是:“ + Text1(2).TextDim i As Integeri = MsgBox(strs1, 1 + vbQuestion, “登录提示（欢迎访问栩榛的 QQ：605254012）“)If i = 1 ThenOpen mpath + “xm.dat“ For Random As #1 Len = Len(xmzy)record_no = LOF(1) / Len(xmzy
14、) + 1xmzy.strno = Text1(0): xmzy.strname = Text1(1): xmzy.mtime = Time()Put #1, record_no, xmzyClose #1考生须知.Show Unload Meformdxt.Option1(i).Value = FalseElse身份确认.ShowEnd IfEnd SubPrivate Sub Timer1_Timer()Label1.Move Label1.Left - 50Label1.ForeColor = QBColor(15 * Rnd)If Label1.Left “ Then mpath =
15、mpath = “Data1.DatabaseName = “VBDXT.mdb“Data1.RecordSource = “vbdxt“Data1.RefreshIf IsNull(Data1.Recordset.Fields(“题号“) Then Call dxtsortEnd SubPrivate Sub dxtsort()mdxt = Data1.Recordset.RecordCountReDim st(mdxt, 7)Randomizei = 1Do While Not Data1.Recordset.EOFst(i, 1) = Data1.Recordset.Fields(“ID“)st(i, 2) = Int(Rnd * 1000)st(i, 3) = Data1.Recordset.Fields(“题名“)st(i, 4
