《Excel進(jìn)階學(xué)習(xí)系統(tǒng)網(wǎng)絡(luò)版》的內(nèi)容設(shè)計(jì)方案與

信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)奉化中學(xué)王豐【摘要】新課程理念下的信息技術(shù)教學(xué)十分注意對(duì)同學(xué)學(xué)習(xí)的評(píng)價(jià)。評(píng)價(jià)也是在教學(xué)各環(huán)節(jié)中必不行少的一環(huán)，它的目的是檢查和促進(jìn)教與學(xué).因此,在日常教學(xué)中，便利、科學(xué)、有效的評(píng)價(jià)也顯得尤為重要。本文以20０6年會(huì)考導(dǎo)引中五套試卷為例,介紹了開發(fā)具有評(píng)價(jià)功能的訓(xùn)練復(fù)習(xí)型教學(xué)軟件的設(shè)計(jì)思路，以及如何使用VB６.０來簡(jiǎn)略實(shí)現(xiàn)試卷的抽取、各類試題的批改、成果的上傳和成果的導(dǎo)出統(tǒng)計(jì)等功能。【關(guān)鍵詞】評(píng)價(jià)教學(xué)軟件VＢ6．0批改程序教學(xué)軟件是一種依據(jù)教學(xué)目標(biāo)設(shè)計(jì)、表現(xiàn)特定的教學(xué)內(nèi)容、反映肯定教學(xué)策略的計(jì)算機(jī)教學(xué)程序。它可以用來存儲(chǔ)、傳遞和處理教學(xué)信息,能讓同學(xué)進(jìn)行交互操作，并對(duì)同學(xué)的學(xué)習(xí)做出評(píng)價(jià)的教學(xué)媒體。依據(jù)多媒體教學(xué)軟件的內(nèi)容與作用的不同，可以將多媒體教學(xué)軟件分為如下幾種類型：課堂演示型、同學(xué)自主學(xué)習(xí)型、模擬實(shí)驗(yàn)型、訓(xùn)練復(fù)習(xí)型、教學(xué)游戲型、資料工具型.由于我在平常教學(xué)中編寫的軟件基本上都是以試題的形式消滅,主要屬于同學(xué)自主學(xué)習(xí)型和訓(xùn)練復(fù)習(xí)型,所以下面我就簡(jiǎn)潔談?wù)勗陂_發(fā)這類教學(xué)軟件過程中的設(shè)計(jì)思路和技術(shù)實(shí)現(xiàn)。一、需求分析信息技術(shù)不同于其他學(xué)科,同學(xué)的學(xué)習(xí)過程和很多的實(shí)踐活動(dòng)都是在計(jì)算機(jī)上完成的，而且都以操作為主。那么，作為老師,我們?cè)鯓涌茖W(xué)有效的評(píng)價(jià)同學(xué)?怎樣隨時(shí)了解同學(xué)的學(xué)習(xí)情況?作為同學(xué)，怎樣進(jìn)行自主學(xué)習(xí)、自我測(cè)試？因此，開發(fā)具有試題批改和成果反饋功能的教學(xué)軟件是十分必要的。1、對(duì)老師來說，減輕了老師工作量,便利了老師對(duì)同學(xué)學(xué)習(xí)情況的了解.信息技術(shù)學(xué)科的試題主要是以操作題為主。而在平常的課堂教學(xué)中,老師也往往都會(huì)布置相應(yīng)的練習(xí)供同學(xué)測(cè)試以便了解同學(xué)的學(xué)習(xí)情況。所以老師對(duì)作業(yè)的批改和成果的統(tǒng)計(jì)分析是必不行少的,面對(duì)大量的操作類試題,老師一個(gè)個(gè)打開進(jìn)行查看或手動(dòng)批改，再統(tǒng)計(jì)分析成果,這樣不僅效率低,而且長此以往，勢(shì)必會(huì)給老師增加相當(dāng)多的工作量。所以讓計(jì)算機(jī)自動(dòng)批改并統(tǒng)計(jì)成果,可以減輕老師的工作量，讓老師把時(shí)間和精力都用在課堂教學(xué)以及提高教學(xué)效果上。２、對(duì)同學(xué)來說,有利于同學(xué)自主學(xué)習(xí),并激發(fā)了學(xué)習(xí)愛好.同學(xué)往往都有重視成果的心理,都想得滿分。所以,使用帶有批改和成果上傳功能的教學(xué)軟件容易激發(fā)同學(xué)的學(xué)習(xí)愛好和提高學(xué)習(xí)的樂觀性.他們?cè)诼犞v時(shí)都會(huì)全身心投入,做練習(xí)時(shí)有不懂的地方或不會(huì)做的題目都會(huì)樂觀的問老師問同學(xué)。就算有個(gè)別不認(rèn)真學(xué)習(xí)的同學(xué)，也會(huì)很快受到環(huán)境的影響而融入其中。想著為什么這兒會(huì)丟分,哪兒為什么操作得不對(duì)，并樂此不疲。而且，如今大部分同學(xué)家里都有電腦,所以同學(xué)除了在學(xué)校學(xué)習(xí)外，他們還可以在家里進(jìn)行自主學(xué)習(xí)、自我測(cè)試。二、總體設(shè)計(jì)軟件常見的結(jié)構(gòu)模式有：Ｃ/S結(jié)構(gòu)，即Clienｔ/Sｅrver（客戶機(jī)／服務(wù)器）結(jié)構(gòu)。B／Ｓ結(jié)構(gòu),即Browｓｅr/Ｓervｅr（掃瞄器/服務(wù)器）結(jié)構(gòu).C/Ｓ能充分發(fā)揮客戶端PＣ的處理能力,很多工作可以在客戶端處理后再提交給服務(wù)器.客戶端響應(yīng)速度快。主要適用于局域網(wǎng)環(huán)境，客戶端都要安裝客戶端軟件，應(yīng)用程序系統(tǒng)擴(kuò)展維護(hù)簡(jiǎn)潔?？蛻舳诵枰惭b專用的客戶端軟件.首先涉及到安裝的工作量,其次任何一臺(tái)電腦出問題,如病毒、硬件損壞,都需要進(jìn)行安裝或維護(hù)。還有，系統(tǒng)軟件升級(jí)時(shí)，每一臺(tái)客戶機(jī)需要重新安裝,其維護(hù)和升級(jí)成本格外高.B/S可以在任何地方進(jìn)行操作而不用安裝任何專門的軟件。客戶端只需標(biāo)準(zhǔn)的掃瞄器。系統(tǒng)的擴(kuò)展格外容易，只要能上網(wǎng),再由系統(tǒng)管理員安排一個(gè)用戶名和密碼，就可以使用了。采納Iｎtｅｒnet／Ｉnｔranｅt技術(shù),適用于廣域網(wǎng)環(huán)境?？蛻舳肆憔S護(hù)。軟件采納哪種結(jié)構(gòu),一般依據(jù)內(nèi)容和功能來選擇。這里我以２００６年編寫的會(huì)考導(dǎo)引練習(xí)軟件作為例子。本軟件采納C/S模式,軟件結(jié)構(gòu)如圖所示:主界面主界面各部分試題試卷內(nèi)容答題批改收卷程序接收成績(jī)保存成績(jī)上傳成績(jī)輸入姓名、服務(wù)器IP學(xué)生機(jī)教師機(jī)選擇試卷統(tǒng)計(jì)分析開發(fā)工具采納VisuaｌBasｉc6．０(簡(jiǎn)稱VB）。一是由于VB適合快速開發(fā)，相對(duì)于ＶＣ等開發(fā)軟件更易于上手,而且開發(fā)的效率高、周期短。二是由于woｒｄ、ｅｘcel等ｏfｆｉcｅ軟件里的宏都是ＶBA，而VBA是VＢ的一個(gè)子集，兩者可以很好的結(jié)合.而且利用宏可以幫助我們快速有效的寫出批改程序.三、簡(jiǎn)略設(shè)計(jì)1.界面設(shè)計(jì)與文件結(jié)構(gòu)由于ＶB6畢竟是wｉn9８時(shí)代的產(chǎn)物,所以在界面設(shè)計(jì)上，VB6的窗體和控件都是ｗiｎ98風(fēng)格,不美觀、缺乏時(shí)代感。雖然用vb200３/vb２０05來開發(fā)可以做出XP風(fēng)格的界面，但生成的應(yīng)用程序都需要。nｅｔfｒａmｅｗork平臺(tái)，脫離了這個(gè)環(huán)境則無法運(yùn)行，不適合在學(xué)校機(jī)房使用。所以,在使用VB6開發(fā)時(shí)應(yīng)盡可能自己編寫一些用戶控件來設(shè)計(jì)界面（當(dāng)然，如果只是以功能為主，那么可以不考慮這些)。在我編寫的這些軟件里,為了使用界面更加清爽時(shí)尚,能讓同學(xué)眼前一亮，所以整個(gè)軟件的界面顏色、按鈕樣式均仿照QQ窗口（界面風(fēng)格如圖所示）。采納了網(wǎng)上免費(fèi)的QQFrｏm和QQＢｕttoｎ這兩個(gè)用戶控件，使用方法和VＢ里的Froｍ、Buｔｔoｎ控件一樣.? (圖一)(圖二)界面設(shè)計(jì):依據(jù)上面的軟件結(jié)構(gòu)圖設(shè)計(jì)好界面。（對(duì)于功能相像的控件可以使用控件數(shù)組,以提高程序開發(fā)效率。）文件結(jié)構(gòu)：設(shè)計(jì)好每一套試卷的試題，并建立好相應(yīng)的名目。題目少可以用文本文件來存儲(chǔ)。為保證文本文件中信息的平安性,防止同學(xué)打開直接查看，可以轉(zhuǎn)變文本文件的擴(kuò)展名、轉(zhuǎn)變文本文件中答案的挨次、或?qū)Υ鸢高M(jìn)行加密等。題目多可以用Accesｓ數(shù)據(jù)庫來存儲(chǔ)。這樣只要給數(shù)據(jù)庫設(shè)置個(gè)密碼就可以保證題庫的平安性了.2．抽題設(shè)計(jì)好界面和題目后就可以編寫各功能模塊的代碼了。（下面主要介紹操作類試題的抽取、批改,選擇題部分較簡(jiǎn)潔,在此不作商量,網(wǎng)上也有很多的選擇題實(shí)例可供大家參考)當(dāng)同學(xué)選擇某一套試卷后,就要執(zhí)行抽題操作.抽題也就是依據(jù)同學(xué)的選擇將軟件名目下的題目復(fù)制到考試文件夾下.主要是對(duì)文件和文件夾進(jìn)行復(fù)制。對(duì)文件和文件夾進(jìn)行操作需要使用FSO(ＦiｌeＳystｅmObject）對(duì)象模型,FＳO的功能格外強(qiáng)大,它能創(chuàng)建、轉(zhuǎn)變、移動(dòng)、刪除文件/文件夾;能檢測(cè)文件／文件夾是否存在，文件/文件夾的路徑；能獵取文件／文件夾的信息，如：名稱、創(chuàng)建日期等.要使用FSO,首先必須在工程中引用MｉcｒosｏｆtSｃｒｉptiｎgRuｎtiｍe。抽題主要使用了ＦSO復(fù)制文件和復(fù)制文件夾這兩個(gè)方法，及CopyＦiｌe和CｏｐyFolｄｅr。部分代碼如下：PublｉｃＥx（５）AsＳtring＇定義一個(gè)字符串?dāng)?shù)組用于存放試卷名PｕｂliｃｆsoＡsNewＦilｅＳysteｍObjｅct＇定義一個(gè)fso對(duì)象PriｖａｔｅSｕｂForm_Loaｄ（)'窗體顯示時(shí)初始化Ex（）數(shù)組中的值Ｅx（1）=”試卷一"Eｘ(2)＝"試卷二＂Ｅx（3）＝"試卷三”Ex（４）＝"試卷四"Ex（５）="試卷五＂ＥnｄＳuｂ由于每一個(gè)抽題按鈕的功能都是類似的,唯一不同的就是所抽取的試題名稱不一樣，所以可以將抽題按鈕做成按鈕控件數(shù)組，以提高程序開發(fā)效率，也便于以后的源程序維護(hù).這樣,將試題的文件名用數(shù)組變量來表示,就可以用一段程序來實(shí)現(xiàn)全部按鈕的抽題功能。PrｉvateSubＢuttoｎ１＿Ｃlick(ＩｎｄexＡsIｎtｅｇeｒ）‘當(dāng)點(diǎn)擊某一套的按鈕后執(zhí)行抽題操作ｆsｏ.ＣｒｅaｔeFoｌder（“c:\考生文件夾”）‘在ｃ盤下建立考生文件夾，路徑和名目名可自已設(shè)定。ｆsｏ．CoｐyFilｅＡpp.Path&“\xxｊshk\eｘcel＼"＆Ex(ｉｎdex）&“。xls”，“C:\考生文件夾\”&Ex（ｉｎdeｘ）&“.xｌｓ”‘復(fù)制ｅxceｌ試題文件fsｏ。CopyFｏlderApp。Pａt(yī)h＆＂\xxｊshk＼WebDo＂，“C：\考生文件夾\WebＤo”‘復(fù)制網(wǎng)頁試題文件夾EｎdSｕb上述程度中主要以復(fù)制excｅl試題和網(wǎng)頁試題為例，復(fù)制其它試題方法類似.軟件中還有一些其它地方也會(huì)用到抽題操作。連續(xù)答題：比如同學(xué)在練習(xí)的過程中不當(dāng)心關(guān)閉了軟件,那么下次進(jìn)入之后當(dāng)然盼望連續(xù)答題而不是重新答題。所以這種情況需要推斷考生文件夾中試題是否存在，存在則不抽題，不存在則抽題。推斷文件或文件夾是否存在通常使用ｆsｏ的FiｌeEｘiｓtｓ()和FolderＥｘｉsts()方法。重做:及從考生文件夾中刪除要重做的試題，然后再抽題。刪除文件或文件夾主要使用fso的ＤeｌeteFｉlｅ(）和DelｅteFoldｅr（）方法。3。批改功能的實(shí)現(xiàn)?同學(xué)做完練習(xí)題后，需要點(diǎn)擊“批改”按鈕來反饋成果。信息技術(shù)教學(xué)中常見的操作試題類型有:wiｎｄoｗs操作題、ｗord操作題、Ｅｘcel操作題、Ｉnｔeｒｎet操作題、Fｒontpage操作題。下面分別介紹每一類操作題的批改原理.Wiｎdows操作題的批改沒有編寫過練習(xí)軟件的老師可能會(huì)覺得很難,我們?cè)趺粗劳瑢W(xué)有沒有對(duì)文件執(zhí)行新建、復(fù)制、剪切等操作呢？其實(shí)我們根本沒必要去知道,我們不行能去寫大量的代碼來截取捕獲鼠標(biāo)和鍵盤大事,看同學(xué)有沒有執(zhí)行這些操作，這樣有些小題大做了.其實(shí)wｉｎｄows操作題的批改格外的簡(jiǎn)潔,原理如下：[新建、刪除、重命名、復(fù)制、剪切、創(chuàng)建快捷方式]就是推斷該文件或文件夾是否存在。新建文件或文件夾在該名目下存在刪除文件或文件夾在該名目下不存在重命名改名前的文件或文件夾在該名目下不存在，并且改名后的存在復(fù)制文件或文件夾在源名目下存在,并且在目的名目下也存在剪切文件或文件夾在源名目下不存在，并且在目的名目下存在推斷文件夾是否存在：fso．FｏlderExiｓtｓ推斷文件是否存在：fsｏ。FｉleExｉｓts例如:Ifｆsｏ.FolｄerExｉsts（”C：＼試卷二\WinＷo(hù)ｒk\Ｆｌower\Bmp")=TrueＴｈｅnｓｃoｒe=ｓcore+５Iｆｆso．FileExiｓtｓ("C：\試卷一\ＷｉnWｏrk\Nｏip＼a．pas”)＝TｒueThｅnsｃore=ｓcoｒe＋5[設(shè)置墻紙、屏保］主要就是讀取注冊(cè)表中相關(guān)的鍵值。VB讀取注冊(cè)表：可以使用ＡＰＩ函數(shù)ReｇOpenＫeｙEｘ、ReｇＱueryＶaｌｕｅEx、RegＣｌｏｓeＫｅy來對(duì)注冊(cè)表進(jìn)行打開、查詢等操作,并通過讀取相對(duì)應(yīng)的鍵值來推斷墻紙、屏保的設(shè)置.墻紙?jiān)谧?cè)表中的路徑為：HKEY_CURREＮT_ＵSＥR＼ＣoｎtｒoｌＰａneｌ\Deskｔｏp\Wallｐapeｒ屏保在注冊(cè)表中的路徑為:HKＥY_CURRＥＮT_ＵSＥR＼ConｔｒｏｌPanel＼Desｋtoｐ\SCRNＳAVE。EXEExcel/Word操作題的批改Ｅxcel和Woｒd同屬于OFFICE，所以它們的批改方法也類似，這里以Excｅl為例。對(duì)于Eｘｃeｌ練習(xí)題的批改其實(shí)就是VB在后臺(tái)打開Exｃeｌ工作表,并使用內(nèi)置的VBA函數(shù)對(duì)Eｘcel工作表中的對(duì)象進(jìn)行推斷。為了能在VB中調(diào)用Exｃｅl對(duì)象,首先必須在VＢ工程中引用“MicｒoｓofｔExcｅl1１。０ＯbjectＬibrarｙ”（如果是wｏｒd，則引用“Ｍiｃrosoftwｏrd１1.0OｂjｅctLibrary”)。一般可以通過如下的挨次來對(duì)ＥXCEL文件進(jìn)行批改：打開Excel打開Excel設(shè)置當(dāng)前工作表選擇一個(gè)單元格或區(qū)域進(jìn)行判斷關(guān)閉Excel比如要打開C盤下“練習(xí)1.xls”：Workbooks.Open("C:\練習(xí)1.xls")比如設(shè)置Sheet1為當(dāng)前活動(dòng)工作表：Sheets("Sheet1").Activate單元格的表示：Range(“列號(hào)行號(hào)”)例：Range("A1")區(qū)域的表示：Range(“列號(hào)行號(hào)：列號(hào)行號(hào)")例：Range("A1:D5")選擇一個(gè)單元格或區(qū)域：select例：Range("A1:D5").Select，則以后就可以用Selection來表示Range("A1:D5")。Workbooks.Close例如：推斷C:\練習(xí)1．xlｓ文件Ｓｈeｅt1工作表中的A1:D５單元格中的文字是否為宋體：Workbooks。Open（”C：\練習(xí)1。xｌs"）Ｓheｅts(”Sheet１”）.AｃｔｉvatｅRａnｇe（"A1：Ｄ5＂）。SelｅctＩfＳeleｃtioｎ。Ｆｏnt．Name＝”宋體"Tｈenscｏre＝score+5了解了工作表、單元格、區(qū)域的表示方式后,我們就能寫出EXＣＥL中各種常見操作的批改程序了。可是Exｃｅｌ中的對(duì)象以及它們的方法、屬性都格外多，我們?cè)跄芏加涀∧?其實(shí)我們完全沒必要都登記來,我們可以借助對(duì)象掃瞄器來查看Ｅxceｌ對(duì)象的方法、屬性(在VＢ中選擇菜單［視圖］[對(duì)象掃瞄器］Exceｌ庫).這樣，以后要用到哪個(gè)屬性或者方法只需要到對(duì)象掃瞄器中查找就可以了。下面再介紹一下ＥＸCEL里常見的兩個(gè)操作（公式/函數(shù)、排序）的批改方法。公式/函數(shù)[]中的數(shù)值為相對(duì)當(dāng)前單元格的位置(R：行的相對(duì)位置）上[]中的數(shù)值為相對(duì)當(dāng)前單元格的位置(R：行的相對(duì)位置）上–,下+（C:列的相對(duì)位置）左–，右+單元格公式/函數(shù)的表示：Range(列行).FormulaR1C1=公式/函數(shù)公式/函數(shù)中單元格的表示：R[]C[]例如:下面表格中F3單元格的求總分公式和函數(shù)可表示為:Range(“F3").FormulaR1C1="=SUM(RC[-4]:RC[-1])"Range(“F3").FormulaR1C1="=SUM(RC[-4]:RC[-1])"Range(“F3").FormulaR1C1="=RC[-4]+RC[-3]+RC[-2]+RC[-1]"了解了F３單元格的公式和函數(shù)的表示后,其他幾個(gè)單元格是否也要一一列出呢?其實(shí)可以直接用一個(gè)fｏr循環(huán)來實(shí)現(xiàn):Fori=3To７ＩfRaｎge（“F"＆i）．ＦormulａR1C1=”＝ＳＵM(ＲC[—4]:RC［-１]）"Ｔheｎscoｒe=scoｒｅ+1Ｎｅxt排序:也就是將相鄰的兩個(gè)單元格進(jìn)行兩兩比較。例：將上面的同學(xué)成果表按語文成果從高到低排序：DｉmfｌaｇＡｓＢoｏlｅaｎＦlag=TrueFｏri=3Tｏ６ＩfＶal（Raｎge(“B"＆i）．Teｘｔ)＜Vａｌ（Ｒａｎge(“B”＆i+1).Tｅxt)ＴhenFlaｇ＝ＦalｓｅExｉtＦorＥndＩｆＮextＩfFlag=TｒueTｈenscｏre=scorｅ＋５[小技巧]EXCEL里還有很多的操作，比如：數(shù)據(jù)篩選、分類匯總、建立圖表等，這些操作的批改程序也相對(duì)簡(jiǎn)潔一些，我們不會(huì)寫怎么辦呢?其實(shí)沒關(guān)系，我們可以利用EＸCEL的宏來幫助我們快速的寫出批改程序。首先打開要寫批改程序的EXCEL文件,并錄制一個(gè)新宏,然后把全部的試題做完,完成后停止錄制并查看生成的宏。這時(shí)我們會(huì)發(fā)現(xiàn),我們做題的過程已全部被錄制到宏里面了,現(xiàn)在我們只需要把宏里自動(dòng)生成的VBA語句稍作修改就能直接復(fù)制到VＢ程序中使用.對(duì)于oｆfiｃe里的其它的軟件（比如:Worｄ、PｏwerPｏiｎt)的批改都可以使用這種方法。IE操作題的批改[下載圖片、文字、文件]方法與wiｎdows操作題中文件操作的推斷類似，也就是推斷這些圖片、文本等文件在該名目下是否存在.為使批改更加精確,也為了防止同學(xué)在做題時(shí)投機(jī)取巧，可以在此基礎(chǔ)上再推斷該圖片的大小和文本文件里的文字內(nèi)容，從而推斷出這些圖片和文本文件是否來自該網(wǎng)頁。[設(shè)置IE主頁、歷史記錄天數(shù)]通過讀取注冊(cè)表里鍵值來推斷，方法和屏保、墻紙的推斷類似。例:推斷IE主頁是否是“wｗw.ｂaｉdｕ.com”就是推斷HKEＹ＿CURRENT_ＵＳEＲ＼Sofｔwａre＼Microsｏfｔ＼ＩntｅrnetＥｘploｒｅr\Ｍａｉn\ＳtａｒtPaｇe的鍵值是否是“www．ｂaiｄu．ｃom"。FroｎtＰaｇｅ網(wǎng)頁制作操作題的批改要對(duì)網(wǎng)頁進(jìn)行批改,首先必須了解網(wǎng)頁文件，網(wǎng)頁到底是什么文件？通過查看源文件我們會(huì)發(fā)現(xiàn)網(wǎng)頁其實(shí)就是文本文件，只不過里面的內(nèi)容都是用html標(biāo)記來顯示的。同學(xué)對(duì)網(wǎng)頁的操作都會(huì)反映在ｈtml源文件里.所以要批改網(wǎng)頁文件，只要像讀取文本文件那樣讀取整個(gè)網(wǎng)頁源文件,然后分析里面的html代碼就可以了。讀取文件既可以用傳統(tǒng)的I/O語句也可以用FＳＯ對(duì)象模型來讀取，這里以FＳO為例,例如要讀取Ｃ：\試卷一\ＷeｂDo\index.htm，則可以用下列程序：p＝＂c：\試卷一\WebDｏ＼ｉndｅx．hｔm”Seｔfil=fso。ＧｅtFiｌe（p）Seｔts=fil.OpenAｓTextStream(FｏrＲeadinｇ）fｐｓｔr=ts．ReａｄAlltｓ.Clｏsｅ這樣就可以把整個(gè)網(wǎng)頁文件讀取，而要推斷網(wǎng)頁源文件里的某一步操作，則必須定位到此操作所對(duì)應(yīng)的這段hｔｍl代碼。定位通常要用到字符串查找函數(shù)InＳtr。例如:推斷表格邊框粗細(xì)是否為0。Fpｓtr1=＂borｄｅr=＂”0”"＂n１=ＩnＳtr(１，fｐstｒ,＂＜taｂle”，1)ｎ2=InStｒ（1，ｆpstｒ,”<ｔr＂,1）ｆp1=Mid＄（fpstｒ，n１，n2—n１)ＩfInStｒ(1，ｆｐ1，fｐstr1，1）Ｔhｅnｓcore=ｓｃｏrｅ+５但是,如果我們要查找的字符在hｔｍl中有多個(gè),我們?cè)撛鯓佣ㄎ荒?通?？梢允褂孟铝袃煞N方法來定位。［逐步求精法］通過分析網(wǎng)頁源文件，逐步縮小定位的范圍并讀取該操作所對(duì)應(yīng)的部分ｈtｍｌ代碼。例如:推斷是否在表格的第３行第１列的單元格里插入圖片ｈｕ.jpg（由于網(wǎng)頁源文件里有很多”＜ｔr"、"〈td”標(biāo)記，所以可以通過一個(gè)ｆoｒ循環(huán)來定位到第３行第1列單元格）.ｎ=1Forｉ＝1Ｔｏ３ｎ=ＩnSｔｒ（n＋4，fｐｓｔr，”〈tr”，1)Nｅxtｎ１=ＩnStr(n，fpｓｔr，"<td”，１）ｎ2=IｎSｔr（ｎ，fpstr,"＜／td〉＂,1)fp３＝Mid＄（fpstr,n,n2－n1+5）fpｓtｒ１=”＜ｉmg＂ｆpsｔｒ2=＂hu．jｐg”ＩfInＳtr(1，fｐ3，fpsｔｒ1，1）ＡnｄＩnＳtr(１，fp3，ｆｐsｔr2，１）Thensｃore=scoｒe+5?當(dāng)網(wǎng)頁中的內(nèi)容很多或頁面設(shè)計(jì)很簡(jiǎn)潔時(shí),那么使用逐步求精法會(huì)顯得較繁瑣。這時(shí)我們可以使用注釋法來進(jìn)行ｈtｍl定位。[注釋法］由于在網(wǎng)頁源文件里添加注釋不會(huì)對(duì)網(wǎng)頁產(chǎn)生任何影響，所以我們可以在需要定位的htmｌ代碼前后加上一段注釋,然后通過讀取注釋來定位（ｈtmｌ中的注釋符為〈!—－-—>).如前面的例子：推斷是否在表格的第３行第１列的單元格里插入圖片hｕ。jpg。首先可以在第3行第１列的單元格所對(duì)應(yīng)的hｔmｌ代碼前后隨便加上一些注釋，假設(shè)分別加上〈!——注釋A-—>和＜!——注釋B－-〉n1＝ＩｎStr(1,fpstｒ，”<!--注釋A-—＞"，1）n2=InSｔｒ（1，ｆpｓｔr，＂〈！—－注釋B——〉”,1）fp3＝Ｍid＄（fpｓtr，ｎ１,n2-n1)fpsｔｒ1＝"〈ｉmg＂IfInSｔｒ(1,fｐ3，fpｓtｒ1,１)AndInStｒ（1，ｆｐ3，fpsｔr2,１）Tｈｅｎｓcore＝ｓcoｒｅ+５?通過這個(gè)例子我們可以看出，使用注釋法可以快速精確的定位,比逐步求精法便利且效率高。但同學(xué)在操作網(wǎng)頁的過程中有可能會(huì)在不知情的情況下將注釋刪掉從而導(dǎo)致批改程序找不到注釋而無法正確批改。兩種方法各有利弊，可依據(jù)網(wǎng)頁實(shí)際情況來選擇相應(yīng)的方法.試題批改是整個(gè)教學(xué)軟件的核心內(nèi)容，編寫批改程序的工作量也是相當(dāng)大的。所以,寫好的程序必須反復(fù)調(diào)試，而且由于同學(xué)對(duì)一道題目可能有不同的做法，所以還必須對(duì)不同的做法分別寫出相對(duì)應(yīng)的批改程序，充分考慮到全部可能的情況。4．成果上傳功能的實(shí)現(xiàn)?當(dāng)同學(xué)點(diǎn)擊上傳成果按鈕時(shí),可以將同學(xué)氣的計(jì)算機(jī)名、IＰ地址、同學(xué)姓名、分?jǐn)?shù)這四個(gè)信息發(fā)送到老師機(jī).要實(shí)現(xiàn)局域網(wǎng)中數(shù)據(jù)通信，需要用到Ｗｉnsoｃk控件。Ｗinsocｋ是windｏｗs供應(yīng)的網(wǎng)絡(luò)編程接口,它供應(yīng)了基于TＣP/ＩP(傳輸掌握協(xié)議/網(wǎng)間協(xié)議）協(xié)議的接口實(shí)現(xiàn)方法。ＴCP/ＩP協(xié)議供應(yīng)兩種通信方式:TCＰ方式和UDＰ方式。TCP是一種面對(duì)連接的服務(wù)，它在兩個(gè)主機(jī)之間建立連接，供應(yīng)雙向、有序且無重復(fù)的數(shù)據(jù)流服務(wù),以及流量掌握、差錯(cuò)檢測(cè)和糾錯(cuò)等服務(wù),保證數(shù)據(jù)的牢靠傳輸.ＵＤP是一種雙向的無連接數(shù)據(jù)服務(wù)，它把數(shù)據(jù)發(fā)送出去但并不進(jìn)行差錯(cuò)掌握和檢查，所以不能保證數(shù)據(jù)的牢靠性,因而一般只用于少量數(shù)據(jù)的傳輸.采納哪種協(xié)議,通?？梢钥紤]以下幾點(diǎn)：在收發(fā)數(shù)據(jù)過程中是否需要對(duì)方確認(rèn)或應(yīng)答?數(shù)據(jù)是否很多？數(shù)據(jù)傳輸質(zhì)量要求是否很高?數(shù)據(jù)發(fā)送是間歇的還是一次會(huì)話？因考慮到流量小、資源占用少，可以采納UDP協(xié)議。在窗體上添加一個(gè)Winｓｏcｋ控件(Wiｎsｏcｋ1），在其屬性中設(shè)置為UDP協(xié)議，并對(duì)Ｗiｎｓoｃk1的本地端口、遠(yuǎn)程主機(jī)端口、遠(yuǎn)程主機(jī)IＰ地址進(jìn)行初始化。為什么要設(shè)置IＰ和端口號(hào)呢？由于通過網(wǎng)絡(luò)進(jìn)行數(shù)據(jù)通信，需要用地址來標(biāo)識(shí)網(wǎng)絡(luò)中的主機(jī),這樣才能保證數(shù)據(jù)正確的發(fā)送到主機(jī)。TCＰ／ＩP協(xié)議使用ＩＰ地址作為網(wǎng)絡(luò)中的標(biāo)識(shí),從而實(shí)現(xiàn)通過ＩP地址建立彼此之間的聯(lián)系。通常情況下,由于每臺(tái)主機(jī)上運(yùn)行不止一個(gè)應(yīng)用程序，所以為使應(yīng)用程序間建立連接,還需要一個(gè)地址標(biāo)識(shí),也就是端口號(hào)。在ＴＣP/IP協(xié)議中使用端口來作為主機(jī)上運(yùn)行的應(yīng)用程序的標(biāo)識(shí)號(hào)。因此，TCＰ/IＰ協(xié)議中一個(gè)有效的網(wǎng)絡(luò)地址包括IＰ地址和端口地址。如圖:IP地址IP地址端口地址標(biāo)識(shí)主機(jī)標(biāo)識(shí)主機(jī)上的應(yīng)用程序Wiｎｓoｃk１.Pｒotｏcｏｌ=ｓckＵDPProtocoｌWiｎｓock１。RemｏteHｏsｔ＝“１９2．16８．０.１”Winsocｋ1．RｅmｏtｅＰoｒt=4０22其中本地和遠(yuǎn)程主機(jī)端口可自由設(shè)定(1-６553５）,但不要使用一些系統(tǒng)默認(rèn)的端口（比如:8０(ｈttp)，２1(FTP），1１0(電子郵件ＰOP３)）和常用端口（比如：ＱQ談天軟件端口8000、８080等），以免沖突。使用Wiｎsock的ＳｅndDaｔa方法即可實(shí)現(xiàn)數(shù)據(jù)發(fā)送.上傳的各個(gè)數(shù)據(jù)之間用#號(hào)來連接，那么服務(wù)器端程序接收到這些數(shù)據(jù)后就可以按＃來分割出每個(gè)信息。senｄｔxt=Ｗinsock1．LoｃａlIP＆"＃"&Wｉnsock1。LoｃalHｏｓｔNａmｅ＆"＃＂&UserNaｍｅ&”＃＂＆ＵsｅrSｃoreWinｓocｋ１。SendDaｔaｓendｔxｔ５．老師機(jī)收卷程序的實(shí)現(xiàn) 在VＢ中新建一工程，并設(shè)計(jì)好用來顯示同學(xué)成果的界面。并添加一個(gè)Wｉnsｏck控件（Ｗｉｎsｏck1），設(shè)置其傳輸協(xié)議為UＤP協(xié)議，并設(shè)置Wiｎｓock1的本地端口（此處的本地端口應(yīng)和同學(xué)端中的Winsock1的遠(yuǎn)程主機(jī)端口全都)。Winsoｃk1．Prｏtocｏｌ=ｓｃｋU(xiǎn)DPＰrotocoｌWinsock1．LocａｌPｏrt=4022Winsocｋ1。Bｉnd4022并定義全局變量數(shù)組用于存放接受到的消息。總共能接受２00人的成果。（數(shù)組長度可自定）Pｒｉvateｉｐ_stｒ（2００)AｓStrinｇPrivatenａmｅ_str(200）AｓStrｉngPrivaｔeuｓeｒname＿stｒ(２００）ＡsＳtrｉngPrivateｓcｏｒｅ＿str（20０)AsStringＰｒiｖａt(yī)eiAsＩntegｅr當(dāng)有消息來臨時(shí),會(huì)觸發(fā)Ｗinsｏｃk1＿DataArｒivａｌ大事。在Winsoｃk1_DataＡrｒｉval大事里輸入如下代碼用來接收并顯示相關(guān)的信息：同學(xué)氣器名、ＩＰ、姓名、分?jǐn)?shù)(效果如圖三）.Wiｎsock１。GetDａt(yī)aｒec,ｖbStringsｔｉnfo=Ｓplｉt（ｒｅｃ，”#”）tｅxｔ１.tｅｘｔ=stinfｏ(０)＋stinｆo(1)＋stinfｏ(２)+stiｎfo（３)＋Chr(10）+Ｃhr（１3)ｉ＝i+1ip＿sｔｒ（ｉ）=stinｆo（0）naｍe_sｔｒ（ｉ）＝ｓtinfo(１)ｕserｎａme_ｓｔr（ｉ）=stｉnfo（2）scoｒe＿str（i)＝ｓｔinｆｏ(３)(圖三）老師端程序之所