公务员期刊网 论文中心 正文

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

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

摘要:使用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.

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