用VB編寫抽簽軟件

張桐　蘭清昭

摘要：應用VB6.0編寫抽簽應用軟件，實現(xiàn)了利用計算機代替人工完成抽簽過程的目的，大大減輕了在樣本容量較大時人工抽簽的負擔，保證了抽簽的公平性。軟件手動抽簽與自動抽簽兼可，具備導出抽簽記錄，在不改動抽簽源文件的情況下臨時更改抽簽名單的功能。

關(guān)鍵詞：VB6.0；抽簽軟件；自動化

中圖分類號：TP311 文獻標識碼：A 文章編號：1009-3044（2016）23-0077-02

Abstract： Using VB6.0 to write the draw software， realizing using computer to replace artificial work to complete the purpose of the draw process， greatly reducing the burden of artificial draw when sample size is bigger， to ensure the fairness of the draw. Software supports manual and automatic draw， at the same time， it has the function of saving draw record， temporarily changing draw list without changes the source files.

Key words： Visual Basic 6.0； draw software； automation

1 軟件編寫目的

在日常生活中我們常常需要用抽簽來解決實際問題，比如在大學課堂，老師可以用隨機抽簽的方式來查看學生的出勤情況；在文藝晚會上，主持人可以用抽簽的方式對觀眾進行獎品發(fā)送。而傳統(tǒng)的人工抽簽使得人力在處理大的樣本容量時顯得力不從心，由此，本軟件以公平、公正、簡潔、高效為編寫原則，希望解決這一難題。

2 程序運行流程及實現(xiàn)代碼

1）啟動軟件時，軟件主界面只提供一個獲得焦點的可操作按鈕“選擇文件”，如圖1所示，單擊其可引導用戶利用彈出的對話框選擇文本格式（*.txt）的抽簽名單文件。

2）按提示選擇抽簽名單文本文件后會自動彈出如圖2所示的對話框，讓用戶查看抽簽名單是否正確，正確則點擊“確定抽簽數(shù)據(jù)”按鈕就可返回至抽簽軟件主界面；如需對名單進行修改，則可點擊“編輯抽簽數(shù)據(jù)”按鈕出現(xiàn)如圖3所示的對話框，在該對話框中可完成在不改變抽簽數(shù)據(jù)源文件的情況下臨時修改抽簽名單的需求；如果發(fā)現(xiàn)所選名單錯誤，則可在點擊“確認”按鈕后進入抽簽主界面時重新選擇抽簽文件。

圖2 參與抽簽名單確認與修改 圖3 臨時修改抽簽名單

選擇抽簽名單文件的實現(xiàn)：

使用可返回文件地址和文件名的通用對話框控件進行文件篩選并導入抽簽數(shù)據(jù)，對話框控件的過濾器設置為：【"文本文檔（*.txt）"|*.txt|"所有文件（*.*）"|*.*】；為了避免用戶的錯誤操作，通過設置按鈕的Enabled屬性，在不同條件下控制用戶的操作行為。同時，在用戶臨時編輯抽簽名單時，為了幫助用戶理解操作界面上各按鈕的功能，設置了該操作界面“刪除”和“增加”按鈕的ToolTipText屬性，如圖3所示是鼠標指針指向編輯抽簽數(shù)據(jù)對話框中的“刪除”按鈕時，其ToolTipText值為【從抽簽名單編輯框中刪除項目】；將“增加”按鈕的ToolTipText屬性值設置為【向抽簽名單編輯框中添加項目】。在“增加”按鈕操作中，使用InputBox函數(shù)引導用戶臨時增加抽簽條目，設置其為【info = InputBox（"請輸入需要增加的項目"， "增加"， ""）】；在“刪除”按鈕的功能中，提供了多項選擇并刪除的功能，利用【For … next】循環(huán)語句批量刪除所選項，利用MsgBox函數(shù)提醒用戶的錯誤操作。

3）程序運行時提供了兩種操作模式和兩種抽簽模式，分別為“手動抽簽”，“自動抽簽”；“重復抽簽”，“條件抽簽”。

軟件默認為手動、重復抽簽模式，即確定抽簽名單后，單擊“開始抽簽”，待抽簽名單循環(huán)一周后，原按鈕自動轉(zhuǎn)變?yōu)椤巴Ｖ钩楹灐卑粹o并激活，以此模式進行抽簽，每一次的抽簽名單都不變，且都與確認抽簽名單一致。

主界面上“開始抽簽”按鈕的單擊事件過程代碼設計思想如下：

利用條件語句【If … Then … Else】，設置按鈕功能替換【Timer1.Enabled = Not Timer1.Enabled】；【If Command2.Caption = "開始抽簽" Then Command2.Caption = "停止抽簽"】；記錄抽簽次數(shù)【Text1.Text = "第" & z + 1 & "次抽簽結(jié)果為" & vbCrLf & Text2.Text & vbCrLf & Text1.Text】；【z = z + 1】；利用計時器Timer1進行文本框Text2框內(nèi)的名單替換和記錄名單循環(huán)次數(shù)。

在手動、重復抽簽模式的基礎上增設了自動、條件抽簽模式，當然，兩種操作模式和抽簽模式是可以隨意搭配的，通過選擇抽簽模式按鈕即可激活對應的抽簽模式。右鍵單擊“開始抽簽”按鈕即可激活自動抽簽功能。設置此功能的初衷是為了解決大批量抽簽時，人工操作的難題。同時，條件抽簽可在特定場合下使用，比如在有獎抽簽環(huán)節(jié)，獲獎者便不能進入下一輪的抽簽名單，于是在條件抽簽模式下，系統(tǒng)會自動將上一輪的獲獎者名單刪去。

自動、條件篩選抽簽模式實現(xiàn)思想如下：

如果要切換回重復篩選模式，則在系統(tǒng)判斷選擇模式為重復篩選模式后，將確認的抽簽名單重新載入抽簽列表框即可。

自動抽簽功能的實現(xiàn)，模仿了人工抽簽的模式，即隨機產(chǎn)生時間段，按下停止抽簽按鈕，得到抽簽結(jié)果，再次按下開始抽簽按鈕，進行下一次抽簽。當達到要求的次數(shù)b時告知用戶抽簽結(jié)束。所以，此功能應用了計時器控件Timer2和隨機數(shù)命令【Randomize】，激活按鈕單擊事件過程——【Command2_Click】，由MsgBox函數(shù)告知用戶，代碼如下：

3 抽簽軟件開發(fā)意義

本軟件的成功編寫對解決實際生活問題有極大意義。既可以滿足用戶對小樣本容量手動抽簽的需求，又可以節(jié)省用戶體力，進行大樣本容量的批量抽簽。同時，在不改動源文件的條件下還可臨時增、刪抽簽名單，省去了用戶對源文件數(shù)據(jù)的處理步驟。軟件特有的條件抽簽模式使本軟件在實際生活中的適用場合更加廣泛。抽簽模式強制性要求循環(huán)一周后隨機抽簽，保證了人工抽簽不能保證的公平性，同時，軟件自動記錄抽簽結(jié)果，支持抽簽結(jié)果的保存，加強了用戶在使用過程中的便捷性。

參考文獻：

[1] 王建忠. Visual Basic 程序設計[M]. 北京： 科學出版社， 2012.

[2] 方波， 李亞男， 劉加加， 等. VBA在考試系統(tǒng)中的運用[J]. 電腦知識與技術(shù)， 2015（8）：48-49.