高中地理選課分班派位系統(tǒng)設(shè)計(jì)實(shí)現(xiàn)

前言：想要寫(xiě)出一篇引人入勝的文章？我們特意為您整理了高中地理選課分班派位系統(tǒng)設(shè)計(jì)實(shí)現(xiàn)范文，希望能給你帶來(lái)靈感和參考，敬請(qǐng)閱讀。

摘要：使用ExcelVBA可以很容易編寫(xiě)出電腦派位分班系統(tǒng)，采用二次隨機(jī)，并加入家長(zhǎng)抽簽互動(dòng)流程，代碼易查看，實(shí)現(xiàn)公平的隨機(jī)派位分班，可解決分班過(guò)程中公平、合理的問(wèn)題。

關(guān)鍵詞：高中地理分班；電腦派位分班；VBA程序設(shè)計(jì) 

1設(shè)計(jì)背景

江蘇省2021年開(kāi)始實(shí)行新的高考政策，考生選科組合人數(shù)最高的是物地生，其次是史地生、史地政，選考地理的考生人數(shù)達(dá)到了80%以上。一些規(guī)模比較大的學(xué)校，物生地的班級(jí)有幾十個(gè)，使用ExcelVBA可以很容易編寫(xiě)出電腦派位分班系統(tǒng)，實(shí)現(xiàn)公平的隨機(jī)派位分班。

2設(shè)計(jì)思路

如圖1所示，第1步，將需要派位分班的學(xué)生信息收集完整，按照?qǐng)?bào)名序號(hào)、姓名、性別及家長(zhǎng)信息放入一個(gè)Excel表中，電腦派位分班原始信息收集完成；第2步，利用隨機(jī)函數(shù)給每個(gè)學(xué)生生成一個(gè)隨機(jī)號(hào)，這個(gè)隨機(jī)號(hào)是電腦隨機(jī)生成，采用程序控制，保證每個(gè)學(xué)生不同；第3步，通過(guò)擲硬幣或者找家長(zhǎng)抽簽的方式，確定錄取的方式，兩種選擇會(huì)導(dǎo)致結(jié)果不相同；第4步，按照家長(zhǎng)抽簽確定的順序排序派位分班為使程序更完善，采用了兩次隨機(jī)。

3程序制作過(guò)程

3.1制作加密動(dòng)畫(huà)界面

打開(kāi)Excel，打開(kāi)VBA，插入一個(gè)窗體，加入美化的圖片，一般為學(xué)校的大場(chǎng)景照片。給窗體設(shè)置密碼，用戶驗(yàn)證密碼后，窗體設(shè)置5秒倒計(jì)時(shí)消失。

3.2主窗體設(shè)計(jì)

3.2.1準(zhǔn)備學(xué)生的原始數(shù)據(jù)將需要派位分班的學(xué)生信息收集后，按照?qǐng)?bào)名序號(hào)、姓名、性別及家長(zhǎng)信息放入Excel表中，這里加入了兩次生成隨機(jī)數(shù)，兩次排序，杜絕作弊。表頭加入第一次隨機(jī)、第二次隨機(jī)、錄取順序3列，后續(xù)操作出現(xiàn)的數(shù)據(jù)都在此3列。右側(cè)為操作區(qū)，基本功能都在此實(shí)現(xiàn)。

3.2.2查詢窗口的實(shí)現(xiàn)程序在派位的過(guò)程中，需要在每次操作的間隙，向家長(zhǎng)展示個(gè)別學(xué)生的基本信息和生成的數(shù)據(jù)。在此做了一個(gè)查詢窗體，輸入學(xué)生的報(bào)名信息，查詢出相關(guān)的數(shù)據(jù)，實(shí)現(xiàn)的核心代碼如下：3.2.3生成不相同8位隨機(jī)數(shù)的實(shí)現(xiàn)此程序關(guān)鍵是實(shí)現(xiàn)給每個(gè)學(xué)生生成一個(gè)8位數(shù)的不相同的均勻分布的隨機(jī)數(shù)，為了實(shí)現(xiàn)此功能，程序使用了Scripting.Dictionary字典對(duì)象來(lái)實(shí)現(xiàn)此功能，Scripting.Dictionary組件創(chuàng)建了類似于Key索引對(duì)應(yīng)Value值的字典對(duì)象，在其內(nèi)部提供了快速索引訪問(wèn)的機(jī)制，通過(guò)Key可以直接索引至指定的Value，比遍歷二維數(shù)組更加有效。核心代碼如下：EndSub

3.2.4按照生成的隨機(jī)數(shù)排序?yàn)楸ＷC公平公正，可由家長(zhǎng)或者監(jiān)督員抽簽或者擲硬幣確定排序順序。排序的核心代碼：繼續(xù)生成第二次隨機(jī)數(shù)，代碼復(fù)用，和第一次隨機(jī)數(shù)代碼類似，不再提供。

3.2.5確定錄取順序由家長(zhǎng)抽簽，確定派位分班順序，確定順序后，點(diǎn)擊相應(yīng)的按鈕，按照順序進(jìn)行派位分班。派位完成后，名單保存導(dǎo)出并打印，如果操作過(guò)程有誤，可以重置程序再次開(kāi)始。

4結(jié)語(yǔ)

程序可自定義排位班級(jí)類別，派位班級(jí)人數(shù)，也可以加入多次排序，確保學(xué)生完全隨機(jī)。程序容易移植和擴(kuò)展功能，不僅僅可用于高中地理分班，可廣泛應(yīng)用于需要隨機(jī)搖號(hào)的各種入學(xué)、分班場(chǎng)景。采用ExcelVBA編寫(xiě)程序和界面，代碼易公開(kāi)，可以隨時(shí)接受檢查監(jiān)督。和派位搖號(hào)流程相結(jié)合，杜絕人為因素干擾，可做到公開(kāi)、公平、公正。

參考文獻(xiàn)

[1]省教育廳關(guān)于2021年擬在江蘇招生的普通高校本科專業(yè)（類）選考科目要求的公告[EB/OL].2019.

[2]張小剛.電腦派位錄取程序的原理及其編寫(xiě)[J].中國(guó)教育信息化,2008,(22):60.

[3]任宇寧.基于ExcelVBA抽簽程序的設(shè)計(jì)與實(shí)現(xiàn)[J].電子技術(shù)與軟件工程,2018,(11):66.

作者：陳輝 單位：邳州市第四中學(xué)