下载文档原格式
威海市交通运输局“双随机、一公开”监管工作实施细则文章属性•【制定机关】威海市交通运输局•【公布日期】2021.08.18•【字号】•【施行日期】2021.08.18•【效力等级】地方规范性文件•【时效性】现行有效•【主题分类】交通运输综合规定正文威海市交通运输局“双随机、一公开”监管工作实施细则目录第一章总则第二章抽查事项清单管理第三章“两库”管理第四章年度抽查计划、比例和频次第五章实施抽查第六章检查结果后续处理及应用第七章其他市交通运输局“双随机、一公开”监管工作实施细则第一章总则第一条为贯彻落实省、市“放管服”改革部署和“一次办好”改革要求，以问题和需求为导向，以公平公正公开监管为遵循，以监管效能最大化、监管成本最优化、对守法市场主体干扰最小化为目标，推进交通运输系统改革落实，根据《山东省交通运输系统实施市场监管领域“双随机、一公开”监管工作细则（试行）》和《威海市市场监管领域全面推行部门联合“双随机、一公开”监管的实施细则（试行）》，结合我局实际，制定本工作细则。
第二条本细则所称威海市交通运输局实施市场监管领域“双随机、一公开”随机抽查（以下简称“随机抽查”），是指根据威海市交通运输局随机抽查事项清单和年度抽查工作计划，由市局主管业务科室、执法机构单独或联合实施，以及与其他部门联合实施随机抽取检查对象和执法检查人员，组织开展行政检查，并将检查结果依法公开。
第三条随机抽查工作应当遵循依法实施、协同推进、权责明确、公开透明的原则。
依法实施，是指所有的随机抽查事项均应于法有据，严格按照随机抽查事项清单组织实施，不得在清单之外设立或实施随机抽查检查事项。
协同推进，是指坚持问题导向，全面推行联合“双随机、一公开”监管，实现“进一次门、查多项事”。
权责明确，是指参加检查的单位对具体检查过程、检查结果、公示结果应分别依法负责;对随机抽查中发现的问题按照“谁管辖、谁负责”的原则实施后续监管，防止监管脱节。
VBA中的随机数生成与抽样技巧在VBA中，随机数生成与抽样技巧是编写程序时经常会用到的重要工具。
随机数生成技术可以帮助我们实现各种随机性需求，而抽样技巧则可以帮助我们从大量数据中抽取一部分样本进行分析。
本文将介绍VBA中的随机数生成和抽样技巧，以帮助读者更好地运用这些工具。
首先，我们来介绍一些在VBA中生成随机数的常用函数。
VBA提供了两个主要的函数用于生成随机数：Rnd和Randomize。
Rnd函数返回一个0到1之间的随机浮点数，可以通过使用Randomize函数来设置随机数的种子。
例如，下面的代码将生成一个0到1之间的随机数：```vbaRandomizeRandomNumber = Rnd```如果想生成一个特定范围内的随机数，可以使用VBA的Rnd函数和一些简单的计算来实现。
例如，下面的代码将生成一个1到100之间的随机整数：```vbaRandomizeRandomNumber = Int((100 - 1 + 1) * Rnd + 1)```在上述代码中，Rnd函数生成一个0到1之间的随机浮点数，然后通过乘以范围长度和加上范围起始值的方式得到一个特定范围内的随机数。
除了生成随机数，VBA还提供了一些其他常用的函数来实现各种随机性需求。
例如，使用VBA的Rnd函数和控制结构可以实现按照一定概率生成特定值的需求。
下面的代码将使用Rnd函数和If语句来生成一个根据概率随机选择的值：```vbaRandomizeRandomValue = RndIf RandomValue < 0.3 ThenResult = "A"ElseIf RandomValue < 0.6 ThenResult = "B"ElseResult = "C"End If```在上述代码中，通过设置不同的概率区间，可以实现根据一定的概率生成不同的值。
常用抽样SAS程序目前，各医学论坛上都有大量的‘执业医师考题’等内容。
对于选择题而言，最让人感兴趣的是那部分带答案的考题。
显然，希望能做一下，后与答案对照验证和锻炼自己的实际水平。
但是，带答案内容的弊病就是当读者阅读考题时便不由自主的先看了答案，使目的不能达到。
改变这种尴尬状态需要事先把考题和其对应的答案部分分离出来，进行自我测验完毕后再根据需要调配答案自动对照改分。
由于该种抽样一个观测会包含很多的行，加之此后还有拆、合变化实际操作起来会有很大的困难，所以目前，不论是医学杂志亦或是相关网站，还是专业统计学论坛、书籍、杂志针对这样类型的抽样未见。
基于此，本人根据实际使用经验，针对固定格式的txt文件写了sas代码，运行效果满意。
数据来源本次数据从“爱爱医网”下载，存入e盘目录下的文件夹名为‘各病种练习题’，各样本尾缀为.txt 的文本文件，若为其他文件则首先要进行转换，使成sas可读文件。
本次使用文件路径及格式如图：图一路径的基本情况（主意图中文件类型、格式）一习惯性抽题方法本次采用逐步前进法，即根据当时情况每次抽出前10题、20题等测试和学习，像读书一样，本次读完第一页，下次读第二页，依次类推。
当然，加以修改，也可变成逐步后退法抽取，或由中间向两边抽取等。
1 考题和答案的分离处理编程将考题内容输出到output窗口和桌面，而考题答案输出到桌面txt文档供以后需要时调用、打开观。
程序第一部分data a;infile'e:\各病种练习题\肺炎练习题.txt';length x $ 100.;do i=1to7;input x & $;if _n_<=71 | _n_ >91then delete;/*选第11-20题*/output;end;data b(keep=x);set a;file'桌面\试题集内容.txt';where i<7;put x $;data c;set a;file'桌面\试题集答案.txt'; where i=7;put x $;proc print data=b noobs;run;2 答题环境的进一步发展通过以上几步处理，已经达到考题内容与答案分离的目的，可以打开桌面的考题内容进行自测然后与桌面的考题答案对照。
公司抽奖活动方案公司抽奖活动流程一、活动时间 3月115日—4月30日二、活动名称抽奖欢乐购三、活动目的进入三月份以来手机行业进入淡季，近期无重大节日，各售点销量不景气，为宣传品牌，提高销量，特举行抽奖活动四、活动内容1、活动期间，在河间乡镇各售点购买vivo1000元以上手机可兑换刮刮卡一张，3000元以上手机可兑换刮刮卡两张；抽奖方式：利用刮刮卡的形式，设置特、一、二、三等奖、纪念奖五种奖项，消费者凭手机保卡在所购手机店按要求兑换刮刮卡，现刮现兑。
(特等奖最后几天开始设置，具体情况待定。
)2、奖项设置：特等奖 1名：价值2798元的vivo 某9一台一等奖 3名价值1000元的滚筒洗衣机一台二等奖 10名价值298元的空调扇一台三等奖 20名价值99元的电蒸锅一套纪念奖精美礼品一份(店内赠品)五、物料准备1、抽奖箱50个2、宣传海报100份3、宣传单页200份4、奖品准备六、前期宣传2、宣传海报、单页、条幅制作3、其他合理宣传方式七、费用预算八、活动开展1、奖券按各售点销量分配到乡镇各个售点(区域业务可根据实际情况分配奖券)2、纪念奖由售点自己承担，优先考虑我公司提供的赠品(水杯、抱枕等)。
4、特等奖奖券可在活动最后几天发放。
5、顾客抽中奖励后，可邀请顾客发朋友圈宣传，标语：我在某某通讯购买vivo手机抽大奖，抽到某等奖。
6、活动结束后，各业务总结活动得失，及销量变化情况参加人员：工作人员：抽奖宗旨：1、本次抽奖采取“人人有奖、永不落空”制；2、相关领导及员工(优秀员工)抽取；3、本次抽奖现场仅抽取“特等奖”至“五等奖”共66名。
一、活动程序：1、15：00搬运奖品到现场；2、17：30---18：00ktv3、18：30全体领导及员工入席4、19：00---20：00抽奖a、19：00主持人致开幕词b、公司领导致春节抽奖祝贺词c、抽奖正式开始d、20：00抽奖结束二、实施细则1、资金的到位：3000人民币2、奖品的购置：曹红敏、胡洁芳、陈丽娟、厉刚锋3、奖品的保存：曹红敏4、抽奖券的制作：曹红敏、胡洁芳、陈丽娟5、抽奖券的分发：陈德贵6、抽奖：相关领导及员工7、会所的布置：曹红敏、胡洁芳、陈丽娟8、奖品运送：程希军、陈德贵9、电源、音箱等设备：厉刚锋、程希军、陈德贵10、现场保洁协助：程希军、陈德贵三、奖项奖品明细、抽奖顺序、开奖号码登记表见附表。
第1篇一、前言为了确保招标代理工作的公平、公正、公开，提高招标代理工作效率，根据《中华人民共和国招标投标法》及有关法律法规，结合我公司实际情况，特制定本招标代理公司抽取程序。
二、抽取原则1. 公平、公正、公开原则：抽取过程中，严格遵循公平、公正、公开的原则，确保所有参与抽取的公司都有平等的机会。
2. 依法合规原则：抽取程序严格按照国家法律法规和招标投标相关政策执行。
3. 科学合理原则：抽取程序设计科学合理，确保抽取结果的客观性、公正性。
三、抽取范围本抽取程序适用于我公司承接的所有招标代理项目。
四、抽取程序1. 抽取条件（1）具有独立法人资格的企业；（2）具备招标代理资质；（3）具有良好的商业信誉和健全的财务会计制度；（4）有履行合同所必需的设备和专业技术能力；（5）法律、行政法规规定的其他条件。
2. 抽取方式（1）公开招标：通过公开招标的方式，邀请符合条件的公司参与抽取。
（2）邀请招标：根据项目特点和需求，邀请特定的公司参与抽取。
3. 抽取流程（1）发布招标公告：在公司官网、相关媒体等渠道发布招标公告，明确招标项目、参与条件、抽取时间、地点等。
（2）报名参加：有意向的公司根据公告要求，在规定时间内向我公司提交报名材料。
（3）资格审查：我公司对报名公司进行资格审查，确保其符合抽取条件。
（4）抽取时间：根据公告要求，在规定时间内进行抽取。
（5）抽取地点：在公司指定地点进行抽取。
（6）抽取过程：抽取过程公开透明，邀请公证机构进行现场监督。
（7）抽取结果：抽取结果现场公布，并通知参与抽取的公司。
4. 抽取规则（1）随机抽取：采用随机抽取的方式确定参与抽取的公司。
（2）回避原则：抽取过程中，与招标项目有利害关系的公司不得参与抽取。
（3）抽取次数：根据项目需求，确定抽取次数。
五、抽取结果处理1. 抽取结果作为我公司选择招标代理公司的依据。
2. 抽取结果公布后，参与抽取的公司如有异议，可在规定时间内向我公司提出。
题目：趣味抽奖程序1．设计目的●训练随机数的控制●训练结构体数据编程●训练文件编程2．设计要求●事先把教工的编号、姓名、部门存入电脑●运行过程：⏹选择抽奖的等级，并输入该等级的人数⏹人员滚动显示，按任意键抽取（一个或一组），本等级抽取完毕，集中显示⏹直到抽取所有等级的人员●一个人只能被抽中一次●设计类：⏹密码类⏹加密类⏹文件操作类⏹抽奖类3．设计内容(1)程序流程程序流程（主函数的流程和功能）如图所示：主函数代码如下：#include<fstream>#include<iostream>#include<time.h>#include<stdlib.h>#include<string>#include<conio.h>using namespace std;struct user // 存放密码{char username[11];char password[11];}up[10]={"",""};char filename[20]={""}; // 存放文件名struct stu{int bh;char xm[10];int dj;}x[31]={0,"",0};int num,i;void main(){char yn='n',choice;system("color 1f");cout<<"\n\n\n\t\t\t欢迎登陆趣味抽奖系统 "<<endl<<endl<<endl; InputUserName();InputPassWord();Inputcjxx(); // 输入班级基本信息do{system("cls");system("color 4c");cout<<"***************************************"<<endl;cout<<"* 欢迎使用趣味抽奖程序 *"<<endl;cout<<"***************************************"<<endl<<endl;cout<<" 1. 输入人员基本信息" <<endl<<endl;cout<<" 2. 分组抽奖" <<endl<<endl;cout<<" 3. 显示抽奖结果" <<endl<<endl;cout<<" 4. 用户及密码维护" <<endl<<endl;cout<<" 0. 退出系统" <<endl<<endl;cout<<"****************************************"<<endl;cout<<" 请选择（0-4）：";cin>>choice;switch(choice){case '1':Inputryxx();break;case '2':fzchoujiang();break;case '3':Printxx();break;case '4':ModifyUser();break;case '0':cout<<"\n\n是否结束程序（y/n）? ";cin>>yn;}} while(yn=='n' || yn=='N');}（2）数据设计①学生信息：学号、姓名和成绩存放在一个结构体数组x[]中，数组x为全局变量，可以供每个功能使用。
2016程序文件——抽样控制程序一、目的抽样控制程序的制定旨在规范抽样活动，确保所抽取的样本能够代表总体，从而为后续的检验、测试和分析提供可靠的基础，以保障产品质量、服务水平和相关决策的科学性与准确性。
二、适用范围本程序适用于公司内所有需要进行抽样的活动，包括但不限于原材料的进货检验、在制品的过程控制、成品的出厂检验、市场调研中的样本采集等。
三、职责分工1、质量部门负责制定抽样计划、确定抽样方法和抽样数量，组织实施抽样工作，并对抽样过程进行监督和指导。
2、采购部门协助质量部门在原材料进货时进行抽样，提供相关的采购信息和供应商资料。
3、生产部门配合质量部门在生产过程中的抽样工作，确保抽样的顺利进行。
4、销售部门在市场调研等活动中，按照抽样要求收集相关数据和样本。
四、抽样原则1、随机性原则抽样应保证总体中的每个个体都有相等的被抽取机会，避免人为的倾向性和选择性。
2、代表性原则所抽取的样本应能够反映总体的特征和分布，具有足够的代表性。
3、适量性原则抽样数量应根据检验的目的、总体的大小、产品的特性以及允许的误差范围等因素综合确定，既不能过多增加成本，也不能过少影响检验结果的可靠性。
4、独立性原则每次抽样应独立进行，不受之前抽样结果的影响。
五、抽样计划1、抽样计划的制定质量部门应根据产品或服务的特点、质量要求、检验标准以及相关法律法规的要求，制定详细的抽样计划。
抽样计划应包括抽样的目的、范围、方法、数量、时间、地点以及抽样人员的安排等内容。
2、抽样计划的审批抽样计划应由质量部门负责人审核，必要时还需经过相关部门的会签和公司领导的批准。
3、抽样计划的变更在抽样过程中，如果发现实际情况与抽样计划不符，需要对抽样计划进行变更时，应按照原审批程序进行审批，并记录变更的原因和内容。
六、抽样方法1、简单随机抽样这是一种最基本的抽样方法，通过随机数表、抽签或随机数生成器等方式，从总体中随机抽取样本。
2、分层抽样将总体按照某些特征（如产品批次、生产时间、地区等）分成若干层次，然后从每个层次中分别进行随机抽样。
固定价随机抽取（公开摇号）会议议程一、宣布领导组、评审小组、介绍监督组、固定价随机抽取申请单位。
二、确定固定价随机抽取会议记录人。
(相关说明：1、工程概况。
2、工程质量。
3、工程量（实际与设计误差）。
4、谈判答疑截止时间与异意。
5、固定价随机抽取（公开摇号）办法程序。
）三、申请固定价随机抽取单位递交固定价随机抽取申请函、保证金。
四、评审小组进行资格审查（出示身份证，介绍信），记录、签字（包括不合格记录、签字）。
五、综合性评审，先审查固定价随机抽取申请函和保证金封面（密封、封面、签字、盖章）再拆封审查申请单位资质证件（审查固定价申请函内资料与竞固定价随机抽取要求一不一致）记录、签字（包括废标记录、签字）。
六、按随机抽取中选人程序抽取中选人：1、随机抽取顺序号：按照合格报名签到随机抽取申请人的数量，向抽取箱放入同等数量的号码；由签到申请人本人持身份证原件（含临时身份证，不含护照、驾驶证等证件）按签到时间顺序随机抽取顺序号；抽取顺序号当场公布并签字确认。
2、确定候选号码：候选号码的确定，按照合格报名签到申请人的数量，向抽取箱放同等数量的号码，业主方随机抽取一个号码作为候选号码（中标号码），并当场公布及签字确认。
如不能达成一致，由比选人或公认一个人当场随机抽取一个号码作为候选号码（中标号码）。
3、随机抽取中选人：按照合格签到申请人的数量，向抽取箱放入同等数量的号码；由签到申请人按抽选顺序号依次随机抽取一个号码。
随机抽取的号码与业主方抽取候选号码相对应的申请人为本项目的中选人，当场签字确认。
4、宣布固定价随机抽取（抽取中选人）结果。
七、发送中选通知书八、退还固定价随机抽取保证金。
九、整理资料。
十、有关领导讲话。
1。
第三章评标办法（价格竞争随机摇号法）一、专家评审1、符合性鉴定审查。
评标委员会对投标人进行符合性鉴定审核，评审采用合格制，报价不得高于招标控制价。
通过符合性审查的投标人进入价格评审阶段。
2、价格评审。
评标委员会对进入价格评审阶段的投标人按照报价由低到高进行排序，排位靠前的前半数投标人进入摇号阶段（进位取整，不足3家的取够3家）。
3、确定中标人由招标人或招标代理机构在监督部门监督下对进入摇号资格投标人随机摇出三名中标人，摇出的第1名为第1中标人，第2名为第2中标人，第3名为第3中标人。
中标价即为中标人的投标报价。
二、摇号资格的确定符合招标文件要求，同时符合以下条件的投标人为合格投标人，合格投标人可进入摇号程序。
（一）、评标委员会依据下列规定对所有投标人的投标文件进行评审，查实是否符合招标文件要求。
1、投标人的资质证书、营业执照、安全生产许可证有效，企业资质等级满足招标文件要求；2、投标文件的投标函及投标函附录、授权委托书、项目管理机构、主要人员表、投标保证金递交情况等证件齐全且按照招标文件规定的格式、内容填写，签字盖章的；3、投标人经营业绩满足最低要求的；4、投标人的信誉符合招标文件要求的；（二）、投标人根据评标委员会要求现场澄清并出具承诺书，拒绝澄清或拒绝出具承诺书的将取消投标人的入围摇号资格，评标委员会不得暗示或者诱导投标人作出澄清、说明，不得接受投标人主动提出的澄清、说明。
（三）、投标人已递交投标文件并在招标文件规定的截止时间之前，将足额投标保证金由投标人的基本帐户汇入指定帐户。
（四）、投标人的法定代表人或其授权代理人在开标前须持本人身份证原件、法定代表人身份证原件或授权委托书原件进入摇号现场。
（五）评标委员会对进入价格评审阶段的投标人按照报价由低到高进行排序，排位靠前的前半数投标人进入摇号阶段（进位取整，不足3家的取够3家）。
三、抽号摇号规则（一）抽号规则招标代理机构按照评标委员会审查评定的结果，在规定的时间内组织所有投标人现场宣读合格投标人和不合格投标人名称。
【原创】ExcelVBA实现不重复、多次抽奖⼩程序在活动中，我们常会有抽奖，抽奖箱准备繁琐，现在多采⽤线上抽奖⽅式，下⾯⽤Excel VBA写了⼀个简单的抽奖⼩程序简单测试效果如下，可实现：多次抽奖，且每次抽奖都不重复抽奖界⾯滚动⼈员信息，点击抽奖按钮锁定中奖⼈员中奖⼈员信息在右侧公⽰区域展⽰，最新中奖⼈员展⽰在最上⽅设置了⼀部分误点、误操作提⽰，以及抽奖完成提⽰等已优化，⽀持万⼈级抽奖做了⼀个抽奖简单演⽰，演⽰GIF如下：实现代码如下，按需⾃取，转载请备注出处：'申明Flag、d、e三个模块变量，跨进程引⽤，实现滚动和抽奖数据传递Dim Flag As Boolean '屏幕停⽌滚动并抽奖的判断参数Dim d As Object '将随机抽取的中奖⼈员按⾃增键储存Dim e As Object '将随机抽取的中奖⼈员按原键储存Dim dict_id As Object '本轮参与抽奖⼈员⼯号Sub 重置()'清空上次抽奖内容，将⼈员名单复制到辅助列Application.ScreenUpdating = False '屏幕刷新禁⽤，不展⽰清空数据过程Sheets("抽奖界⾯").SelectSheets("抽奖界⾯").Range("E2") = 0Sheets("抽奖界⾯").Range(Range("B6"), Range("F15")).ClearContentsSheets("抽奖界⾯").Range(Range("J3"), Range("P3").End(xlDown)).ClearContentsSheets("⼈员名单").SelectSheets("⼈员名单").Range(Range("H3"), Range("H3").End(xlDown)).ClearContentsSheets("⼈员名单").Range(Range("A3"), Range("A3").End(xlDown)).Copy _Sheets("⼈员名单").Range("H3")Sheets("抽奖界⾯").SelectApplication.ScreenUpdating = True '屏幕刷新开启，为滚动抽奖做准备End SubSub 准备() '准备开始抽奖，灰⾊区域滚动更新中奖⼈员Set d = NothingSet e = NothingSet dict_id = NothingFlag = Truetext_level = Sheets("抽奖界⾯").Range("A2") '抽取奖项lottery_target = Sheets("抽奖界⾯").Range("D2") '抽奖次数⽬标'判断该奖项是否已经抽取过，当变更了抽取奖项时，⾃动重置已抽取次数为0If Application.WorksheetFunction.CountIfs(Sheets("抽奖界⾯").Range("J:J"), _text_level) = 0 ThenSheets("抽奖界⾯").Range("E2") = 0End If'判断剩余参与⼈数是否⾜够抽奖If Sheets("抽奖界⾯").Range("F2") < Sheets("抽奖界⾯").Range("C2") ThenMsgBox ("剩余参与⼈数不⾜，请修改抽奖参数或停⽌抽奖！！！")Exit SubEnd If'判断该奖项是否已抽取完，提⽰操作⼈员是选择加抽还是变更抽奖奖项If Sheets("抽奖界⾯").Range("E2") >= lottery_target ThenQS_Return = MsgBox(text_level & "抽奖" & lottery_act & "已完成！" & _Chr(10) & "要变更奖项请选择是" & Chr(10) & "要再次抽取" & text_level & _"请选择否", vbYesNo + vbQuestion, "提⽰")If QS_Return = vbYes ThenMsgBox (text_level & "请重新选择奖项，输⼊抽奖次数和单次抽奖⼈数！")Exit SubElseSheets("抽奖界⾯").Range("D2") = Sheets("抽奖界⾯").Range("D2") + _Sheets("抽奖界⾯").Range("E2")End IfEnd If'清空抽奖滚动区域Sheets("抽奖界⾯").Range(Range("B6"), Range("F15")).ClearContentsnum_agent = Sheets("抽奖界⾯").Range("F2")'字典赋值Set dict_id = CreateObject("Scripting.Dictionary")For i = 1 To num_agentdict_id(i) = Sheets("⼈员名单").Cells(i + 2, 8)Nextnum = Sheets("抽奖界⾯").Range("C2")'持续滚动抽奖界⾯，等待点击抽奖后停⽌DoSet d = CreateObject("Scripting.Dictionary")Set e = CreateObject("Scripting.Dictionary")For j = 1 To numDoa = Int(Rnd * num_agent) + 1Loop Until Not e.Exists(a)d(j) = dict_id(a)e(a) = dict_id(a)NextFor m = 1 To 10For n = 1 To 5If n + (m - 1) * 5 > num ThenExit ForElseSheets("抽奖界⾯").Cells(m + 5, n + 1) = d(n + (m - 1) * 5)DoEvents '将控制权传给操作系统，实现滚动的同时可以点击抽奖按钮，⾮常关键！！！End IfNextNextLoop Until Flag = FalseEnd SubSub 抽奖()If Not Flag ThenMsgBox ("请先点击准备按钮，再开始抽奖！！！")Exit SubEnd IfFlag = False '停⽌抽奖滚动，中奖⼈员确定Set f = CreateObject("Scripting.Dictionary")text_level = Sheets("抽奖界⾯").Range("A2")Sheets("抽奖界⾯").Range("E2") = Sheets("抽奖界⾯").Range("E2") + 1 '已抽取次数+1lottery_act = Sheets("抽奖界⾯").Range("E2") '已抽取次数，后⾯需要判断是否提⽰抽奖完成num = Application.WorksheetFunction.CountA(Sheets("抽奖界⾯").Range("B6:F15"))num_exist = Sheets("抽奖界⾯").Range("G2")'将新中奖⼈员信息添加⾄公⽰区域末尾For i = 1 To numSheets("抽奖界⾯").Cells(2 + num_exist + i, 10) = text_levelSheets("抽奖界⾯").Cells(2 + num_exist + i, 11) = lottery_actSheets("抽奖界⾯").Cells(2 + num_exist + i, 12) = d(i)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 13) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 2, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 14) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 3, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 15) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 4, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 16) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 5, False)Next'将所有中奖⼈员存放⾄字典For i = 1 To num_exist + numIf i <= num Thenf(i) = Sheets("抽奖界⾯").Range(Cells(num_exist + i + 2, 10), _Cells(num_exist + i + 2, 16))Elsef(i) = Sheets("抽奖界⾯").Range(Cells(i + 2 - num, 10), Cells(i + 2 - num, 16))End IfNextSheets("抽奖界⾯").Range(Cells(3, 10), Cells(num_exist + num + 3, 16)).ClearContentsSheets("抽奖界⾯").[J3].Resize(f.Count, 7).Value = _Application.Transpose(Application.Transpose(f.items))'奖项抽取完成后提⽰⼈员变更参数If lottery_act = Sheets("抽奖界⾯").Range("D2") ThenMsgBox (text_level & "抽取" & lottery_act & "次已完成，请变更抽奖奖项和次数")End If'更新待抽奖⼈员名单，实现不重复抽奖num_agent = Sheets("抽奖界⾯").Range("F2")Application.ScreenUpdating = False '屏幕刷新禁⽤，不展⽰清空数据过程Sheets("⼈员名单").SelectFor Each Key In edict_id.Remove (Key)NextSheets("⼈员名单").Range(Range("H3"), Range("H3").End(xlDown)).ClearContentsSheets("⼈员名单").[H3].Resize(dict_id.Count, 1).Value = _Application.Transpose(dict_id.items)Sheets("抽奖界⾯").SelectApplication.ScreenUpdating = True '屏幕刷新开启，为下⼀轮滚动抽奖做准备End Sub功能实现思路：通过随机函数Rnd产⽣[0,1)的随机数，再乘以当前参与⼈数放⼤，实现随机抽奖通过字典的Exists⽅法判断是否重复，实现去重抽奖定义模块变量，实现⼈员滚动和抽奖的分离DoEvents语句将控制权传给操作系统，实现滚动的同时可以点击抽奖按钮，是实现抽奖屏幕滚动更新的关键最初以遍历的⽅式回填数据，发现参与⼈数上万时明显卡顿，改⽤字典的items⽅法回填数据（⼀维数据回填到列：Application.Transpose(dict.items)，⼆维数据回填到列：Application.Transpose(Application.Transpose(dict.items))）。
