高中地理选课分班派位系统设计实现

前言：想要写出一篇引人入胜的文章？我们特意为您整理了高中地理选课分班派位系统设计实现范文，希望能给你带来灵感和参考，敬请阅读。

摘要：使用ExcelVBA可以很容易编写出电脑派位分班系统，采用二次随机，并加入家长抽签互动流程，代码易查看，实现公平的随机派位分班，可解决分班过程中公平、合理的问题。

关键词：高中地理分班；电脑派位分班；VBA程序设计 

1设计背景

江苏省2021年开始实行新的高考政策，考生选科组合人数最高的是物地生，其次是史地生、史地政，选考地理的考生人数达到了80%以上。一些规模比较大的学校，物生地的班级有几十个，使用ExcelVBA可以很容易编写出电脑派位分班系统，实现公平的随机派位分班。

2设计思路

如图1所示，第1步，将需要派位分班的学生信息收集完整，按照报名序号、姓名、性别及家长信息放入一个Excel表中，电脑派位分班原始信息收集完成；第2步，利用随机函数给每个学生生成一个随机号，这个随机号是电脑随机生成，采用程序控制，保证每个学生不同；第3步，通过掷硬币或者找家长抽签的方式，确定录取的方式，两种选择会导致结果不相同；第4步，按照家长抽签确定的顺序排序派位分班为使程序更完善，采用了两次随机。

3程序制作过程

3.1制作加密动画界面

打开Excel，打开VBA，插入一个窗体，加入美化的图片，一般为学校的大场景照片。给窗体设置密码，用户验证密码后，窗体设置5秒倒计时消失。

3.2主窗体设计

3.2.1准备学生的原始数据将需要派位分班的学生信息收集后，按照报名序号、姓名、性别及家长信息放入Excel表中，这里加入了两次生成随机数，两次排序，杜绝作弊。表头加入第一次随机、第二次随机、录取顺序3列，后续操作出现的数据都在此3列。右侧为操作区，基本功能都在此实现。

3.2.2查询窗口的实现程序在派位的过程中，需要在每次操作的间隙，向家长展示个别学生的基本信息和生成的数据。在此做了一个查询窗体，输入学生的报名信息，查询出相关的数据，实现的核心代码如下：3.2.3生成不相同8位随机数的实现此程序关键是实现给每个学生生成一个8位数的不相同的均匀分布的随机数，为了实现此功能，程序使用了Scripting.Dictionary字典对象来实现此功能，Scripting.Dictionary组件创建了类似于Key索引对应Value值的字典对象，在其内部提供了快速索引访问的机制，通过Key可以直接索引至指定的Value，比遍历二维数组更加有效。核心代码如下：EndSub

3.2.4按照生成的随机数排序为保证公平公正，可由家长或者监督员抽签或者掷硬币确定排序顺序。排序的核心代码：继续生成第二次随机数，代码复用，和第一次随机数代码类似，不再提供。

3.2.5确定录取顺序由家长抽签，确定派位分班顺序，确定顺序后，点击相应的按钮，按照顺序进行派位分班。派位完成后，名单保存导出并打印，如果操作过程有误，可以重置程序再次开始。

4结语

程序可自定义排位班级类别，派位班级人数，也可以加入多次排序，确保学生完全随机。程序容易移植和扩展功能，不仅仅可用于高中地理分班，可广泛应用于需要随机摇号的各种入学、分班场景。采用ExcelVBA编写程序和界面，代码易公开，可以随时接受检查监督。和派位摇号流程相结合，杜绝人为因素干扰，可做到公开、公平、公正。

参考文献

[1]省教育厅关于2021年拟在江苏招生的普通高校本科专业（类）选考科目要求的公告[EB/OL].2019.

[2]张小刚.电脑派位录取程序的原理及其编写[J].中国教育信息化,2008,(22):60.

[3]任宇宁.基于ExcelVBA抽签程序的设计与实现[J].电子技术与软件工程,2018,(11):66.

作者：陈辉 单位：邳州市第四中学