试卷生成系统网络毕业论文网(8)

5.3.3自动生成试卷时生成一个覆盖知识点广且试题不重复的试卷处理

自动生成试卷时如何生成一个覆盖知识点广且试题不重复的试卷，处理该问题的关键算法在于如何生成一个不重复的随机数序列。产生不重复随机数算法如下：

（1）首先生成随机数

 For index1 = 1 To SJ

  Do While True

  Randomize

  tempid = Int(Rnd() * (sum - 1)) + 1

  flag = True

  For index2 = 1 To index1

   If tempid = RandNo(index2) Then

      flag = False

      Exit For

   Next index2

   If flag = True Then Exit Do

   Loop

   RandNo(index1) = tempid

   Next index1

（2）然后对生成的随机数排序

  For index1 = 1 To SJ - 1

  tempid = index1

  For index2 = index1 + 1 To SJ

  If CInt(Trim(RandNo(index2))) < CInt(Trim(RandNo(tempid))) Then

  tempid = index2

  End If

  Next index2

  temp = RandNo(index1)

  RandNo(index1) = RandNo(tempid)

  RandNo(tempid) = temp

  Next index1

（3）最后将随机号对应的记录集中编号取出

  For index1 = 1 To SJ

  Dim intemp As Long

  intemp = CLng(RandNo(index1))

  rs.Move intemp - 1

  SaveItemSerial(index1) = Trim(rs.Fields(“BH”))

  rs.MoveFirst

  Next index1

  RItem = True

5.3.4数据库的备份与恢复

1）  数据库备份的部分代码

Public Function DBBackUp()

  Dim fs

  Set fs = CreateObject("Scripting.FileSystemObject")

  If fs.FileExists(App.path & "\数据库备份\shijuanbeifen.mdb") Then fs.DeleteFile App.path & "\数据库备份\shijuanbeifen.mdb"

  fs.copyfile App.path & "\shijuan.mdb", App.path & "\数据库备份\shijuanbeifen.mdb"

  MsgBox "备份完成!", 64, "数据库备份情况"

End Function

2）  数据库恢复的部分代码:

Public Function DBRestore()

Dim fs

  Set fs = CreateObject("Scripting.FileSystemObject")

  syscnn.Close

  If fs.FileExists(App.path & "\shijuan.mdb") Then fs.DeleteFile App.path & "\shijuan.mdb"

  fs.copyfile App.path & "\数据库备份\shijuanbeifen.mdb", App.path & "\shijuan.mdb"

  Main

  MsgBox "已恢复上次备份!", 64, "数据库恢复情况"

　　6 系统的测试

　　6.1 测试方法

　　软件测试方法一般分成白盒测试和黑盒测试，其各自具体定义如下：

　　1、黑盒测试

　　黑盒测试也称功能测试或数据驱动测试，它是在已知产品所应具有的功能，通过测试来检测每个功能是否都能正常使用，在测试时，把程序看作一个不能打开的黑盆子，在完全不考虑程序内部结构和内部特性的情况下，测试者在程序接口进行测试，它只检查程序功能是否按照需求规格说明书的规定正常使用，程序是否能适当地接收输入数锯而产生正确的输出信息，并且保持外部信息（如数据库或文件）的完整性。黑盒测试方法主要有等价类划分、边值分析、因—果图、错误推测等，主要用于软件确认测试。 “黑盒”法着眼于程序外部结构、不考虑内部结构、针对软件界面和软件功能进行测试。“黑盒”法是穷举输入测试，只有把所有可能的输入都作为测试情况使用，才能以这种方法查出程序中所有的错误。实际上测试情况有无穷多个，人们不仅要测试所有合法的输入，而且还要对那些不合法但是可能的输入进行测试。
    2、白盒测试
　　白盒测试也称结构测试或逻辑驱动测试，它是知道产品内部工作过程，可通过测试来检测产品内部动作是否按照规格说明书的规定正常进行，按照程序内部的结构测试程序，程序中的每条通路是否都有能按预定要求正确工作，而不顾它的功能，白盒测试的主要方法有逻辑驱动、基路测试等，主要用于软件验证。