高中地理選課分班派位系統(tǒng)設(shè)計(jì)實(shí)現(xiàn)
前言：想要寫出一篇引人入勝的文章？我們特意為您整理了高中地理選課分班派位系統(tǒng)設(shè)計(jì)實(shí)現(xiàn)范文，希望能給你帶來靈感和參考，敬請閱讀。
摘要：使用ExcelVBA可以很容易編寫出電腦派位分班系統(tǒng)，采用二次隨機(jī)，并加入家長抽簽互動流程，代碼易查看，實(shí)現(xiàn)公平的隨機(jī)派位分班，可解決分班過程中公平、合理的問題。
關(guān)鍵詞：高中地理分班；電腦派位分班；VBA程序設(shè)計(jì)
1設(shè)計(jì)背景
江蘇省2021年開始實(shí)行新的高考政策，考生選科組合人數(shù)最高的是物地生，其次是史地生、史地政，選考地理的考生人數(shù)達(dá)到了80%以上。一些規(guī)模比較大的學(xué)校，物生地的班級有幾十個，使用ExcelVBA可以很容易編寫出電腦派位分班系統(tǒng)，實(shí)現(xiàn)公平的隨機(jī)派位分班。
2設(shè)計(jì)思路
如圖1所示，第1步，將需要派位分班的學(xué)生信息收集完整，按照報(bào)名序號、姓名、性別及家長信息放入一個Excel表中，電腦派位分班原始信息收集完成；第2步，利用隨機(jī)函數(shù)給每個學(xué)生生成一個隨機(jī)號，這個隨機(jī)號是電腦隨機(jī)生成，采用程序控制，保證每個學(xué)生不同；第3步，通過擲硬幣或者找家長抽簽的方式，確定錄取的方式，兩種選擇會導(dǎo)致結(jié)果不相同；第4步，按照家長抽簽確定的順序排序派位分班為使程序更完善，采用了兩次隨機(jī)。
3程序制作過程
3.1制作加密動畫界面
打開Excel，打開VBA，插入一個窗體，加入美化的圖片，一般為學(xué)校的大場景照片。給窗體設(shè)置密碼，用戶驗(yàn)證密碼后，窗體設(shè)置5秒倒計(jì)時消失。
3.2主窗體設(shè)計(jì)
3.2.1準(zhǔn)備學(xué)生的原始數(shù)據(jù)將需要派位分班的學(xué)生信息收集后，按照報(bào)名序號、姓名、性別及家長信息放入Excel表中，這里加入了兩次生成隨機(jī)數(shù)，兩次排序，杜絕作弊。表頭加入第一次隨機(jī)、第二次隨機(jī)、錄取順序3列，后續(xù)操作出現(xiàn)的數(shù)據(jù)都在此3列。右側(cè)為操作區(qū)，基本功能都在此實(shí)現(xiàn)。
3.2.2查詢窗口的實(shí)現(xiàn)程序在派位的過程中，需要在每次操作的間隙，向家長展示個別學(xué)生的基本信息和生成的數(shù)據(jù)。在此做了一個查詢窗體，輸入學(xué)生的報(bào)名信息，查詢出相關(guān)的數(shù)據(jù)，實(shí)現(xiàn)的核心代碼如下：3.2.3生成不相同8位隨機(jī)數(shù)的實(shí)現(xiàn)此程序關(guān)鍵是實(shí)現(xiàn)給每個學(xué)生生成一個8位數(shù)的不相同的均勻分布的隨機(jī)數(shù)，為了實(shí)現(xiàn)此功能，程序使用了Scripting.Dictionary字典對象來實(shí)現(xiàn)此功能，Scripting.Dictionary組件創(chuàng)建了類似于Key索引對應(yīng)Value值的字典對象，在其內(nèi)部提供了快速索引訪問的機(jī)制，通過Key可以直接索引至指定的Value，比遍歷二維數(shù)組更加有效。核心代碼如下：EndSub
3.2.4按照生成的隨機(jī)數(shù)排序?yàn)楸ＷC公平公正，可由家長或者監(jiān)督員抽簽或者擲硬幣確定排序順序。排序的核心代碼：繼續(xù)生成第二次隨機(jī)數(shù)，代碼復(fù)用，和第一次隨機(jī)數(shù)代碼類似，不再提供。
3.2.5確定錄取順序由家長抽簽，確定派位分班順序，確定順序后，點(diǎn)擊相應(yīng)的按鈕，按照順序進(jìn)行派位分班。派位完成后，名單保存導(dǎo)出并打印，如果操作過程有誤，可以重置程序再次開始。
4結(jié)語
程序可自定義排位班級類別，派位班級人數(shù)，也可以加入多次排序，確保學(xué)生完全隨機(jī)。程序容易移植和擴(kuò)展功能，不僅僅可用于高中地理分班，可廣泛應(yīng)用于需要隨機(jī)搖號的各種入學(xué)、分班場景。采用ExcelVBA編寫程序和界面，代碼易公開，可以隨時接受檢查監(jiān)督。和派位搖號流程相結(jié)合，杜絕人為因素干擾，可做到公開、公平、公正。
參考文獻(xiàn)
[1]省教育廳關(guān)于2021年擬在江蘇招生的普通高校本科專業(yè)（類）選考科目要求的公告[EB/OL].2019.
[2]張小剛.電腦派位錄取程序的原理及其編寫[J].中國教育信息化,2008,(22):60.
[3]任宇寧.基于ExcelVBA抽簽程序的設(shè)計(jì)與實(shí)現(xiàn)[J].電子技術(shù)與軟件工程,2018,(11):66.
作者：陳輝 單位：邳州市第四中學(xué)
