【正文】 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 other people around all the time . Remember that? a Only there. are other people around all the time。t want anyone around him. Nicholas said slowly, Dr. Island said lots of people wouldn39。t anyone,` just the machines. Now he doesn39。s emptie than it used to be. Where Ignacio was, there would have been Red Indian hunters two or three hundred years ago。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。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。t mistaken after all, was I? I didn39。 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。s head。 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。 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。 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。 there was none. He drew a deep breath then and said, Well, that39。 . sound in an atmosphere silent and unwa ked as Earth39。t run, N icholas, Dr. Island said with the voice of a wave. It only makes him angry that you run. N icholas did not answer, but cut to his left, up the be ach and among the trunks of the palms, sprinting all the way 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,.。 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。 第七章 參考文獻 【 1】 數(shù)據(jù)庫系統(tǒng)原理教程 清華大學出版社 作者 王珊 陳紅 【 2】 Visual Basic 程序設計與數(shù)據(jù)庫應用 電 子工業(yè)出版社 作者 王新民 張彥玲 【 3】 Vosual Basic 實用培訓教材 人民郵電出版社 作者 金英姿 鄧少鹍 【 4】 Visual 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航 作者 劉韜 駱娟 何旭洪 【 5】軟件工程導論 清華大學出版社 作者 張海藩 Are you hungry now? No, I am tired and lazy now。但是實際的解決了一些問題，并且把自己學習的知識應用到了實際工作中，感覺非常的自豪，而且對于老師所講的也是一種鞏固。 sinSum End If End Sub 整體的代碼設計部 分就介紹到這里了。 vbTab amp。 vbTab amp。 vbTab amp。 39。 amp。 rst![考生狀態(tài) ] = 已交卷 Unload Me End If End Sub 因為交卷了之后該考生就不能在登陸考試了，所以這里想進行提示，確認后在進入交卷動作了。 pudtStudent.準考證號 amp。整理進行交卷動作 Set rst = New Recordset = adLockBatchOptimistic = adUseClient = adOpenStatic Set = pCN = select * from 考生 where 準考證號 =39。交卷 Private Sub Command3_Click() Dim rst As Recordset If MsgBox(交卷后將不能在進行考試 ,你真的要交卷了嗎 ?, vbQuestion + vbYesNo) = vbYes Then 39。 = adUseClient = adOpenStatic = adLockBatchOptimistic rst![考生答案 ] = strAnswer Set rst = Nothing isBusy = False End If Proc_Exit: End Sub 交卷的代碼如下： 39。 rstMain![題目編號 ] amp。 and 題目編號 =39。 amp。 chkAnswer(i).Caption End If Next i End If Set rst = New Recordset = pCN = select * from 考生答案 where 準考證號 =39。39。往考生表中寫入該考生的信息 rst![準考證號 ] = Text1 rst![考生姓名 ] = Text2 rst![考試套號 ] = pintSetNumber = select * from 題庫主表 where 題目套號 = amp。pintSetNumber = 1 Call GetSetNumber 39。39。39。如果該考生已經(jīng)登陸 If 0 Then 39。 = adUseClient = adLockBatchOptimistic = adOpenStatic 39。 Text1 amp。 5． 5 考生登陸模塊 設計了如下的界面： 這里面比較重要的代 碼如下，也就是考生驗證和試題抽取的代碼了： Private Sub Command1_Click() Dim rst As Recordset Dim rstAnswer As Recordset Dim i As Integer If Trim(Text1) = Then MsgBox 請輸入準考證號 !, vbInformation GoTo Proc_Exit End If If Trim(Text2) = Then MsgBox 請輸入考生姓名 !, vbInformation GoTo Proc_Exit End If Set rst = New Recordset = pCN = select * from 考生 where 準考證號 =39。 錯誤描述 : amp。 mlngID, pCN, adOpenStatic, adLockBatchOptimistic Else select * from 題庫主表 , pCN, adOpenStatic, adLockBatchOptimistic End If rst![題目編號 ] = Text3 If Then rst![題目類型 ] = False Else rst![題目類型 ] = True End If rst![題目內(nèi)容 ] = Text1 rst![題目分值 ] = Val(Text4) rst![題目答案 ] = UCase(Text5) rst![題目備注 ] = Text2 rst![題目套號 ] = mlngSubjectID Text1 = Text2 = Text3 = Text4 = Text5 = mblnEdit = False