VB开发学生考试系统研究.doc

VB 开发学生考试系统研究 李小军 （广东省东莞市东莞理工学校，广东 东莞 523000） 摘 要：用 VB 开发学生考试系统，并对开发过程中的各个方面进行了探讨和研究，如数据库的设计以及用 VB 编 写程序的主要过程和关键代码。 关键词：考试系统； VB； SQL Server； ADO The Research of Using VB to Develop Student Test System LI Xiaojun （Dongguan Technology School , Guangdong Dongguan 523000） Abstract: Use VB to Develop Student Test System, and explore and research on all aspects of the development process Such as the database design and the programming of key process and key code with VB. Key words: Test System ; VB ; SQL Server ; ADO 1 开发前准备 1.1 程序语言的选用 供开发考试系统的程序语言很多，主要介绍和讨论采用 VB 来开发。 1.2 后台数据库选用 这里选择 SQL Server 2000 做为后台数据库。 1.3 ADO ADO 方式用来访问数据库，用来存取数据。 2 系统开发过程 2.1 数据库准备和设计 以采用 SQL Server 2000 作为数据库管理系统为例，可专 门建立一数据库，用来管理考试系统所涉及到的数据。为了 管理方便，数据表建立时，在数据库中为要考试的每个班级 建立一个数据表，以管理班级的学生信息，并建立一个数据 表管理每个班级信息。最后建立一数据表，存放考试题目。 2.1.1 班级数据表 可考虑以图 1 的方式创建。 [dl] 字段：存放学生的登录信息，以判断学生是否 试系统，如以“0”表示没有登录考试系统，以“1” 经登录考试系统。 2.1.2 班级信息数据表 可考虑以图 2 方式创建。 图 2 班级信息数据表设计模式图 说明： [bhao] 字段：存放班级号码以管理班级。 [banji] 字段：存放班级在数据库中的数据表的名 方便程序的调用，并对应具体班级。 [ztai] 字段：存放班级考试信息，以确定是否在考 以“0”表示没有在考试，以“1”表示在考试。 [sm] 字段：存放班级名称； [tshu] 字段：存放考 默认的考试题目数为 60。 2.1.3 考试题目数据表 可考虑以图 3 的方式建立。 说明： [th] 字段：存放题号。 [tm] 字段：存放考试的题目，该题目的答案可放 段中，也可以建立其他字段存放答案。 [da] 字段：存放正确答案。 [tx] 字段：存放题目的题型。可用具体的值表示 “0”表示选??题，“1”表示判断题等。 图 1 班级数据表设计模式图 说明： [xuehao] 字段：存放该班级学生的学号。 [name] 字段：存放该班级学生的姓名。 [sex] 字段：存放该班级学生的性别。 程序开发 3 2009. st1 = select * from tmu order by newid () 随机抽取数据表 tmu 中的题目信息 Set rs1 = executesql (st1) If Not rs1.EOF Then rs1.MoveFirst For i = 0 To tishu 1 将题号、题目、答案、题型存入数组 tihao (i) = rs1.Fields (0) timu (i) = rs1.Fields (1) da (i) = rs1.Fields (2) tx (i) = rs1.Fields (3) rs1.MoveNext Next i 3.3.2 取题 实现题目的选择，上一题、下一题。可以用一变量存储 题号，然后用一按钮控制改变下该变量的值就可以实现取题 了！ （该变量加 1，就翻到下一题，该变量减 1，就翻到上一 题） Sub qt (i As Integer) 取题 For j = 0 To 3 Option1 (j) .Value = False Next j Frame1.Caption = 第 i + 1 题 Label3.Caption = i + 1 . timu (i) If xda (i) Then 判断该题目是否完成,完成就将显示所选择的答案 For j = 0 To 3 If Option1 (j) .Caption =