省計算機等級考試上報數據實現自動生成的改進

徐俏虹　樊潮

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

關鍵詞： 計算機等級考試； VBA； 自動生成； 缺考庫； 上報數據

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

0 引言

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

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

1 上報數據的研究

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

2 具體實現過程

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

2.1 前期準備

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

然后打開上機考生數據F.TXT文件，把文本文件的內容復制到WORD環境中，進行上機考生數據編輯。上機考生數據是如圖1所示的以準考證號為內容的文件。

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

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

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

Sub f（）

Dim ss1 As Integer '定義總表中的循環變量

Dim ss2 As Integer '定義實際上機表中的循環變量

Dim ss3 As Integer '定義理論缺考中的循環變量

For ss1=2 To 12

For ss2=2 To 5

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

‘MsgBox函數也稱為消息對話框[6]，用戶在使用這個函數后，可以很方便地查看當看運動結果

‘進而修改程序

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

.Value Then

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

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 '轉到總表取下一個準考證號 數據

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

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

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

GoTo 1

End If

End If

Next

Else

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

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 '如果在理論缺考表中查詢結束還沒有查詢到

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

GoTo 1

End If

End If

Next

End If

End If

Next

1： Next

Exit Sub

在鼠標光標所處的位置單擊工具欄上的“運行子過程/用戶窗體”按鈕，相應的過程就會被運行[4]，所以點擊當前的代碼窗口后，再點擊菜單欄中的“運行子程序/用戶窗體”，或是直接按F5，就會運行上面的代碼，得到缺考考生數據表，如圖4所示。

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

'判斷為空行就刪除

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]

經過檢驗，所得到的缺考考生數據準確無誤。該系統的應用節省了人工操作的時間，有效地減少人工輸入數據時所可能產生的錯誤。把這些數據導入缺考庫，生成DB文件，就可以上報。把這些程序錄制成宏，然后通過宏的運行即可快捷地執行相關操作[2]。

3 結束語

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

參考文獻：

[1] 樊潮.省計算機等級考試上報數據的自動生成系統實現[J].計算機時代，2012.7：37-39

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

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

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

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

[6] 陳慶章等.Visual Basic程序設計基礎[M].浙江科學技術出版社，2010.