VB：考试系统.docVIP

课程设计说明书 面向对象程序设计（VB） 班级: *************** 姓名: ******* 设计题目: 考试系统 设计时间: ******** 至 ******* 指导教师: 评 语:___________________________________ ___________________________________________ ___________________________________________ ___________________________________________ ___________________________________________ 评阅成绩: __________评阅教师: _______________ 《面相对象程序设计(VB) 课程设计报告》 开课实验室：基础实验室二 2009年3月5日 实验题目 考试系统 实验目的 VB系统具有很强的实用性，此次VB课程设计有目的的把所学到的知识融合到了一起，让自己开发出一套有一定实用价值的系统。通过课程设计，熟悉各个控件的属性；掌握面向对象的程序设计思想与方法，进一步提高使用高级语言进行可视化程序的设计与应用的能力；掌握编程技巧；对之前用之不多的数据库知识进行强化；加强界面的综合设计能力，设计出界面清晰、美观、操作简便的考试系统。 此次课程设计为后续课，特别是网络数据库及网络编程等学习其他计算机课程的学习打下坚实的基础。在信息化社会的今天，作为“信息管理与信息系统”专业的学生，不仅需要掌握信息管理与信息系统方面与网络方面的基本理论知识，而且还需要掌握系统的开发和应用的技能及一定的科学研究能力。通过《VBConst bmpfilemax = 5 Dim bmpfile(bmpfilemax) As String Dim drawbmpmode(bmpfilemax) As Integer Dim bmpnum, movestep, xmax, ymax As Integer Dim kxy As Single Private Sub Command1_Click() 考试系统终端.Show Unload Me End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() bmpnum = 0 bmpfile(0) = App.Path + \海滩1.jpg bmpfile(1) = App.Path + \海滩3.jpg bmpfile(2) = App.Path + \海滩4.jpg bmpfile(3) = App.Path + \海滩5.jpg bmpfile(4) = App.Path + \海滩6.jpg drawbmpmode(0) = 1 drawbmpmode(1) = 5 drawbmpmode(2) = 3 drawbmpmode(3) = 4 drawbmpmode(4) = 2 movestep = 0 xmax = ttt2.ScaleWidth / 2 ymax = ttt2.ScaleHeight / 2 kxy = ymax / xmax Picture1.Picture = LoadPicture(bmpfile(bmpnum)) Timer1.Interval = 30 End Sub Private Sub Timer1_Timer() hDestDC = ttt2.hDC hSrcDC = Picture1.hDC drawflag = drawbmpmode(bmpnum) Select Case drawflag Case 1 endmax = xmax X1 = xmax - movestep w = movestep * 2 Y1 = CInt(ymax - movestep * kxy) h = CInt(2 * movestep * kxy) i = BitBlt(hDestDC, X1, Y1, w, h, hSrcDC, X1, Y1, SRCCOPY) Case 2 endmax = xmax w = movestep * 2 h = ttt2.ScaleHeight i = BitBlt(hDestDC, 0, 0, w, h, hSrcDC, X1, Y1, SRCCOPY) Ca