省計算機等級考試上報數(shù)據(jù)實現(xiàn)自動生成的改進

徐俏虹　樊潮

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

關(guān)鍵詞： 計算機等級考試； VBA； 自動生成； 缺考庫； 上報數(shù)據(jù)

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

0 引言

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

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

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

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

2 具體實現(xiàn)過程

自動生成上報數(shù)據(jù)的實現(xiàn)我們采用了VBA（Visual Basic for Applications），它是一種宏語言，能用來擴展Excel的功能。

2.1 前期準(zhǔn)備

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

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

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

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

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

Sub f（）

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

Dim ss2 As Integer '定義實際上機表中的循環(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ù)也稱為消息對話框[6]，用戶在使用這個函數(shù)后，可以很方便地查看當(dāng)看運動結(jié)果

‘進而修改程序

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

.Value Then

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

For ss3=2 To 5

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

.Value Then

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

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

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

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

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

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

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

GoTo 1

End If

End If

Next

Else

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

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

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é)束還沒有查詢到

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īng)的過程就會被運行[4]，所以點擊當(dāng)前的代碼窗口后，再點擊菜單欄中的“運行子程序/用戶窗體”，或是直接按F5，就會運行上面的代碼，得到缺考考生數(shù)據(jù)表，如圖4所示。

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

'判斷為空行就刪除

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

3 結(jié)束語

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

參考文獻：

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

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

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

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

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

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