1、在Excel中設(shè)計試卷生成系統(tǒng)作為一名教師，經(jīng)常要經(jīng)歷考試、出卷這個過程。雖然“無紙化”考試已經(jīng)開始被大家所了解，但真正實現(xiàn)的學(xué)校卻不多。作為一名信息技術(shù)教師，我希望能夠利用計算機開發(fā)出一套簡單實用、可以自動生成試卷的系統(tǒng)，把大家從繁瑣的出卷過程中解放出來。考慮到試卷要打印出來，我沒有選擇，而是選擇了大家都很熟悉的 ，利用其中的腳本語言來實現(xiàn)試卷的自動生成。 系統(tǒng)實現(xiàn)的功能 1. 組卷方式為章節(jié)控制方式。保證各章節(jié)的分值不易失衡，根據(jù)出題者的要求，按章節(jié)隨機從題庫中抽題組卷。 2.格式化試卷（包括設(shè)置試卷標題、進行頁面設(shè)計、添加頁眉等），達到可以直接打印的要求。&

2、#160;3.題庫中試題內(nèi)容與參考答案融為一體，由系統(tǒng)生成的試卷文檔既可以打印出學(xué)生考試用卷，也可以打印出樣卷。 構(gòu)建題庫  該系統(tǒng)題庫采用Excel表格的形式，字段名分別為“標準答案”、“題干”、“答案A”、“答案B”、“答案C”、“答案D”（如圖1）。題庫中的記錄可以采用兩種方法來錄入： 1. 直接手工錄入：打開工作簿，在題庫工作表中可以直接輸入題目； 2. 從已有題庫文件中導(dǎo)入到Excel題庫里面，比如可以從現(xiàn)成的Access題庫中直接導(dǎo)入到該題庫里。 但是無論哪種方法都必須滿足下面的條件：所有的題目按章節(jié)排序，并記錄每一章節(jié)題

3、目的起始位置，以后向題庫里面添加記錄時不能在文件尾追加，而是要放到所屬章節(jié)的位置，并修正試卷生成界面里相應(yīng)的地方。 建立試卷生成界面  所謂試卷生成界面就是系統(tǒng)提供給用戶的用于輸入各種條件值的地方，本系統(tǒng)是由用戶設(shè)定各章節(jié)所出題目的個數(shù)，因此界面比較簡單。我們把工作簿中的Sheet3工作表設(shè)計為系統(tǒng)界面（如圖2）。在該界面下用戶只要在B列相應(yīng)單元格中輸入每個章節(jié)的題目數(shù)（例如，第一、二章都出10個題，就在B1、B2單元格里分別輸入10，沒有出題的章節(jié)后面可以為空白，如圖2所示），然后按“Ctrl+D”組合鍵執(zhí)行宏命令就可以生成試卷。其中此界面除B列外其余各列都設(shè)置

4、為保護狀態(tài)，以避免用戶的誤操作影響程序的執(zhí)行。在圖2中我們還可以看到D、F列標明了題庫中每一章題目的起始位置，這里的設(shè)置是在完成題庫后根據(jù)題庫內(nèi)容來填寫，一般只填寫一次，如果題庫的內(nèi)容有變化，一定要在此處作相應(yīng)的改變。 生成試卷 生成試卷是本系統(tǒng)的核心部分，這部分的設(shè)計主要是采用Excel里面的宏命令。其中的關(guān)鍵代碼主要是自己編制的，有些輔助功能采用錄制宏的方法實現(xiàn)。本系統(tǒng)的組卷方式為按照各章節(jié)要求的題目數(shù)自動隨機組卷，所以核心代碼部分為三個方面：按照用戶要求產(chǎn)生符合要求的隨機數(shù)，并把該數(shù)存儲于一個數(shù)組中，產(chǎn)生的隨機數(shù)就是選中題目的序號；按要求把所選記錄復(fù)制到Sheet2工

