徐俏虹　樊潮

摘 要： 省計(jì)算機(jī)等級(jí)考試是浙江高校重要的一項(xiàng)考試?？忌嚓P(guān)考試信息匯總形成的上報(bào)數(shù)據(jù)庫(kù)一般是由二部分組成的，一部分為上機(jī)考試所形成的上報(bào)數(shù)據(jù)，一部分是理論考試所形成的上報(bào)數(shù)據(jù)。為了把省計(jì)算機(jī)等級(jí)考試的上機(jī)部分和理論部分整合成一個(gè)完整的上報(bào)數(shù)據(jù)，在研究上機(jī)考試所形成的上報(bào)數(shù)據(jù)自動(dòng)生成的基礎(chǔ)上，經(jīng)過(guò)新的編碼和檢驗(yàn)，實(shí)現(xiàn)了上報(bào)數(shù)據(jù)的自動(dòng)生成。改進(jìn)工作采用VBA編程實(shí)現(xiàn)，并正確地形成了上報(bào)數(shù)據(jù)的缺考庫(kù)。

關(guān)鍵詞： 計(jì)算機(jī)等級(jí)考試； VBA； 自動(dòng)生成； 缺考庫(kù)； 上報(bào)數(shù)據(jù)

中圖分類號(hào)：TP391 文獻(xiàn)標(biāo)志碼：B 文章編號(hào)：1006-8228（2013）07-43-03

0 引言

數(shù)據(jù)在任何時(shí)代都是很重要的，它具有時(shí)代意義和歷史意義，每一個(gè)時(shí)代的進(jìn)步和發(fā)展都會(huì)反映在各種各樣的數(shù)據(jù)中。

浙江省高校計(jì)算機(jī)等級(jí)考試是一項(xiàng)重要的考試，其結(jié)果需要形成一個(gè)上報(bào)數(shù)據(jù)。作者在文獻(xiàn)[1]中對(duì)上機(jī)考試部分成功實(shí)現(xiàn)了上報(bào)數(shù)據(jù)自動(dòng)生成。由于該考試分上機(jī)和筆試兩部分，為了將筆試部分的缺考情況同時(shí)反映在上報(bào)數(shù)據(jù)中，學(xué)校教務(wù)處需要匯總上機(jī)考試和筆試考試的缺考數(shù)據(jù)，為了減少人工數(shù)據(jù)整理的失誤和誤差，我們經(jīng)過(guò)不斷地嘗試和編制程序，在形成的上報(bào)數(shù)據(jù)中加入了筆試考試缺考情況，即對(duì)作者文獻(xiàn)[1]中的程序進(jìn)行了改進(jìn)，經(jīng)過(guò)嘗試和數(shù)據(jù)的檢驗(yàn)、測(cè)試，確定完全能夠形成正確的上報(bào)數(shù)據(jù)結(jié)果。

1 上報(bào)數(shù)據(jù)的研究

上報(bào)數(shù)據(jù)是一個(gè)DB格式的文件，并且是一個(gè)經(jīng)過(guò)加密的文件，所以直接把這個(gè)文件中的數(shù)據(jù)讀取出來(lái)使用是不可能的。經(jīng)過(guò)研究，我們?cè)谏蠄?bào)數(shù)據(jù)自動(dòng)生成系統(tǒng)實(shí)現(xiàn)的基礎(chǔ)上，采用Excel文件格式結(jié)合VB編程來(lái)形成上報(bào)數(shù)據(jù)，進(jìn)而自動(dòng)生成準(zhǔn)確的上報(bào)數(shù)據(jù)。這種辦法可以大大提高上報(bào)數(shù)據(jù)的準(zhǔn)確性，極大地減少人工操作。

2 具體實(shí)現(xiàn)過(guò)程

自動(dòng)生成上報(bào)數(shù)據(jù)的實(shí)現(xiàn)我們采用了VBA（Visual Basic for Applications），它是一種宏語(yǔ)言，能用來(lái)擴(kuò)展Excel的功能。

2.1 前期準(zhǔn)備

先把參加上機(jī)考試的考生所生成的壓縮包放在一個(gè)盤的根目錄中，如D：＼RAR，然后打開(kāi)開(kāi)始程序的運(yùn)行框，在其中輸入CMD回車進(jìn)入DOS狀態(tài)，進(jìn)入DOS環(huán)境后執(zhí)行CD＼回車后，再執(zhí)行CD D：＼RAR命令， 進(jìn)入D：＼RAR目錄后，執(zhí)行DIR*>F.TXT命令，把參加上機(jī)考試的考生準(zhǔn)考號(hào)形成上機(jī)考生數(shù)據(jù)F.TXT文本文件。

