【正文】 gBox 題目答案必須為字母 !, vbInformation GoTo Proc_Exit End If Next i Set rst = New Recordset If mblnEdit Then select * from 題庫主表 where ID= amp。 amp。 , vbInformation End If End If End Sub 備選答案的界面如下： 由于代碼類似，我這里就不在介紹了。 amp。 39。39。If MsgBox(該考生已經(jīng)考過了 ,你要重新開始做嗎 ?, vbQuestion + vbYesNo) = vbNo Then GoTo Proc_Exit If rst![考生狀態(tài) ] = 已交卷 Then MsgBox 該考生已經(jīng)交卷了，將不能再次進(jìn)入考試 !, vbInformation Unload Me GoTo Proc_Exit End If 39。然后這里產(chǎn)生隨機(jī)的試卷 pintSetNumber = rst![考試套號 ] Else 39。隨機(jī)產(chǎn)生考試的套 號 39。39。 pintSetNumber 39。往學(xué)生答案表里加入抽到的試題 Set rstAnswer = New Recordset = pCN = select * from 考生答案 = adUseClient = adLockBatchOptimistic = adOpenStatic For i = 1 To rstAnswer![準(zhǔn)考證號 ] = Text1 rstAnswer![題目編號 ] = rst![題目編號 ] Next i End If = Text2 = Text1 Unload Me 1 Proc_Exit: Set rst = Nothing Set rstAnswer = Nothing End Sub 5． 6 考生答題模塊和交卷模塊 這套系統(tǒng)里有單選題和多選題，但是界面是可以統(tǒng)一的，所以設(shè)計了如下的界面： 在這里非常重要的代碼就是保存考生答案的代碼了，代碼如下： Private Sub chkAnswer_Click(Index As Integer) Dim i As Integer Dim strAnswer As String Static isBusy As Boolean Dim rst As Recordset If isProgChangeValue Then GoTo Proc_Exit If Not isBusy Then isBusy = True If Not rstMain![題目類型 ] Then For i = 0 To If i Index Then chkAnswer(i).Value = 0 Else chkAnswer(i).Value = 1 strAnswer = chkAnswer(i).Caption End If Next i Else For i = 0 To If chkAnswer(i).Value = 1 Then strAnswer = strAnswer amp。 amp。 39。 amp。 39。39。39。 amp。 39。 5． 7 評分模塊 經(jīng)過了上面的考試和題庫設(shè)置之后，評分其實就剩下了簡單的比較的功能了，實現(xiàn)起來也比 較的簡單了，設(shè)計了如下的界面： 主要代碼如下 : 評分代碼 : Private Sub Command1_Click() = = select ID,準(zhǔn)考證號 ,考生姓名 ,考試套號 ,考生狀態(tài) from 考生 Set = End Sub 得到考生成績信息代碼如下： Private Sub MSHFlexGrid1_Click() Dim i As Integer Dim sinSum As Single If 1 Then = = select 題目編號 ,題目內(nèi)容 ,題目分值 ,題目答案 ,考生答案 ,是否正確 ,得分 from 評分表 where 準(zhǔn)考證號 =39。 (, 1) amp。 Set = For i = 1 To 1 sinSum = sinSum + Val((i, 1)) Next i 總得分 : amp。 vbTab amp。 vbTab amp。 vbTab amp。 第六章 總結(jié) 本次畢業(yè)設(shè)計，雖然設(shè)計的東西相對的簡單，而且由于時間和技術(shù)實現(xiàn)上面的原因很多的想法都沒有實現(xiàn)，感覺非常的遺憾。非常感謝老師對于我的關(guān)心和幫助，如果不是你們的教導(dǎo)和鼓勵，我想我是不能順利完成這此畢業(yè)設(shè)計的，再次感謝所有的老師們。 if I pursue you I will not catch you, and if I catch youthrough your own slowness and clumsinessI will not kill you, and if I kill you I will not eat you. Nicholas had begun to back away, and at the last。s thumbnailshowing like spectators who lined the railings of his lips. Don39。 out of breath, the thumping of his own heart the only39。s long, prehuman day. For a time he listened for any sound Ignacio might make searching for him。s over, expecting Dr. Island to answer from somewhere。 fore and knew on which side of hunger he stood。 but his stomach revolted at the thought of the raw flesh, and he did not know how he might build a fire, although Ignacio seemed to have done so the night before. Raw fish, even if he were able to c atch a fish, would be as bad, or worse, than raw monkey。 he had several times seen coconuts lying in the sand under the trees. He moved quietly, still a little afraid, trying to think of ways to open the coconut w hen he found it. He imagined himself standing before a large and raggedly faceted stone, holding the coconut in both hands. He raised it and smashed it dow n, but when it struc k it was no longer a coconut but Maya39。 he heard her nose cartilage break with a distinct, rubbery snap. Her eyes, as blue as the sky above Madhya Pradesh, the sparkling blue sky of the egg, looked up at him, but he could no longer look into them, they retreated from his own, and it came to him quite suddenly that Lucifer, in falling, must have fallen up, into the fires and the coldness of space, never again to see the warm blues and browns and greens of Earth: 1 was watching Sa tan fall as lightning from heaven. He had heard that on tape somewhere, but he could not remember where. He had read that on Earth lightning did not e down from the clouds, but leaped up from the plane tary surface toward them, never to return. Nicholas. He listened, but did not hear his name again. Faintly water was babbling。 she looked up as she saw him, a nd smiled. Hello, he said. Hello, Nicholas. I thought I heard you. I wasn39。t think I said anything. He tested the dark water with his foot and found that it was very cold. You gave a little gasp, I fancy. I heard it, and I said to myself, that39。s probably given up by now. The girl nodded, looking into the dar k waters of they pool, but did not seem to have heard him. He began to wor k his way around to her, climbing across the sna kelike roots of the crowding trees. Why does Ignacio want to kill me, Diane? Sometimes he wants to kill me, too, the girl said. But why? I think he39。 did he tell you that? On= Earth. On a plantation in Brazil, way up the Amazon Dr. Island told me. I thought it was crowded on Earth. The cities are crowded, and the countryside closes to the cities. But there are places where it39。 when he was there, there wasn39。t want to be looked at, doesn39。t be sick if only there weren39。 that39。 and then a turtle and a hedgehog that turned into armadillos for the love of God, Montressor. He said, Why didn3