亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        基于Excel VBA的講課競賽抽簽系統(tǒng)設(shè)計與實現(xiàn)

        2016-08-05 03:19:48周志軍竇志強朱春曉
        中國管理信息化 2016年11期
        關(guān)鍵詞:按鈕信息系統(tǒng)

        周志軍,竇志強,朱春曉

        (中國人民解放軍信息工程大學(xué) 訓(xùn)練部考試中心,鄭州 450001)

        基于Excel VBA的講課競賽抽簽系統(tǒng)設(shè)計與實現(xiàn)

        周志軍,竇志強,朱春曉

        (中國人民解放軍信息工程大學(xué)訓(xùn)練部考試中心,鄭州 450001)

        通過組織講課競賽等形式不斷提高青年教師教學(xué)能力,是高等院校確保人才培養(yǎng)質(zhì)量穩(wěn)步提升的重要保證。在高校講課競賽等活動中,需要以公正、快捷、直觀的方式對參加人員、講課題目進行抽簽,文章通過實例介紹基于Excel VBA設(shè)計講課競賽抽簽系統(tǒng)的實現(xiàn)方法。

        VBA;講課競賽;抽簽系統(tǒng);洗牌算法

        1 引言

        在高等院校中,提高青年教師教學(xué)能力是不斷提升人才培養(yǎng)質(zhì)量的重要保證。組織以老帶新、崗位練兵、講課競賽等形式的教學(xué)實踐活動成為促進青年教師提高教學(xué)能力的有效手段。在講課競賽活動中,如何保證分組抽簽環(huán)節(jié)的公開、公正、透明,成為參賽人員關(guān)注的焦點。由于通用抽簽軟件無法滿足特定的抽簽規(guī)則,對抽簽數(shù)據(jù)格式和內(nèi)容的具體需求存在差異,在解放軍信息工程大學(xué)校2014年組織的青年教員講課競賽活動中,為了高效、公正、透明地進行抽簽,自行開發(fā)了講課競賽抽簽系統(tǒng)。在全年度的競賽活動中,抽簽系統(tǒng)發(fā)揮了重要作用。

        2 需求分析

        在比賽前,按照競賽規(guī)則,全校各教研室所有符合條件的青年教員均列入?yún)①悅溥x人員名單,每人準(zhǔn)備數(shù)個講課題目。按照學(xué)科類別,將所有教研室分為4個大組,全年組織多輪次講課比賽,每輪次從每組人員中抽取相同數(shù)量的選手參賽,講課題目和出場順序隨機確定。同時,為了確保青年教員廣泛參與,需要實現(xiàn)全年每個教研室青年教員參賽比例和覆蓋面基本相當(dāng)。在此規(guī)則下,抽簽系統(tǒng)既要保證公平、公開,又須符合各項比例要求。系統(tǒng)需要實現(xiàn)以下功能:

        (1)按組別抽選參賽選手和講課題目。

        (2)按教研室人員比例進行抽選。

        (3)參賽人員和講課題目隨機選定。

        (4)抽中人員出場順序隨機確定。

        (5)抽選結(jié)果填入表格即時打印。

        (6)生成各組參賽選手基本信息表用于講課競賽工作用表。

        3 設(shè)計思路

        VBA是Visual Basic的一種宏語言,是微軟開發(fā)出來在其桌面應(yīng)用程序中執(zhí)行通用的自動化(OLE)任務(wù)的編程語言。主要能用來擴展 Windows的應(yīng)用程序功能,特別是 Microsoft Office軟件。也可說是一種應(yīng)用程序視覺化的Basic腳本。Office軟件中的Word、Excel、Access、Powerpoint都可以利用VBA使這些軟件的應(yīng)用效率更高。VBA不但繼承了VB的開發(fā)機制,而且VBA還具有與VB相似的語言結(jié)構(gòu),它們的集成開發(fā)環(huán)境IDE也幾乎相同。

        由于教員和選題信息是借助Excel來完成,因此,在 Excel文件中嵌入VBA程序即可直接實現(xiàn)隨機抽簽。

        在數(shù)據(jù)準(zhǔn)備階段,需將所有教員、分組、課程、選題等信息匯總在一個統(tǒng)一的Excel表格中。在每次抽選時根據(jù)教研室所在組別確定選題抽選范圍,利用隨機函數(shù)在抽選范圍內(nèi)隨機確定選手和題目。在抽選時需檢測所抽選教員是否已在之前被選中過,不能重復(fù)抽選同一教員。對檢測通過的教員,標(biāo)記當(dāng)前教員本次已被抽選,避免后續(xù)抽選過程中被重復(fù)抽選。為被選中教員利用隨機函數(shù)確定出場順序,抽選完成之后保存并顯示抽選結(jié)果。利用打印按鈕對抽選結(jié)果信息表進行打印,各教學(xué)單位抽簽代表簽字確認,并同步將各組參賽選手基本信息和選題信息從總表中提取出來,生成參賽選手基本信息表用于講課競賽工作用表。

        系統(tǒng)程序邏輯結(jié)構(gòu)圖如圖1所示。

        圖1程序邏輯結(jié)構(gòu)

        4 軟件實現(xiàn)

        4.1程序界面

        由于系統(tǒng)功能單一而明確,界面設(shè)計應(yīng)立足實用,盡量簡潔。在系統(tǒng)界面上設(shè)置必備的選項和按鈕。選項用于選擇抽選組別,按鈕分別設(shè)置“抽簽”、“重置”、“確定”、“打印”?!俺楹灐卑粹o用于實現(xiàn)抽簽功能;“重置”按鈕用于重置各項參數(shù),使抽簽操作可重復(fù);“確定”按鈕用于確認抽簽結(jié)果,將抽簽結(jié)果匯總至表格,并提取抽中的教員和題目信息填入?yún)①愡x手基本信息表;“打印”按鈕用于打印抽簽結(jié)果表格,供抽簽人員現(xiàn)場確認使用。在按鈕下方設(shè)置文本域,用于實時顯示各組抽簽結(jié)果,界面如圖2所示。

        圖2系統(tǒng)界面

        4.2主要功能實現(xiàn)

        抽簽的核心在于隨機抽取教員和題目、隨機確定出場順序。由于教員、課程、選題等信息匯總在一個Excel表中,隨機抽取教員和題目即可通過隨機選擇表格行號來實現(xiàn)。使用Randomize函數(shù)隨機選擇行號的實現(xiàn)是很簡單的,關(guān)鍵點在于確定選擇范圍。不同教員歸屬于不同的教研室,不同教研室分布在不同的組中。使抽選結(jié)果符合抽選規(guī)則的過程便轉(zhuǎn)化為使抽選范圍符合競賽規(guī)則的過程。為了合理確定抽選范圍,只需將備選信息匯總表依次按照分組、教研室、教員、課程、選題的順序排序,便可按照抽選要求確定一個連續(xù)的行號范圍作為抽選范圍賦值給邊界變量。

        Private Sub confirmRange()'確定抽選范圍

        Dim i As Integer

        totalT=0'備選教研室選題總行數(shù)

        startRow=0'備選教研室選題起始行

        For i=2 To totalRow'從匯總表計算備選教研室jID抽選行號范圍

        If Cells(i,20).Value=jID Then

        totalT=totalT+1

        If totalT=1 Then

        startRow=i

        Else

        End If

        Else

        End If

        Next i

        End Sub

        確定抽選范圍后,即可隨機抽選教員和選題:

        confirmRange

        Randomize

        iRnd=Int(Rnd*totalT+startRow)'所抽選行號

        進行沖突檢測后,將iRnd行的教員、課程、選題信息等所需提取的信息賦予二維數(shù)組tInfo(x,y)的第二維變量。

        選題信息抽選完畢后,需要對出場順序進行隨機,若直接使用隨機數(shù)產(chǎn)生出場序號,可能會出現(xiàn)出場序號重復(fù)的情形。因此,采用洗牌算法對出場順序數(shù)組進行隨機的方法實現(xiàn)。

        Private Sub shuffle()'洗牌算法,隨機出場順序

        Dim tmp As Integer

        Dim i As Integer

        Dim j As Integer

        For i=1 To gpTotal'gpTotal為本組參賽人數(shù)

        tOrder(i)=i

        Next i

        Randomize

        For i=gpTotal To 1 Step-1

        j=Int(Rnd*i)+1

        tmp=tOrder(j)

        tOrder(j)=tOrder(i)

        tOrder(i)=tmp

        Next i

        End Sub

        對出場順序隨機洗牌之后將數(shù)組tOrder()的值順序賦予tInfo(x,y)的第一維變量,再將tInfo(x,y)按照第一維變量值的順序輸出第二維變量的內(nèi)容,即得到隨機出場順序后的抽簽結(jié)果。

        5 結(jié)論

        本程序經(jīng)過反復(fù)的修改和調(diào)試,運行結(jié)果達到了系統(tǒng)設(shè)計的目標(biāo)。以Excel作為數(shù)據(jù)源,既便于基礎(chǔ)數(shù)據(jù)整理,又不需進行數(shù)據(jù)轉(zhuǎn)換,開發(fā)調(diào)試效率可大大提高,運行效果直觀明了。VBA語法簡單易學(xué),基于Excel的VBA程序設(shè)計代碼簡潔、算法易懂,利用簡單實用的工具便可高效快捷地實現(xiàn)開發(fā)需求。使用VBA可以為Excel應(yīng)用程序開發(fā)很多新的功能或增強已有的功能,也使得用戶對各種數(shù)據(jù)的處理更加得心應(yīng)手,大大提高工作效率。實踐證明,利用Excel軟件和Excel VBA編程相結(jié)合,可高效解決很多日常工作中遇到的常見數(shù)據(jù)處理問題。

        主要參考文獻

        [1]魏汪洋.Excel VBA語法速查手冊[M].北京:化學(xué)工業(yè)出版社,2011.

        [2]孫紅梅.巧用VBA編程實現(xiàn)電大畢業(yè)生照片的批量查找[J].福建廣播電視大學(xué)學(xué)報,2014(1):85-88.

        [3]門珮玉.利用VBA編程搭建賽事自動計分系統(tǒng)[J].中國管理信息化,2014,17(20):87-89.

        10.3969/j.issn.1673-0194.2016.11.112

        TP317.3

        A

        1673-0194(2016)11-0187-04

        2016-03-15

        周志軍(1979-),男,河北石家莊人,解放軍信息工程大學(xué)訓(xùn)練部考試中心講師,主要研究方向:考務(wù)管理、考試理論。

        猜你喜歡
        按鈕信息系統(tǒng)
        哪個是門鈴真正的按鈕
        當(dāng)你面前有個按鈕
        Smartflower POP 一體式光伏系統(tǒng)
        WJ-700無人機系統(tǒng)
        ZC系列無人機遙感系統(tǒng)
        北京測繪(2020年12期)2020-12-29 01:33:58
        連通與提升系統(tǒng)的最后一塊拼圖 Audiolab 傲立 M-DAC mini
        訂閱信息
        中華手工(2017年2期)2017-06-06 23:00:31
        內(nèi)心不能碰的按鈕
        展會信息
        中外會展(2014年4期)2014-11-27 07:46:46
        沒Gmail按鈕 咱自己加等
        移動一族(2008年9期)2008-12-31 00:00:00
        国产成人精品日本亚洲专区6| 欧美最猛黑人xxxx黑人猛交| 国模欢欢炮交啪啪150| 久久久国产精品黄毛片| 午夜一级韩国欧美日本国产| 亚洲人妻无缓冲av不卡| 亚洲av中文字字幕乱码| 亚洲天堂av在线观看免费| 全亚洲最大的私人影剧院在线看| 国产高清在线观看av片 | 少妇高潮精品在线观看| 国产在线视频91九色| 天天躁夜夜躁狠狠躁婷婷| 天堂а在线中文在线新版| 欧美最猛黑人xxxxx猛交| 揄拍成人国产精品视频| 99久久久精品免费香蕉| 亚洲影院在线观看av| 色综合久久中文综合网亚洲 | 亚洲精品第一页在线观看| 在线精品亚洲一区二区动态图| 中国人妻被两个老外三p| 韩国精品一区二区三区| 国产成av人在线观看| 久久久中文字幕日韩精品| 午夜成人理论福利片| 极品av麻豆国产在线观看| 中文字幕在线日韩| 国产一区二区三区再现| 亚洲国产精品综合久久网络| 精品人妻午夜一区二区三区四区| 亚洲欧洲日本综合aⅴ在线| 久热这里只有精品99国产| 一区二区视频观看在线| 蜜臀av国内精品久久久人妻| av在线一区二区三区不卡| 一区二区三区中文字幕p站| 国产国语熟妇视频在线观看| 成人国产在线观看高清不卡| 国产天堂av在线播放资源| 亚洲av无码一区二区三区人|