类型STBH.AddIntToStrBH //记下试题编号STND.AddST_DBG.Fields4.AsString //记下试题难度 3．在自动生成试卷里最主要的一点就是如何生成一个覆盖知道点广且试题不重复的试卷。

    其中的关键算法在于如何生成一个不重复的随机数序列。

    在 Delphi 里随机数的产生函数是 Random，然而如果用这个函数来生成一定范围内的随机数重复的机率太大了。

    其中变量定义如下: var XTH:array of integer //存放随机选题号以下是产生不重复随机数的算法: num:MaxBH-MinBH1 if numgt0 then //开始初始化 begin SetLengthXTHnum for i:0 to num-1 do XTHi:MinBHi //给动态数组设初值 Randomize //初始化随机数生成器 for i:0 to num-1 do begin j:randomnum temp:XTHi XTHi:XTHj XTHj:temp end end3 . 设计阶段3.1 概要设计3.1.1 系统数据库设计根据任务书的规定，现设计如下的数据库表格: 表1:用户表YH字段中文名 字段英文名 字段类型 字段长度 主键 姓名 UserName 文本 20 是 密码 Password 文本 18 组 GroupID 数字 长整型 权限 QXID 数字 长整型 表2:题型Type字段中文名 字段英文名 字段类型 字段长度 主键 编号 TypeID 自动编号 是 名称 TypeName 文本 20 分值 FZ 数字 长整型表3:难易度NYD字段中文名 字段英文名 字段类型 字段长度 主键 编号 BH 自动编号 是 难易度 NYD 文本 8表4:用户组UserGroup字段中文名 字段英文名 字段类型 字段长度 主键 编号 GroupID 自动编号 是 组名 GroupName 文本 20表5:选择题XuanZeTi字段中文名 字段英文名 字段类型 字段长度 主键 题号 TH 自动编号 是 题型 TypeID 数字 长整型 题目 TM 备注 选项 A A 文本 255 选项 B B 文本 255 选项 C C 文本 255 选项 D D 文本 255 正确答案 DA 文本 1 难易度 NY 数字 长整型 出自章节 CZ 文本 50 表6:填空题TianKong 字段中文名 字段英文名 字段类型 字段长度 主键 题号 BH 自动编号 是 题型 TypeID 数字 长整型 题目 TM 备注 空1 K1 文本 100 空2 K2 文本 100 空3 K3 文本 100 空4 K4 文本 100 空5 K5 文本 100 应填数 YTS 数字 长整型 难易度 NY 数字 长整型 出自章节 CZ 文本 50表7:简答题JianDaTi 字段中文名 字段英文名 字段类型 .

上一篇：网上购物系统
下一篇：法律专业开题报告范文