然后打開(kāi)上機(jī)考生數(shù)據(jù)F.TXT文件，把文本文件的內(nèi)容復(fù)制到WORD環(huán)境中，進(jìn)行上機(jī)考生數(shù)據(jù)編輯。上機(jī)考生數(shù)據(jù)是如圖1所示的以準(zhǔn)考證號(hào)為內(nèi)容的文件。

把“學(xué)校配置文件夾”中的本校的考生報(bào)名總庫(kù)解壓到本地硬盤上（ksXXX.db，XXX為學(xué)校代碼）[5]；打開(kāi)缺考錄入系統(tǒng)，導(dǎo)入本校的DB格式的全部考生數(shù)據(jù)。接下來(lái)把所有報(bào)名的考生數(shù)據(jù)全部導(dǎo)入上機(jī)和筆試都缺考系統(tǒng)，然后以EXCEL格式打開(kāi)文件，并存為EXCEL格式的文件。打開(kāi)這個(gè)EXCEL文件，因?yàn)榭値?kù)數(shù)據(jù)在sheet1表中，于是把上機(jī)考生F.TXT中的數(shù)據(jù)放在sheet2表中，先把A列所在的單元格設(shè)置為文本格式，以使生成的F.TXT文件中參加上機(jī)考生的準(zhǔn)考證號(hào)拷貝到A列時(shí)，能正常顯示準(zhǔn)考證號(hào)，而不是以科學(xué)計(jì)數(shù)法來(lái)顯示數(shù)據(jù)，數(shù)據(jù)匯總表如圖2所示。把理論缺考考生數(shù)據(jù)放在sheet3表中。

在圖2的顯示界面，添加“開(kāi)發(fā)工具”選項(xiàng)卡[3]，然后點(diǎn)擊開(kāi)發(fā)工具選項(xiàng)卡，打開(kāi)Visual Basic按鈕，就會(huì)出現(xiàn)VBA環(huán)境所示的界面。雙擊左邊窗口中的任一表，如sheet1，所顯示的代碼輸入窗口如圖3所示。

在圖3窗口空白處，輸入代碼，利用FOR循環(huán)和IF ELSE判斷語(yǔ)句來(lái)實(shí)現(xiàn)數(shù)據(jù)和篩選，以及比較而最終得到上機(jī)和筆試缺考的考生，從而生成上報(bào)數(shù)據(jù)。為了方便數(shù)據(jù)的最后生成，把RAR文件夾中的上機(jī)考生數(shù)據(jù)放置在sheet2表中，把理論缺考的數(shù)據(jù)放在sheet3表中，在打開(kāi)的窗口中直接輸入如下代碼：

Sub f（）

Dim ss1 As Integer '定義總表中的循環(huán)變量

Dim ss2 As Integer '定義實(shí)際上機(jī)表中的循環(huán)變量

Dim ss3 As Integer '定義理論缺考中的循環(huán)變量

For ss1=2 To 12

For ss2=2 To 5

'MsgBox "ss1" & Sheet1.Cells（ss1，1）.Value

‘MsgBox函數(shù)也稱為消息對(duì)話框[6]，用戶在使用這個(gè)函數(shù)后，可以很方便地查看當(dāng)看運(yùn)動(dòng)結(jié)果

‘進(jìn)而修改程序

If Sheet1.Cells（ss1， 1）.Value=Sheet2.Cells（ss2， 1）

.Value Then

'取總表sheet1中一個(gè)準(zhǔn)考證號(hào)與上機(jī)表sheet2中取一個(gè)準(zhǔn)考證號(hào)想比較，如果相同，取理論缺考表sheet3中一個(gè)準(zhǔn)考證號(hào)相比較

For ss3=2 To 5

If Sheet1.Cells（ss1，1）.Value=Sheet3.Cells（ss3，1）

.Value Then

'如果相同，那么置sheet1表中的理論缺考為‘是，上機(jī)缺考為‘否

Sheet1.Cells（ss1， 4）.Value="是"

Sheet1.Cells（ss1， 5）.Value="否"

GoTo 1 '轉(zhuǎn)到總表取下一個(gè)準(zhǔn)考證號(hào) 數(shù)據(jù)

