利用PowerPoint設(shè)計標(biāo)準(zhǔn)化試卷

摘要:標(biāo)準(zhǔn)化試題的主要題型為選擇題和判斷題，標(biāo)準(zhǔn)化考試的優(yōu)勢主要體現(xiàn)在可以擴大考核面、增強客觀性，減少閱卷誤差，減輕教師的工作量。標(biāo)準(zhǔn)化試卷主要適用于技術(shù)性課程的考試。該文主要介紹了在PowerPoint環(huán)境中設(shè)計標(biāo)準(zhǔn)化試題的方法和步驟。該試卷實現(xiàn)學(xué)生在計算機上考試，并具備自動評分功能。

關(guān)鍵詞:PowerPoint;標(biāo)準(zhǔn)化;試卷

中圖分類號:TP311文獻(xiàn)標(biāo)識碼:A文章編號:1009-3044(2009)14-3755-03

Design the Standardize Test Paper with PowerPoint

LIU Hong

(Hubei Vocational College of Bio-Technology， Wuhan 430070， China)

Abstract: Standardize test paper mainly contains multiple-choise questions and judge the questions. The standardize testing has advantages in extending the range of examination， enhancing objectivism， reducing marking errors， lessening the burden of teacher. Standardize test paper is suitable for the technology courses. This paper mainly introduced the methods and procedures of designing the standardize test paper with PowerPoint. The standardize test paper brings about testing in computer and it can get the testing score automatically.

Key words: PowerPoint; standardize; test paper

每學(xué)期末考試命題、閱卷是教師一項重要的教學(xué)工作。當(dāng)考生數(shù)量比較大時，閱卷和成績統(tǒng)計將十分煩瑣而且容易出錯。如果能夠?qū)崿F(xiàn)讓學(xué)生在電腦上考試并自動統(tǒng)計分?jǐn)?shù)，將會大大減輕教師的工作負(fù)擔(dān)，起到事半功倍的效果。

能夠設(shè)計標(biāo)準(zhǔn)化考試系統(tǒng)的軟件有很多種，考慮到大多數(shù)教師習(xí)慣于用PowerPoint設(shè)計課件進(jìn)行輔助教學(xué)，相對來說更容易上手和學(xué)習(xí)。因此，本文將介紹如何在PowerPoint環(huán)境下設(shè)計試卷并完成分?jǐn)?shù)統(tǒng)計。

1 標(biāo)準(zhǔn)化試卷的題型及功能

1) 標(biāo)準(zhǔn)化試卷的題型主要有三種:單選題、多選題、判斷題。

2) 標(biāo)準(zhǔn)化試卷的功能:學(xué)生在電腦上完成答題，交卷后輸入正確密碼可以立即得到每種題型的分?jǐn)?shù)及最后成績，老師也可以收集到每位學(xué)生的答題情況及得分情況。

2 標(biāo)準(zhǔn)化試卷的主要界面

1) 個人信息錄入界面(見圖1)

2) 單選題界面(見圖2)

3) 分?jǐn)?shù)統(tǒng)計界面(見圖3)

3 標(biāo)準(zhǔn)化試卷的設(shè)計步驟

在設(shè)計每頁界面之前必須先確定題目類型、數(shù)量及分?jǐn)?shù)分配。這樣才能進(jìn)行分?jǐn)?shù)的統(tǒng)計。如本例中確定三種題型。分別為單選題、多選題、判斷題。其中單選題為32道，每題2分，多選題為12道，每題2分，判斷題12道，每題1分。總計100分。

3.1 個人信息錄入界面設(shè)計

第一步:新建一個PowerPoint文檔，命名為“平面設(shè)計考卷”保存;選擇一個空白版式幻燈片，使用菜單項“視圖\\工具欄\\控件工具箱”中的工具“命令按鈕”制作[開始考試]按鈕，即用鼠標(biāo)點選“控件工具箱”中的“命令按鈕”，并在空白幻燈片上拖出一個“CommandButton1”，點鼠標(biāo)右鍵在“CommandButton1”的屬性框中把它的Caption(標(biāo)題)屬性改為“開始考試”。

第二步:插入兩個文本框，分別輸入文字“請輸入學(xué)號”及“請輸入姓名”，再選擇控件工具箱中的文本框工具插入兩個文本框，用于接受學(xué)生的個人信息。在屬性設(shè)置中將Caption(標(biāo)題)屬性分別改為XH，XM。

