随机抽题算法 0 引言 随机抽题是在线考试系统中的核心部分，目前大部分的在线考试系统或无纸化考试系统大都采用了随机函数实现随机抽题，但大部分在线考试系统在随机抽题时存在抽题速度慢、试题覆盖面不稳定、重点不突出、灵活性差等问题。本文讨论了优化随机抽题的方法，给出了具体的抽题公式和查询语句。 1 优化使用随机函数方法研究 原始在线考试系统中，使用随机函数从题库中抽取试题，抽题公式为Int(Rnd*M)公式1。在抽取第一题时，直接将题号存放在指定的空数组中，表示抽取成功，以后每抽取一题，将题号和数组中已存在元素进行比较，若存在则抽取失败，若不存在则抽取成功，并将题号依次存储在该数组中，直到抽取结束。这种抽题方法的缺陷是时间浪费。这种时间浪费在单机的时候并不明显，但在B/S模式或C/S模式下，机器越多速度越慢。为了解决重复抽题，避免试题抽取过慢，可采用分段法、分类法和分类分段结合法。 1.1分段法分段法是解决重复抽题最简单的方法，其原理是将题库中的试题M 分成N段，然后从每段中抽取一题，抽取公式为Int(Rnd*(M\N))+i*(M\N)(0≤i≤N-1)公式2。分段法的优点显而易见，可以完全杜绝试题重复抽取，但对题库中试题的数量有要求，即M>2N，且题库越大、试题数量越多，抽取效果就越好。在公式2中将M等分成N段，M并不一定能被N整除，也就是说采用公式2试题库最后M MOD N条试题永远不会被抽取，为了解决这个问题，可将公式2进行改进，设L=M MOD N，则抽取公式为Int(Rnd*(M\N+1))+i*(M\N+1)(0≤i≤L-1)公式3和Int(Rnd*(M\N))+i*(M\N)+L(L≤i≤N-1)公式4。分段法避免了重复抽取，但无法控制试题的覆盖面及难易程度。 1.21.2 分类法分类法是在试题库的结构上添加相应分类字段，字段可以是章 节、内容等，将所有试题按章节或内容分类，从每一类中抽取一题，不仅可以解决试题的重复抽取还可以控制试题的覆盖面。通常将分类字段的类型设置为整形，采用一组连续的整数作为分类字段的取值范围，这样方便在试题库中对分类进行循环查询，查询语句为select*from试题库where分类字段名=i查询1，设查询记录数为Mi，则抽题公式为Int(Rnd*Mi)公式5。分类法可以保证试卷的覆盖面，但没有侧重点。 1.31.3 分类分段结合法分类分段结合法在抽取试题时先分类，然后根据设定给 类分段，每类的分段数可以不同，从每个分段中抽取一题。这种方法要求在数据库中另建分类分段表，存贮每个分类中的抽题数量，数量可以是零，表示该类中不抽取，可以是大于零并小于该类题量的任何一个数Ni，表示将该类分成Ni段，每段抽取一题。从实现角度上看，分段法和分类法使用的是一维循环，分类分段法使用的是二维循环；从访问数据库角度看，分段法和分类法仅访问试题库，分类分段法除了访问试题库外还要访问分类分段表。2特殊要求下随机抽题的应对策略 在实际应用中，会对试题的抽取有一些特殊的要求。如何合理利用随机函数，在同一个试题库中抽取出适合不同系别、专业使用的试卷？随机函数并不是万能的，不可能独立处理以上问题，但是可以创造一个环境，随机函数在这个环境中通过简单的计算公式和相应的算法为不同系别、专业抽取需求不同的试卷。为了
专家随机抽取管理系统的设计与实现 第25卷第1期2019年3月开封大学学报 JOURNALOFKAIFENGUNIVERSITYVol.25 No.1 Mar.2019 专家随机抽取管理系统的设计与实现 王中军 (开封大学发展规划办公室,河南开封475004) 摘要:运用计算机网络技术、数据库技术、通信技术等,实现了评标专家在线申报、 资格审核、入库、自动随机抽取、自动补抽、自动语音短信通知等功能,优化了评标专家 随机抽取业务流程,增加了评标专家随机抽取的公平性和透明度. 关键词:随机抽取;专家系统;语音交互;B/S结构;.Net技术;CTI集成技术、TTS技术、短信技术 中图分类号:TP311.52 文献标识码:A文章编号:1008-343X(2019)01-95-02 目前,电子商务作为一种可行的商业运作机制,正迅 速地应用到广泛的经济领域中,改变着传统的经济模式.政府部门也把电子商务引入政 府采购工作中,打破了传统采购的限制,创建了新的采购模式,实现了政府采购的最优化,保 证了政府采购的透明性.在政府采购招投标业务中,评审专家是关系到评标结果的关键因素.因此在网上政府采购系统中,项目评审专家的抽取成为最为敏感的环节.传统的手工抽取评 标专家的方法存在随机算法不合理、抽取机会不均等、抽取与通知各自独立、人工干预多、保密性差、间隔时间过长等弊端.网上抽取评标专家的方法无疑是先进的,它能通过技术手 段保证抽取工作的公正性和公平性.本文的研究就是将政府的监督机制和网络安全技术相 结合,实现抽取结果对外界透明.该方法主要通过对监督人员到场监督抽取工作的检验、合 理的随机抽取算法、用交互式语音通知系统通知预选专家等来实现工作目标.1 研究的目 的及意义 本文研究的目的是采用先进、成熟的计算机系统技术框架,借助网络、中间件、数据 交换等技术,构建评标专家信息管理的网络平台、数据中心、安全体系和基本规范,从而为 政府采购提供多层次、多方位的评标专家信息资源管理,规范并优化评标专家抽取流程,开 创评标专家管理新模式. 本文研究的意义主要体现在:能提高工作效率,规范专家抽取流程;使评标专家信息对 参与抽取工作的人员保密;提高随机性,做到机会均等和公平抽取;满足异地抽取的要求,在 一定的区域内实现专家库资源共享;实
一、界面如图1 图1 二、程序如下 Private Sub Command1_Click() ‘（开始S）command.Caption Timer1.Enabled = True '将时钟控制器设置为有效 Command2.Enabled = True '将“抽奖”按钮设置为可用 Command1.Enabled = False '将“开始”按钮设置为不可用 End Sub Private Sub Command2_Click() ‘（抽奖X）command.Caption Timer1.Enabled = False '将时钟控制器设置为无效 Text2.Text = Label3(0).Caption & " " & Label3(1).Caption & " " & Label3(2).Caption & " " & Label3(3).Caption & " " & Label3(4).Caption '将label数组中的信息添加到Text2中 Command2.Enabled = False '将“抽奖”按钮设置为不可用 Command1.Enabled = True '将“开始”按钮设置为可用 Command3.Enabled = True '将“退出”按钮设置为可用 End Sub Private Sub Command3_Click() ‘（退出E）command.Caption End '结束程序运行 End Sub Private Sub Timer1_Timer() Randomize '初始化随机数产生器 Label3(0).Caption = Int(Rnd * 10 + 0) ' 在Label3(0)中显示产生的一个0-10的随机数Label3(1).Caption = Int(Rnd * 10 + 0) ' 在Label3(1)中显示产生的一个0-10的随机数Label3(2).Caption = Int(Rnd * 10 + 0) ' 在Label3(2)中显示产生的一个0-10的随机数
利用随机数表抽取样本的 方法讲 The latest revision on November 22, 2020
利用随机数表抽取样本的方法 随机数表是由0、1、2、3……9，这十个数字随机排列成的表格，表中每个位置上出现各个数字的概率都是相等的，随机数表不是唯一的，只要一个数表各个位置上出现的数字的概率是相同的，它就可以构成一个随机数表，第一张随机数表是由铁皮特在1927年给出的，统计工作者常用计算机生成随机数表，有的多功能计算器上也设有生成随机数的按键． 一、直接利用随机数表 直接利用随机数表进行抽样共有三个步骤： 第一步：对总体的各个个体进行编号 这里所谓编号就是编数字号码，编码方法与总体中个体多少有关，具体编码方法如下： 当个体数小于或等于100时，可编为两位数字号码，如：总体的个数为100，其编号为00，01，02，……99； 当个体数小于或等于1000时，可编为三位数字的号码，如：总体个数为500，其编号000，001，002，……499； 当个体数小于或等于10000时，可编为四位数字的号码，如：总体数为7560，其编号为0000，0001，0002，……7559； … … … … … … 这样的编号是为了便于使用随机数表． 第二步：选定抽样开始的数字 为了保证所选数字的随机性，①要随机选，②应在面对随机数表之前就指出开始数字的纵横位置，例如：选第8行第10列位置的数字为开始抽样的数字， ③根据所选数字的纵横位置，在表中查清所选的数字是几，例如：第8行第10列数字是9． 第三步：抽取样本号码 从选定的数字开始，按照对个体所编的号码位数〔如：两位或三位或四位……〕，沿着同一个方向向右或向左或向上或向下两位、两位或三位、三位或四位、四位……一直读下去，就会得到一系列两位数字号码或三位数字号码或四位数字号码……，在这些号码里，按抽取的顺序依次把不在编号内的号码去掉，重复号码只取一个，这个过程继续下去，直到取够样本容量为止．为了便于操作，特别是为了知道所抽取的每一个号码是否与前面得到的号码重复，可将总体中所有号码先按顺序列出，每抽出一个号码时就在其中的相应号码中做一个记号，这样就知道后面的号码是否被取出． 例如：某地举行了一次数字竞赛，参加竞赛的学生300人，为了了解竞赛成绩分布情况，计划从中抽取一个容量为15的样本，其步骤如下：Ⅰ、给三百名参赛者进行三位数编号，编号为000，001，002，003……299． Ⅱ、选定开始抽样的数字，在人教版高三数学教材选修〔Ⅰ〕p25的随机数表中任选第5行第10列位置的数4为开始抽样的数字． Ⅲ、从选定的数4开始向右三位，三位读下去，得到一系列三位数号码，在得到的三位数号码中去掉大于299的，重复的号码只取一个，则得容量为15
抽样方法介绍 朱一军 福建省产品质量检验研究院 一、随机方法选择及随机数产生 按照GB/T 10111-2008 《随机数的产生及其在产品质量抽样检验中的应用程序》的要求，并根据受检单位的产品堆放形式、基数（批量）大小，确定抽样方法（通常包括简单随机抽样、分层随机抽样、系统抽样、整群抽样、全数抽样五种方法）。 随机数一般可使用随机数表、骰子或扑克牌中任选一种方式产生。 （一）简单随机抽样 (抽签法、随机样数表法)常常用于总体个数较少时，它的主要特征是从总体中逐个抽取； 优点：操作简便易行 缺点：总体过大不易实行 1. 定义： 一般地，设一个总体含有N个个体，从中逐个不放回地抽取n个个体作为样本（n≦N），如果每次抽取式总体内的各个个体被抽到的机会都相等，就把这种抽样方法叫做简单随机抽样。2. 简单随机抽样方法 （1）抽签法 一般地，抽签法就是把总体中的N个个体编号，把号码写在
号签上，将号签放在一个容器中，搅拌均匀后，每次从中抽取一个号签，连续抽取n次，就得到一个容量为n的样本。 （抽签法简单易行，适用于总体中的个数不多时。当总体中的个体数较多时，将总体“搅拌均匀”就比较困难，用抽签法产生的样本代表性差的可能性很大） （2）随机数法 随机抽样中，另一个经常被采用的方法是随机数法，即利用随机数表、随机数骰子或计算机产生的随机数进行抽样。（二）分层抽样 （Stratified Random Sampling) 主要特征分层按比例抽样，主要使用于总体中的个体有明显差异。共同点：每个个体被抽到的概率都相等N/M。 定义 一般地，在抽样时，将总体分成互不交叉的层，然后按照一定的比例，从各层独立地抽取一定数量的个体，将各层取出的个体合在一起作为样本，这种抽样方法是一种分层抽样（stratified sampling）。 （三）系统抽样 当总体中的个体数较多时，采用简单随机抽样显得较为费事。这时，可将总体分成均衡的几个部分，然后按照预先定出的规则，从每一部分抽取一个个体，得到所需要的样本，这种抽样叫做系统抽样。
PPT轻松实现随机抽题 设计抽题界面 打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式（即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式）,在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工具”选项卡，插入三个命令按钮控件，在这些控件上右击，选择“属性”命令，打开它们的“属性”对话框，在“名称”后将命令按钮名称分别修改为：开始、停止和打开抽取的题目，再在Caption后填写按钮上显示的名称（可随意大写，我这儿设置的与按钮名称相同），并对字体、字号、背景颜色、样式等进行设置。 再插入三个文本框控件，同样在“属性”对话框中，修改它们的名称为：抽取框、结果框和已抽题目。把“抽取框”放到“开始”和“停止”命令按钮控件之间，把“结果框”放到“您抽取的是号题”文本中，将“已抽题目”拖至适合大小，放置到下面（图1）。
接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯片复制多份，将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依次类推。 编写宏代码 接下来，按ALT+F11组合键，打开VBA宏编辑窗口，双击左侧的“Slide1”，将以下代码复制到右窗格中并保存。 Private Sub 开始_Click() 停止.Enabled = True '停止按钮当前有效 Dim a As Integer Randomize Do a = Fix(Rnd * 10 + 1) '使用随机函数 抽取框.Text = a 结果框.Text = "" DoEvents Loop End Sub Private Sub 停止_Click() 结果框.Text = 抽取框.Text 已抽题目 = 已抽题目 + 抽取框 + " # " '题目标记用#分隔 停止.Enabled = False End End Sub Private Sub 打开抽取的题目_Click() ActivePresentation.SlideShowWindow_ .View.GotoSlide Val(抽取框.Text + 1)
专家评标抽取系统 系统简介 (2) 部分定制客户名单 (4) 基础数据录入 (5) 用户管理 (5) 参评专业设置 (7) 行业维护 (10) 职称维护 (12) 单位设置 (13) 招标方式设置 (15) 投资性质设置 (17) 常用语 (18) 系统参数设置 (19) 专家资料管理 (21) 项目建立与抽取 (22) 项目管理 (25) 语音通知与短信通知的软硬件搭建 (26) 专家系统中Microsoft SQL Server数据库的安装与使用 (29) 变声系统的环境搭建 (33) 典型案例 (34)
系统简介 专家评标抽取系统成功应用于多家招标代理公司、政府采购中心以及其它需要评标专家管理与随机抽取、语音通知的单位。 专家评标抽取系统是针对工程招投标从专家库中抽取参与评标专家的实用软件。符合发改委颁布的《评标专家和评标专家库管理暂行办法》。 系统可建立详细完善的专家库。随机抽取方式支持按设置的参评专业或专家所属行业，支持技术类与经济类、造价类专家抽取人数，支持设置回避单位等方式。抽取结果打印，查询结果导出到EXECL等等。包含语音自动通知，短信通知等功能。 软件为30天全功用试用版，试用期过后，仅随机抽取功能不能使用。您可以用来管理专家库并可将专家库导出到EXECL文件。 官方网站:www.toeye.net 多特软件站下载地址:http://www.duote.com/soft/20845.html 华军软件园下载地址:http://www.newhua.com/soft/96161.htm 如果您在使用中遇到任何问题，请邮件至goto9ccc@gmail.com 或联系QQ：691415。
固定价随机抽取（公开摇号）会议议程 一、宣布领导组、评审小组、介绍监督组、固定价随机抽取申请单位。 二、确定固定价随机抽取会议记录人。 (相关说明：1、工程概况。2、工程质量。3、工程量（实际与设计误差）。 4、谈判答疑截止时间与异意。 5、固定价随机抽取（公开摇号）办法程序。） 三、申请固定价随机抽取单位递交固定价随机抽取申请函、保证金。 四、评审小组进行资格审查（出示身份证，介绍信），记录、签字（包括不合格记录、签字）。 五、综合性评审，先审查固定价随机抽取申请函和保证金封面（密封、封面、签字、盖章）再拆封审查申请单位资质证件（审查固定价申请函内资料与竞固定价随机抽取要求一不一致）记录、签字（包括废标记录、签字）。 六、按随机抽取中选人程序抽取中选人： 1、随机抽取顺序号：按照合格报名签到随机抽取申请人的数量，向抽取箱放入同等数量的号码；由签到申请人本人持身份证原件（含临时身份证，不含护照、驾驶证等证件）按签到时间顺序随机抽取顺序号；抽取顺序号当场公布并签字确认。 2、确定候选号码：候选号码的确定，按照合格报名签到申请人的数量，向抽取箱放同等数量的号码，业主方随机抽取一个号码作为候选号码（中标号码），并当场公布及签字确认。如不能达成一致，由比选人或公认一个人当场随机抽取一个号码作为候选号码（中标号码）。 3、随机抽取中选人：按照合格签到申请人的数量，向抽取箱放入同等数量的号码；由签到申请人按抽选顺序号依次随机抽取一个号码。随机抽取的号码与业主方抽取候选号码相对应的申请人为本项目的中选人，当场签字确认。 4、宣布固定价随机抽取（抽取中选人）结果。 七、发送中选通知书 八、退还固定价随机抽取保证金。 九、整理资料。 十、有关领导讲话。 1
本文档如对你有帮助，请帮忙下载支持! Private Sub 开始 _Click() 停止.Enabled = True ' 停止按钮当前有效 Dim a As In teger Ran domize Do PPT 轻松实现随机抽题 设计抽题界面 打开PPT2010，将演示文稿保存成启用宏的 PPT 演示文稿格式（即.pptm 格式，包含宏代码的演示文稿，必 须保存成这种格式），在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工 具”选项卡，插入三个命令按钮控件，在这些控件上右击，选择“属性”命令，打开它们的“属性”对话框, 在“名称”后将命令按钮名称分别修改为：开始、停止和打开抽取的题目，再在 名称（可随意大写，我这儿设置的与按钮名称相同） ，并对字体、字号、背景颜色、样式等进行设置。 再插入三个文本框控件，同样在“属性”对话框中, 修改它们的名称为：抽取框、结果框和已抽题目。把“抽 接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯 将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依 次类推。 编写宏代码 ALT+F11组合键，打开 VBA 宏编辑窗口，双击左侧的“ Slide1 ”，将以下代码复制到右窗格中并 保存。 取框”放到“开始”和“停止”命令按钮控件之间, 把“结果框”放到“您抽取的是 号题”文本中，将“已抽 题目”拖至适合大小，放置到下面（图 1 )。 Cap tion 后填写按钮上显示的 片复制多份, 接下来，按
a = Fix(R nd * 10 + 1)' 使用随机函数 抽取框.Text = a 结果框.Text ="" DoEve nts Loop End Sub Private Sub 停止_Click() 结果框.Text = 抽取框.Text 已抽题目已抽题目+抽取框+ " # "'题目标记用#分隔停止.Enabled = False End End Sub Private Sub 打开抽取的题目_Click() Active Prese ntati on .SlideShowWi ndow .View.GotoSlide Val( 抽取框.Text + 1) End Sub 随机抽取题目并打开
