【正文】 及試題難度框架的標(biāo)題就會(huì)以紅色顯示，此時(shí)變可以對(duì)試題的題目、答案及難度進(jìn)行修改。當(dāng)修改完畢后，點(diǎn)擊確定按鈕，系統(tǒng)將會(huì)把用戶對(duì)試題的修改存到數(shù)據(jù)庫(kù)響應(yīng)題型的數(shù)據(jù)表中，且試題題目正文錄入文本框上的標(biāo)題、試題答案文本框的標(biāo)題以及試題難度框架的標(biāo)題就會(huì)恢復(fù)默認(rèn)的黑色，且其它按鈕也恢復(fù)為可操作狀態(tài)。如果，點(diǎn)擊“修改試題”按鈕后，用戶由于某種原因不想進(jìn)行修改，則需 要點(diǎn)擊“放棄”按鈕，其他按鈕又會(huì)恢復(fù)到可操作狀態(tài)。這樣對(duì)試題的任何改動(dòng)都不會(huì)存到數(shù)據(jù)表中，數(shù)據(jù)表中保存的試題仍是未修改前的試題。修改試題界面如下圖所示： 實(shí)現(xiàn)方法： 主要是通過(guò)調(diào)用記錄集的 Edit 方法，結(jié)合本系統(tǒng)給出其主要代碼。 Private Sub XiouGaiShiTi_Click() On Error Resume Next If = 修改試題 Then = 確定 調(diào)用 Edit 方法 ElseIf = 確定 Then = 修改試題 If = True Then (難度 ) = 1 If = True Then (難度 ) = 2 If = True Then (難度 ) = 3 更新數(shù)據(jù)庫(kù)，將對(duì)試題的修改保存 End If End Sub 刪除試題： 如果題庫(kù)中的試題由于某種原因需要?jiǎng)h除時(shí)，可調(diào)用此模塊。首先仍需要用戶單擊 SStab 選項(xiàng)卡來(lái)選擇需要?jiǎng)h除試題的題型（單項(xiàng)選擇題，多項(xiàng)選擇題，填空題，材料解析題，問(wèn)答題）。然后點(diǎn)擊“刪除試題”按鈕，則系統(tǒng)會(huì)彈出一個(gè)刪除試題對(duì)話框以最后確定用戶是否要?jiǎng)h除此 試題，如果點(diǎn)擊“確定”按鈕，則系統(tǒng)會(huì)在相應(yīng)題型中的數(shù)據(jù)表中將此試題刪除，并且更新試題庫(kù)。如果點(diǎn)擊“取消”按鈕，則系統(tǒng)不做任何響應(yīng)，題庫(kù)亦不會(huì)有任何改動(dòng)。 實(shí)現(xiàn)方法：主要是通過(guò)調(diào)用記錄集的 Delete 方法實(shí)現(xiàn)。 試題題庫(kù)信息： 此模塊將會(huì)調(diào)用“試題題庫(kù)信息”窗體，它將以生動(dòng)的形式對(duì)題庫(kù)的各種題型顯示出來(lái)，并且將各種題型按照難易程度（簡(jiǎn)單、一般、難）劃分。如果用戶對(duì)題庫(kù)進(jìn)行了修改（添加試題、刪除試題），則將會(huì)在此看到題庫(kù)的變化。 題庫(kù)遍歷： 主要通過(guò) 5個(gè)按鈕來(lái)實(shí)現(xiàn)對(duì)整個(gè)題庫(kù)的遍歷。 （ 1）首記錄 按照 SStab 選項(xiàng)卡當(dāng)前的狀態(tài)，顯示選項(xiàng)卡對(duì)應(yīng)題庫(kù)中相應(yīng)試題表的第一道試題。 實(shí)現(xiàn)方法：調(diào)用記錄集的 MoveFirst 方法。 （ 2）上一試題 顯示當(dāng)前試題的前一道試題，如果當(dāng)前試題為第一道試題，則顯示當(dāng)前題型中位于試題表中的最后一道試題。 實(shí)現(xiàn)方法：調(diào)用記錄集的 MovePrevious 方法。 Private Sub ShangYiShiTi_Click() If Then 需要考慮 Recordset 對(duì)象的邊界。如果 BOF 屬性為 True，則表明當(dāng)前記錄為第一條記錄，則其“上一試題“需要調(diào)用 MoveLast 轉(zhuǎn)移到最后一條記錄上。 End Sub （ 3）下一試題 顯示當(dāng)前試題的后一道試題，如果當(dāng)前試題為最后一道試題，則顯示當(dāng)前 題型中位于試題表中的第一道試題。 實(shí)現(xiàn)方法：調(diào)用記錄集的 MoveNext 方法 Private Sub XiaYiShiTi_Click() If Then 需要考慮 Recordset 對(duì)象的邊界。如果 EOF 屬性為 True，則表明當(dāng)前記錄為最后一條記錄，則其“下一試題“需要調(diào)用 MoveFirst 轉(zhuǎn)移到第一條記錄上。 End Sub （ 4）末記錄 按照 SStab 選項(xiàng)卡當(dāng)前的狀態(tài)，顯示選項(xiàng)卡對(duì)應(yīng)題庫(kù)中相應(yīng)試題表的最后一道試題。 實(shí)現(xiàn)方法：調(diào)用記錄集的 MoveLast 方法。 （ 5）定位 在文本框內(nèi)輸入題號(hào)，直接找到所需試題。在文本框內(nèi)只能輸入數(shù)字，否則系統(tǒng)會(huì)提示出錯(cuò)，若輸入數(shù)字超出題庫(kù)內(nèi)現(xiàn)存題目的數(shù)量，系統(tǒng)也會(huì)提示出錯(cuò)。通過(guò)試題定 位，可以在修改試題和刪除試題中，快速的找到所需要修改和刪除的試題。 實(shí)現(xiàn)方法：通過(guò)調(diào)用記錄集的 Find 方法。 Private Sub DingWei_Click() Dim DingWei_Bookmark As String DingWei_Bookmark = 保存當(dāng)前記錄的書簽 題號(hào) = amp。 Val(Text1) 調(diào)用 FindFirst 方法在試題表中查找輸入文本框中的題號(hào) If = True Then 未找到題號(hào)，顯示錯(cuò)誤信息 MsgBox 題號(hào)超出題庫(kù)范圍！ , vbInformation, 查找出錯(cuò) = DingWei_Bookmark End If = False Text1 = End Sub 題庫(kù)信息統(tǒng)計(jì)設(shè)計(jì) 此模塊主要是為了方便用戶對(duì)題庫(kù)內(nèi)的各種題型有一個(gè)一目了然的了解，按照單項(xiàng)選擇題，多項(xiàng)選擇題，填 空題，材料解析題，問(wèn)答題和整個(gè)題庫(kù)，共六個(gè)部分，分別以試題總數(shù)，簡(jiǎn)單試題題數(shù)，中等試題題數(shù)，難題題數(shù)顯示。對(duì)題庫(kù)信息進(jìn)行統(tǒng)計(jì)的顯示先后順序?yàn)椋簡(jiǎn)雾?xiàng)選擇題→多項(xiàng)選擇題填空題→材料解析題→問(wèn)答題→整個(gè)題庫(kù)。 實(shí)現(xiàn)方法： 主要通過(guò)在窗體上設(shè)置的六個(gè)時(shí)鐘控件和一個(gè) Date 控件。首先用 shape 控件和 Line 控件設(shè)計(jì)出題庫(kù)信息統(tǒng)計(jì)的基本輪廓，然后再添加相應(yīng)的 Label 控件，以分別對(duì)應(yīng)單項(xiàng)選擇題，多項(xiàng)選擇題，填空題，材料解析題，問(wèn)答題和整個(gè)題庫(kù)。在窗體加載階段，應(yīng)當(dāng)對(duì)題庫(kù)各種類型試題進(jìn)行統(tǒng)計(jì)，并存到相應(yīng)的變量中，然后再 依次觸發(fā) 6個(gè)時(shí)鐘控件，以動(dòng)態(tài)增加的形式顯示出統(tǒng)計(jì)的結(jié)果，具體事件過(guò)程見(jiàn)附件。 題庫(kù)信息統(tǒng)計(jì)設(shè)計(jì)窗體和運(yùn)行窗體，如下面兩圖所示 隨機(jī)出題設(shè)計(jì) 本模塊主要是提供用戶對(duì)生成隨機(jī)試題進(jìn)行設(shè)置，由隨機(jī)出題窗體和生成隨機(jī)出題窗體組成。 隨機(jī)出題窗體： 由上圖可以看出，通過(guò) SStab 個(gè)各個(gè)選項(xiàng)卡選擇題型，例如選擇了單項(xiàng)選擇題，然后在選擇容易試題、中等試題、難題的題數(shù)，選擇題數(shù)是通過(guò) UpDown 控件與 TextBox 控件相結(jié)合來(lái)實(shí)現(xiàn)的。右 鍵單擊 UpDown 控件，在彈出的快捷菜單中選擇屬性，彈出 UpDown 控件屬性對(duì)話框。單擊合作者選項(xiàng)卡，在合作者控件中填寫合作者的名稱（此例中為 Dan_TextBox1,用來(lái)記錄單項(xiàng)選擇題簡(jiǎn)單題數(shù)），然后在合作者屬性中點(diǎn)擊下拉組合框選擇 Text 屬性。點(diǎn)擊 UpDown 控件屬性對(duì)話框中的滾動(dòng)選項(xiàng)卡，按照以下賦值，值： 0，最?。?0，最大： 40，遞增： 1，在此例中分別表示簡(jiǎn)單題數(shù)的初始題數(shù)，最少題數(shù)，最大題數(shù)，遞增題數(shù)。單項(xiàng)選擇題中等題數(shù)、單項(xiàng)選擇題難題數(shù)及單項(xiàng)選擇題分值的設(shè)置方法與上述類似，不再重復(fù)。對(duì)于每一次單擊 選項(xiàng)卡，在下面的出題信息統(tǒng)計(jì)框架中都動(dòng)態(tài)的相應(yīng)變化。 考慮到實(shí)際情況，單項(xiàng)選擇題、多項(xiàng)選擇題、填空題的試題難度分布及試題分值的賦值是一樣的，但材料解析題與問(wèn)答題是于此不同的，具體界面如下圖所示。 由于本套系統(tǒng)是針對(duì)高中歷史設(shè)計(jì)的出題系統(tǒng)，經(jīng)過(guò)考察實(shí)際試題試卷，材料解析題和問(wèn)答題最多均為三道，因此設(shè)計(jì)用戶在選取這兩種題型時(shí)也最多只能選取三道。 例如當(dāng)前用戶要選擇材料解吸題，當(dāng)點(diǎn)擊題數(shù)的 UpDown 控件時(shí)，隨著文本框中顯示題數(shù)的變化，材料解析題中的“第一題（框架）”，“第二題（框架 ）”，“第三題（框架）”也響應(yīng)的顯示為可操作狀態(tài)或者不可操作狀態(tài)。而且還可以在試題框架中選擇試題的難度及分值。對(duì)以上的操作，一樣會(huì)在出題信息統(tǒng)計(jì)框架中動(dòng)態(tài)的顯示出來(lái)其相應(yīng)的變化。問(wèn)答題的界面及操作與材料解析題類型，不在重述。 另外，在此窗體中還可以選擇生成隨機(jī)試卷的數(shù)目，通過(guò)點(diǎn)擊“選項(xiàng)”按鈕，選擇生成試卷份數(shù)。本系統(tǒng)最多可以產(chǎn)生三套隨機(jī)試卷，而且每套試卷的試題都是不同的。 出題信息統(tǒng)計(jì)框架中的動(dòng)態(tài)變化： 在五種試題類型 (單項(xiàng)選擇題、多項(xiàng)選擇題、填空題、材料解析題、問(wèn)答題 )當(dāng)中，單項(xiàng)選擇題、多項(xiàng)選擇題、 填空題三種題型在選擇上的原理是一致的，而材料解吸題、問(wèn)答題兩種題型在選擇上又是一致的。 (1)以單項(xiàng)選擇題為例，來(lái)說(shuō)明一下如何隨著用戶進(jìn)行試題難度分布和試題分值的選擇，出題信息統(tǒng)計(jì)框架相應(yīng)的動(dòng)態(tài)變化。這一目標(biāo)的實(shí)現(xiàn)主要是通過(guò)四個(gè) UpDown 控件，其分別對(duì)應(yīng)單項(xiàng)選擇題簡(jiǎn)單試題、中等試題、難題數(shù)目。 首先說(shuō)明一下用到的控件名極其說(shuō)明： 控件名 說(shuō)明 Dan_UpDown1_Change UpDown 控件，單項(xiàng)選擇題簡(jiǎn)單試題 Dan_TextBox1 TextBox 控件，簡(jiǎn)單試題數(shù)目 Dan_TextBox2 TextBox 控件，中等試題數(shù)目 Dan_TextBox3 TextBox 控件，難題數(shù)目 (2)以材料解析題為例子，通過(guò)指示判斷材料解析題題數(shù)的 UpDown 控件來(lái)實(shí)現(xiàn)隨著題數(shù)的變化相應(yīng)引起的“試題框架”操作狀態(tài)的改變。 生成隨機(jī)試題窗體 本模塊主要是根據(jù)用戶在隨機(jī)窗體中的設(shè)置，包括：?jiǎn)雾?xiàng)選擇題的分值，簡(jiǎn)單題數(shù)，中等題數(shù)，難題數(shù)；多項(xiàng)選擇題的分值，簡(jiǎn)單題數(shù)，中等題數(shù)，難題數(shù)；填空題的分值，簡(jiǎn)單題數(shù)，中等題數(shù)，難題數(shù)；材料解析題題數(shù)，以及每道材料解析題自己的分值、難度；問(wèn)答題題數(shù)，以及每道問(wèn)答題自己的 分值、難度；生成隨機(jī)試卷的份數(shù)。通過(guò)用戶在隨機(jī)出題模塊中對(duì)這些參數(shù)的賦值，系統(tǒng)自動(dòng)的從題庫(kù)中隨機(jī)篩選出試題，生成試卷。 功能： 生成隨機(jī)試卷，并連同答案分別顯示在生成隨機(jī)試題窗體的兩個(gè)文本框中；分別保存隨機(jī)試卷和其對(duì)應(yīng)的答案；分別打印隨機(jī)試卷和其對(duì)應(yīng)的答案。 具體生成隨機(jī)試題窗體如下圖所示： 此模塊實(shí)現(xiàn)的關(guān)鍵有以下幾個(gè)方面。 （ 1）隨機(jī)出題實(shí)現(xiàn)的核心： 隨機(jī)出題的核心是調(diào)用 Visual Basic 中的 Ran()函數(shù)以產(chǎn)生隨機(jī)數(shù)，和使用 Randomize 語(yǔ)句改變產(chǎn)生隨機(jī)數(shù)的種子。對(duì)于單 項(xiàng)選擇題、多項(xiàng)選擇題、填空題它們?nèi)N題型的產(chǎn)生隨機(jī)試題的原理是一致的。而材料解析題和問(wèn)答題這兩種題型產(chǎn)生隨機(jī)試題的原理也是一致的。為了進(jìn)行細(xì)致說(shuō)明，首先把本模塊所用到的主要變量列表如下。 變量名稱 變量類型 變量作用范圍 說(shuō) 明 DanNo Integer 模塊 Public 單項(xiàng)選擇題總題數(shù) R_DanNo1 Integer 模塊 Public 單項(xiàng)選擇題簡(jiǎn)單題數(shù) R_DanNo2 Integer 模塊 Public 單項(xiàng)選擇題中等題數(shù) R_DanNo3 Integer 模塊 Public 單項(xiàng)選擇題難題數(shù) R_DanValue Integer 模塊 Publi 單項(xiàng)選擇題分值 R_DuoNo Integer 模塊 Public 多項(xiàng)選擇題總題數(shù) R_DuoNo1 Integer 模塊 Public 多項(xiàng)選擇題簡(jiǎn)單題數(shù) R_DuoNo2 Integer 模塊 Public 多項(xiàng)選擇題中等題數(shù) R_DuoNo3 Integer 模塊 Public 多項(xiàng)選擇題難題數(shù) R_DuoValue Integer 模塊 Public 多項(xiàng)選擇題分值 R_TianNo Integer 模 塊 Public 填空題總題數(shù) R_TianNo1 Integer 模塊 Public 填空題簡(jiǎn)單題數(shù) R_TianNo2 Integer 模塊 Public 填空題中等題數(shù) R_TianNo3 Integer 模塊 Public 填空題難題數(shù) R_TianValue Integer 模塊 Public 填空題分值 R_CaiNo Integer 模塊 Public 材料解析題題數(shù) R_CaiValue1 Integer 模塊 Public 材料解析題第一題分值 R_CaiValue2 Integer 模塊 Public 材料解析題第二題分值 R_CaiValue3 Integer 模塊 Public 材料解析題第三題分值 R_CaiNanDu1 Integer 模塊 Public 材料解析題第一題難度 R_CaiNanDu2 Integer 模塊 Public 材料解析題第二題難度 R_CaiNanDu3 Integer 模塊 Public 材料解析題第三題難度 R_WenNo Integer 模塊 Public 問(wèn)答題題數(shù) R_WenValue1 Integer 模塊 Public 問(wèn)答題第一題分值 R_WenValue2 Integer 模塊 Public 問(wèn)答題第二題分值 R_WenValue3 Integer 模塊 Public 問(wèn)答題第三題分值 R_WenNanDu1 Integer 模塊 Public 問(wèn)答題第一題難度 R_WenNanDu2 Integer 模塊 Public 問(wèn)答題第二題難度 R_WenNanDu3 Integer 模塊 Public 問(wèn)答題第三題難度 TestNo Integer 模塊 Pu