第三步:按照第一步再制作“確定”按鈕。最后設(shè)計界面如圖1所示。

第四步:設(shè)計代碼

1) 在Visual Basic編輯環(huán)境下，選擇菜單項“插入\\模塊”，在該通用模塊中插入如下代碼:

Public n As Integer

Public score As Integer

Public s1(32) As Integer

Public s2(12) As Integer

Public s3(12) As Integer

Public xuehao As String

Public xingming As String

其中:n用來累計幻燈片數(shù)量，score用于統(tǒng)計總成績， 數(shù)組s1(32)用于記錄每道單選題得分， 數(shù)組s2(12)用于記錄每道多選題得分， 數(shù)組s3(12) 用于記錄每道判斷題得分。Xuehao變量用于記錄學(xué)生學(xué)號，xingming變量用于記錄學(xué)生姓名。

2) 在[開始考試]按鈕中插入如下代碼:

Private Sub CommandButton1_Click()

score = 0

For i = 1 To 32

s1(i) = 0

Next i

For i = 1 To 12

s2(i) = 0

Next i

For i = 1 To 12

s3(i) = 0

Next i

xh.Text = \"\"

xm.Text = \"\"

End Sub

對各個變量進(jìn)行初始化設(shè)置

3) 在[確定]按鈕中插入如下代碼:

Private Sub CommandButton2_Click()

xuehao = xh.Text

xingming = xm.Text

SlideShowWindows(Index:=1).View.GotoSlide Index:=4

End Sub

在SlideShowWindows(Index:=1).View.GotoSlide Index:=4語句中4代表的是第1道題所在幻燈片的編號，可根據(jù)各自設(shè)計的不同而作修改。

3.2 單選題設(shè)計

第一步:插入文本框，輸入第1題題目及A、B、C、D四個選項的內(nèi)容。

第二步:設(shè)置答題區(qū)，點選“控件工具箱”中的“單選按鈕”制作四個選項按鈕，在屬性設(shè)置中將四個按鈕的Caption屬性分別改為A、B、C、D。

第三步:點選“控件工具箱”中的“命令按鈕”制作[重置]按鈕和[下一題]按鈕，其中[重置]按鈕用于初始化四個選項按鈕，[下一題]按鈕用于提交答案并鏈接到下一題。最后設(shè)計界面如圖2所示。

第四步:設(shè)計代碼

1) 在[重置]按鈕中插入如下代碼:

Private Sub CommandButton1_Click()

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

End Sub

2) 在[下一題]按鈕插入如下代碼:

Private Sub CommandButton3_Click()

If OptionButton3.Value = True Then s1(1) = 2

n =n+1

SlideShowWindows(Index:=1).View.GotoSlide Index:=n

End Sub

其中:語句If OptionButton3.Value = True Then s1(1) = 2表示學(xué)生選擇了正確答案C，并用s1(1)記錄得2分。語句SlideShowWindows(Index:=1).View.GotoSlide Index:=n表示跳轉(zhuǎn)到下一題所在的幻燈片。

至此，第一道單選題設(shè)置完畢。下面按照同樣的方法制作其它單選題。只需要將其中的條件語句作相應(yīng)修改。

3.3 多選題設(shè)計

第一步:插入文本框，輸入第1道多選題題目及A、B、C、D四個選項的內(nèi)容。

第二步:設(shè)置答題區(qū)，點選“控件工具箱”中的“多選按鈕”制作四個選項按鈕，在屬性設(shè)置中將四個按鈕的Caption屬性分別改為A、B、C、D。

第三步:點選“控件工具箱”中的“命令按鈕”制作[重置]按鈕和[下一題]按鈕，其中[重置]按鈕用于初始化四個選項按鈕，[下一題]按鈕用于提交答案并鏈接到下一題。

第四步:插入代碼

1) 在[重置]按鈕中插入如下代碼:

Private Sub CommandButton1_Click()

CheckBox1.Value = False

CheckBox2.Value = False

CheckBox3.Value = False

CheckBox4.Value = False

End Sub

2) 在[下一題]按鈕插入如下代碼:

Private Sub CommandButton2_Click()

If CheckBox2.Value = True And CheckBox4.Value = True Then s2(1) = 2

n = n + 1

SlideShowWindows(Index:=1).View.GotoSlide Index:=n

End Sub