5、作表中，并轉(zhuǎn)換成我們常見的試卷模式；格式化試卷。  生成隨機數(shù) 本系統(tǒng)中的隨機數(shù)主要是標志出現(xiàn)在試卷中題庫記錄的位置，例如我們隨機產(chǎn)生了一個數(shù)99，表示題庫中第99條記錄是我們試卷中的一個題目。關(guān)于隨機數(shù)的要求：一是生成的數(shù)必須不能重復(fù)，這樣就避免試卷中重題的出現(xiàn)；二是生成的數(shù)必須在給定的范圍里產(chǎn)生，如圖2所示要求，第一章的題目范圍是1117，所以我們產(chǎn)生的10個隨機數(shù)必須是在1117之間的不能重復(fù)的數(shù)。具體實現(xiàn)代碼如下： 產(chǎn)生一定范圍的隨機數(shù)我們用RND（）函數(shù)，我們把產(chǎn)生的這個函數(shù)賦予臨時變量j，其中的fanwei(1,1),fanwei(1,2)為圖2中D、

6、F列中相應(yīng)值。 j = Int(Rnd() * (fanwei(l, 2) - fanwei(l, 1) + 1) + fanwei(l, 1) 產(chǎn)生不重復(fù)的隨機數(shù)。我們采用的方法是用新產(chǎn)生的數(shù)和前面產(chǎn)生的數(shù)分別比較，如果不同就直接記入數(shù)組id()，如果有相同的話重新再生成，然后再比較，如此循環(huán)。 For i = 1 To timu(l) a:j = Int(Rnd() * (fanwei(l, 2) - fanwei(l, 1) + 1) + fanwei(l, 1) id(i) = j '避免產(chǎn)生重復(fù)的隨機數(shù) F

7、or k = 1 To i - 1 If j = id(k) Then GoTo a: Else id(i) = j End If Next k  按產(chǎn)生的隨機序列組卷 上述第一步中我們已經(jīng)選擇好了試卷的題目，這里需要做的就是把選擇好的題目復(fù)制到Sheet2工作表中并轉(zhuǎn)換成我們常見試卷的樣式，這里我們采用循環(huán)的方式，先是按順序把題目從題庫中復(fù)制到Sheet2工作表中，然后把選項A、B、C、D分別放在不同的行上，重復(fù)這個過程直到完成。 復(fù)制記錄到Sheet2中 Range(Cells(id1(i)

8、, 1), Cells(id1(i), 6).Select Selection.Copy Sheets("Sheet2").Select Range(Cells(i, 1), Cells(i, 1).Select ActiveSheet.Paste 轉(zhuǎn)換成為我們常見試卷的樣式 Range(Cells(i, 3), Cells(i, 3).Select Application.CutCopyMode = False Selection.Cut Destination:=Range(Cells(i

9、+ 1, 2), Cells(i + 1, 2) Range(Cells(i, 4), Cells(i, 4).Select Selection.Cut Destination:=Range(Cells(i + 2, 2), Cells(i + 2, 2) Range(Cells(i, 5), Cells(i, 5).Select Selection.Cut Destination:=Range(Cells(i + 3, 2), Cells(i + 3, 2) Range(Cells(i, 6), Cells(i, 6).Select 

10、;Selection.Cut Destination:=Range(Cells(i + 4, 2), Cells(i + 4, 2) Range(Cells(i + 4, 2), Cells(i + 4, 2).Select  格式化試卷 添加試卷標題并設(shè)置標題的字體字號和樣式 Range("A1:B1").Select ActiveCell.FormulaR1C1 = "200 -200 學(xué)年度信息技術(shù)期末考試" With ActiveCell.Characters(Start:=1, Len

11、gth:=20).Font .Name = "宋體" .FontStyle = "加粗" .Size = 24 進行頁面設(shè)置  紙張類型：.PaperSize = xlPaperB4 上、下、左、右邊距： ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" 添加頁腳 ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .CenterFooter