【正文】 ay because he had no way of knowing Ignacio was not right behind him, about to grab him by the neck. When he stopped it was in the thick jungle, among the boles of the hardwoods, where he leaned,.。 there was none. He drew a deep breath then and said, Well, that39。 he was not as strong as he had been only a day past, and by this time next day he would probably be unable to outrun Ignacio. He should, he now realized, have eaten the monkey he had ki lled。s head。t mistaken after all, was I? I didn39。s a bit frightened of us. Have you ever talked to him, Nicholas? Today I did a little. He told me a story about a pet fish he used to have. Ignacio grew up all alone。t anyone,` just the machines. Now he doesn39。t other people around all the time . Remember that? a Only there. are other people around all the time。t he stay there? Did I tell you about the bird, Nicholas? She had been not listening again. What bird? I ha。s how the world is. Not in Brazil, maybe, Nicholas said. He was trying to remember something about Brazil, but the only thing he could think of was a parrot singing in a straw hat from the view cartoons。t want anyone around him. Nicholas said slowly, Dr. Island said lots of people wouldn39。s emptie than it used to be. Where Ignacio was, there would have been Red Indian hunters two or three hundred years ago。s Nicholas, and I called you. Then I thought I might be wrong, or that it might be Ignacio. Ignacio was chasing me. Maybe he still is, but h think he39。 had Dr. Island used that sound to speak to him? He walked toward it and found a little rill that threaded a way among the trees, and followed it. In a hundred steps it grew broader, slowed, and ended in a long blind pool under a dome of leaves. . Diane was sitting on moss on the side opposite him。 he remembered his effort to open a coconuthe had failed, but it was surely not impossible. His mind was hazy as to what a coconut might contain, but there had to be an edible core, because they were eaten in books. He decided to make a wide sweep through the jungle that would bring him back to the beach well away from Ignacio。 there was only the green hush. The light was still bright and strong and nearly, shadowless, but some interior sense told him the day, was nearly over, and he noticed that such faint shades as he could see stretched long, hor izontal distortions of their objects. He felt no hunger, but he had fasted be39。 . sound in an atmosphere silent and unwa ked as Earth39。 words, realizing that they were a signal, he turned and began to run, splashing through the shallow water. Ignacio ran after him, much helped by his longer legs, his hair flying behind his dark young face, his square teetheach white as a bone and as big as Nicholas39。但是實(shí)際的解決了一些問(wèn)題，并且把自己學(xué)習(xí)的知識(shí)應(yīng)用到了實(shí)際工作中，感覺(jué)非常的自豪，而且對(duì)于老師所講的也是一種鞏固。 vbTab amp。 vbTab amp。 amp。 pudtStudent.準(zhǔn)考證號(hào) amp。交卷 Private Sub Command3_Click() Dim rst As Recordset If MsgBox(交卷后將不能在進(jìn)行考試 ,你真的要交卷了嗎 ?, vbQuestion + vbYesNo) = vbYes Then 39。 rstMain![題目編號(hào) ] amp。 amp。39。pintSetNumber = 1 Call GetSetNumber 39。39。 = adUseClient = adLockBatchOptimistic = adOpenStatic 39。 5． 5 考生登陸模塊 設(shè)計(jì)了如下的界面： 這里面比較重要的代 碼如下，也就是考生驗(yàn)證和試題抽取的代碼了： Private Sub Command1_Click() Dim rst As Recordset Dim rstAnswer As Recordset Dim i As Integer If Trim(Text1) = Then MsgBox 請(qǐng)輸入準(zhǔn)考證號(hào) !, vbInformation GoTo Proc_Exit End If If Trim(Text2) = Then MsgBox 請(qǐng)輸入考生姓名 !, vbInformation GoTo Proc_Exit End If Set rst = New Recordset = pCN = select * from 考生 where 準(zhǔn)考證號(hào) =39。 mlngID, pCN, adOpenStatic, adLockBatchOptimistic Else select * from 題庫(kù)主表 , pCN, adOpenStatic, adLockBatchOptimistic End If rst![題目編號(hào) ] = Text3 If Then rst![題目類型 ] = False Else rst![題目類型 ] = True End If rst![題目?jī)?nèi)容 ] = Text1 rst![題目分值 ] = Val(Text4) rst![題目答案 ] = UCase(Text5) rst![題目備注 ] = Text2 rst![題目套號(hào) ] = mlngSubjectID Text1 = Text2 = Text3 = Text4 = Text5 = mblnEdit = False = vbWhite = False Proc_Exit: Set rst = Nothing If 0 Then If = 2147467259 Then MsgBox 題目編號(hào)不能重復(fù) !, vbInformation Else MsgBox 發(fā)生意外錯(cuò)誤 ,錯(cuò)誤號(hào) : amp。 Set = Else = 1 End If End Sub 按上面的增加按鈕后我們就彈出如下的界面： 該代碼里比較重要的代碼如下： 留給外部窗體調(diào)用的時(shí)候的接口代碼： Public Function EditSubject(Optional ByVal lngID As Long = 0, Optional lngSubjectSetID As Long) Dim rst As Recordset mlngSubjectID = lngSubjectSetID mlngID = lngID mblnEdit = IIf(lngID 0, True, False) If mblnEdit Then Set rst = New Recordset select * from 題庫(kù)主表 where ID= amp。 () Set = If 1 Then = 1 End If Call InitSubjectAnswer End Sub 由于我們?cè)谶x中上面表格的每道試題的時(shí)候，需要顯示下面的數(shù)據(jù)，當(dāng)表格的選中的單元格發(fā)生改變的時(shí)候會(huì)發(fā)生 RowColChange 事件，所以我們把備選答案的顯示放在該事件里做，代碼如下： Private Sub MSHFlexGrid1_RowColChange() Call InitSubjectAnswer End Sub Private Sub InitSubjectAnswer() If 1 Then = = select * from 題目明細(xì) where 題目編號(hào) =39。比如加載題庫(kù)套號(hào)數(shù)據(jù)，然后加載該套試題的數(shù)據(jù)。 5． 4 題庫(kù)內(nèi)容維護(hù)和備選答案維護(hù) 在前面的設(shè)計(jì)的時(shí)候我們已經(jīng) 知道餓了題庫(kù)內(nèi)容和備選答案正好是主表和子表的關(guān)系，所以有必要把這幾個(gè)模塊一起處理的。由于套號(hào)名稱是唯一的，所以當(dāng)用戶添加同樣的套號(hào)名稱的時(shí)候，就會(huì)發(fā)生錯(cuò)誤，從上面的代碼我們知道，這時(shí)候的錯(cuò)誤代碼就是－ 2147467259。這里的代碼實(shí)現(xiàn)如下： 其中確定按鈕的代碼如下： Private Sub Command1_Click() Dim rst As Recordset On Error GoTo Proc_Exit If Len(Text1) 0 Then Set rst = New Recordset select * from 套號(hào) , pCN, adOpenStatic, adLockBatchOptimistic rst![套號(hào)名稱 ] = Text1 Text1 = End If Proc_Exit: If 0 Then