其中:語句If CheckBox2.Value = True And CheckBox4.Value = True Then s2(1) = 2表示學(xué)生選擇了正確答案B、D，并用s2(1) = 2記錄第一題得2分。

至此，第一道多選題設(shè)置完畢。下面按照同樣的方法制作其它多選題。同樣，只需要將其中的條件語句作相應(yīng)修改。

3.4 判斷題設(shè)計

設(shè)計方法同單選題，只是將選項改為兩個，分別將Caption屬性改為“對”、“錯”。

3.5 交卷界面設(shè)計

第一步:點選“控件工具箱”中的“命令按鈕”制作[交卷]按鈕;

第二步:插入文本框，輸入文字“請輸入密碼”，并點選“控件工具箱”中的“文本框”工具插入接受密碼文本框，將其Caption屬性改為secret;

第三步:點選“控件工具箱”中的“命令按鈕”制作[查看分?jǐn)?shù)]按鈕，將其Caption屬性改為result;

第四步:點選“控件工具箱”中的“文本框”工具，插入五個文本框，分別用于顯示學(xué)生學(xué)號、姓名及單選題、多選題、判斷題得分情況及總成績。設(shè)計界面如圖3所示;

第五步:設(shè)計代碼。

1) 在[交卷]按鈕中插入如下代碼:

Private Sub CommandButton1_Click()

score123.Text = \"\" 總成績文本框初始化

secret.Text = \"\" 記錄輸入密碼

score_1 .Text= \"\"單選題得分文本框初始化

score_2 .Text = \"\" 多選題得分文本框初始化

score_3 .Text = \"\" 判斷題得分文本框初始化

xxhh.Text = \"\" 學(xué)號文本框初始化

xxmm.Text = \"\" 姓名文本框初始化

End Sub

2) 在[查看分?jǐn)?shù)]按鈕中插入如下代碼:

Private Sub result_Click()

Dim score As Integer

Dim score1 As Integer

Dim score2 As Integer

Dim score3 As Integer

For i = 1 To 32

score1 = score1 + s1(i)

Next i

For i = 1 To 12

score2 = score2 + s2(i)

Next i

For i = 1 To 12

score3 = score3 + s3(i)

Next i

If secret.Text = \"redmud\" Then'如果輸入密碼為redmud，則可以查看到分?jǐn)?shù)

score = score1 + score2 + score3

score_1.Text = \"單選題得分為:\" + CStr(score1)

score_2.Text = \"多選題得分為:\" + CStr(score2)

score_3.Text = \"判斷題得分為:\" + CStr(score3)

xxhh.Text = xuehao

xxmm.Text = xingming

score123.text = \"總分為:\" + CStr(score)

score = 0

score1 = 0

score2 = 0

score3 = 0

For i = 1 To 32

s1(i) = 0

Next i

For i = 1 To 12

s2(i) = 0

Next i

For i = 1 To 12

s3(i) = 0

Next i

End If

End Sub

4 其它設(shè)置

1) 為了預(yù)防考生使用幻燈片考卷時看到其中的代碼，在代碼編寫視圖下選擇菜單項“視圖\\工程資源管理器”，用鼠標(biāo)右鍵點“VBAProject”屬性，在其屬性對話框中選擇“保護(hù)”標(biāo)簽選項輸入密碼，實現(xiàn)密碼保護(hù)。

2) 教師如要以文本文件的方式統(tǒng)一收集學(xué)生成績，可以在[查看分?jǐn)?shù)]按鈕中添加如下代碼:

Dim sf As Integer

sf = FreeFile

Open\"d:\\Photoshop考試成績登記\\\" xingming \".txt\"For Append As sf’用輸入的姓名作為文件名，在D盤的名為“Photoshop考試成績登記”文件夾中建立一個文本文件。

Print #sf， score_1

Print #sf， score_2

Print #sf， score_3

Print #sf， score123 '把各題型得分及總成績寫入到這個文本文件中

Close sf

事先，需要在D盤中建立名為Photoshop考試成績登記的文件夾，學(xué)生成績文本文件將保存在該文件夾中。根據(jù)實際情況可以改變Open語句中保存文件夾路徑。

參考文獻(xiàn):

[1] 匡松，繆春池.Visual Basic 程序設(shè)計使用教程[M].北京:人民郵電出版社，2008.

[2] John walkenbach.Excel 2003高級VBA編程寶典[M].北京:電子工業(yè)出版社，2005.