Else '如果不與理論缺考表中的這個(gè)準(zhǔn)考證號(hào)相同

If ss3=5 Then '如果在理論缺考表中查詢結(jié)束還沒(méi)有查詢到

Sheet1.Cells（ss1，1）.Value="" '置表準(zhǔn)考證號(hào)為空

GoTo 1

End If

End If

Next

Else

If ss2=5 Then '如果在上機(jī)表中查詢結(jié)束還沒(méi)有查詢到

Sheet1.Cells（ss1， 5）.Value="是" '置上機(jī)缺考為‘是

For ss3=2 To 5

If Sheet1.Cells（ss1，1=Sheet3.Cells（ss3，1） Then

Sheet1.Cells（ss1， 4）.Value="是"

'置理論缺考為‘是

GoTo 1

Else

If ss3=5 Then '如果在理論缺考表中查詢結(jié)束還沒(méi)有查詢到

Sheet1.Cells（ss1，4）.Value="否" '置理論缺考為‘否

GoTo 1

End If

End If

Next

End If

End If

Next

1： Next

Exit Sub

在鼠標(biāo)光標(biāo)所處的位置單擊工具欄上的“運(yùn)行子過(guò)程/用戶窗體”按鈕，相應(yīng)的過(guò)程就會(huì)被運(yùn)行[4]，所以點(diǎn)擊當(dāng)前的代碼窗口后，再點(diǎn)擊菜單欄中的“運(yùn)行子程序/用戶窗體”，或是直接按F5，就會(huì)運(yùn)行上面的代碼，得到缺考考生數(shù)據(jù)表，如圖4所示。

在圖4所示的數(shù)據(jù)中，有準(zhǔn)考證號(hào)為空的考生，需要把這些數(shù)據(jù)刪除，可以利用這個(gè)小程序：

'判斷為空行就刪除

Sub ff（）

Dim ss1 As Integer

For ss1=2 To 9

If Sheet1.Cells（ss1， 1）.Value="" Then

Sheet2.Rows（ss1）.Delete

End If

Next

End Sub[1]

經(jīng)過(guò)檢驗(yàn)，所得到的缺考考生數(shù)據(jù)準(zhǔn)確無(wú)誤。該系統(tǒng)的應(yīng)用節(jié)省了人工操作的時(shí)間，有效地減少人工輸入數(shù)據(jù)時(shí)所可能產(chǎn)生的錯(cuò)誤。把這些數(shù)據(jù)導(dǎo)入缺考庫(kù)，生成DB文件，就可以上報(bào)。把這些程序錄制成宏，然后通過(guò)宏的運(yùn)行即可快捷地執(zhí)行相關(guān)操作[2]。

3 結(jié)束語(yǔ)

本文對(duì)“省計(jì)算機(jī)等級(jí)考試上報(bào)數(shù)據(jù)的自動(dòng)生成系統(tǒng)實(shí)現(xiàn)”[1]進(jìn)行了改進(jìn)，增加了筆試考生缺考數(shù)據(jù)的自動(dòng)生成功能，把上機(jī)考試和筆試考試中缺考考生同時(shí)自動(dòng)生成上報(bào)數(shù)據(jù)。對(duì)于不熟悉編程的使用者，如教務(wù)處相關(guān)人員也可以輕松上手，可適用于浙江有相關(guān)考試的學(xué)校使用，有一定的推廣和實(shí)用的價(jià)值。

參考文獻(xiàn)：

[1] 樊潮.省計(jì)算機(jī)等級(jí)考試上報(bào)數(shù)據(jù)的自動(dòng)生成系統(tǒng)實(shí)現(xiàn)[J].計(jì)算機(jī)時(shí)代，2012.7：37-39

[2] 九州書(shū)源.Excel2010高效辦公從入門到精通（高清視頻版）[M].清華大學(xué)出版社，2012.

[3] 李東海等.Excel2010實(shí)戰(zhàn)辦公技巧精粹查詢寶典[M].兵器工業(yè)出版社，2012.

[4] 許小榮等.Excel VBA語(yǔ)法與應(yīng)用手冊(cè)[M].電子工業(yè)出版社，2010.

[5] 黃興.作弊缺考錄入系統(tǒng)-用戶使用說(shuō)明書(shū)[Z].杭州電子科技大學(xué)，2012.4.

[6] 陳慶章等.Visual Basic程序設(shè)計(jì)基礎(chǔ)[M].浙江科學(xué)技術(shù)出版社，2010.