利用VB6.0實(shí)現(xiàn)學(xué)生居家Flash操作監(jiān)測(cè)考試與練習(xí)

方偉

本文先利用VB6.0 對(duì)考試要求、評(píng)分源碼和考試文件進(jìn)行封裝、釋放，再利用 jsfl文件對(duì)學(xué)生完成后的fla文件進(jìn)行分析，最后利用VB6.0匯總成績(jī)添加到問(wèn)卷星答卷收錄。

Flash操作被多個(gè)地區(qū)作為了初中信息技術(shù)的必考科目，如怎樣讓學(xué)生隨時(shí)知道自己的操作是否正確，是否有疏漏，培養(yǎng)學(xué)生的獨(dú)立思考和自我糾錯(cuò)的自學(xué)能力，并且讓教師詳細(xì)了解每個(gè)學(xué)生的做題情況。尤其是在疫情網(wǎng)課和周末學(xué)生居家期間，了解學(xué)生的真實(shí)學(xué)習(xí)情況是近幾年擺在我們面前亟待解決的問(wèn)題。

經(jīng)過(guò)長(zhǎng)時(shí)間研究，筆者通過(guò)讓VB6.0即時(shí)書(shū)寫(xiě)jsfl評(píng)分文件，然后讓jsfl文件對(duì)學(xué)生操作后的fla文件進(jìn)行分析，最后讓VB6.0將分析添加到問(wèn)卷星答卷，可以實(shí)現(xiàn)遠(yuǎn)距離了解與掌控學(xué)生考試或練習(xí)情況的效果。具體作法如下。

一、考試文件的封裝與釋放

打開(kāi)VB6.0程序，打開(kāi)VB資源編輯器，將需要學(xué)生操作的源文件拖放到對(duì)話(huà)框。然后將待操作文件封裝在程序中，在登錄窗口寫(xiě)入以下代碼：

這樣，學(xué)生在執(zhí)行程序時(shí)候，會(huì)將源文件自動(dòng)釋放到學(xué)生電腦“c：＼源文件”目錄下，方便調(diào)用。

二、在“問(wèn)卷星”中新建一個(gè)考卷，存放學(xué)生成績(jī)

如果教師自己租用服務(wù)器、網(wǎng)絡(luò)空間和域名，需要一筆很大開(kāi)支，而免費(fèi)的服務(wù)器又太慢太卡，還會(huì)受到種種限制。經(jīng)過(guò)筆者不斷摸索，發(fā)現(xiàn)“問(wèn)卷星”免費(fèi)提供的在線(xiàn)考試可以遠(yuǎn)程記錄考試內(nèi)容和分?jǐn)?shù)。

登錄“問(wèn)卷星”網(wǎng)址“https：//www.wjx.cn”，新建試卷，設(shè)置好姓名，題型都用填空題。教師可以根據(jù)填空內(nèi)容設(shè)置分?jǐn)?shù)，完成后發(fā)布，并記下試卷的網(wǎng)址。學(xué)生每次評(píng)分或提交試卷，讓程序在相應(yīng)的位置填寫(xiě)數(shù)據(jù)。這樣，教師只需查看每個(gè)學(xué)生每道題目的得分，就可以有的放矢地進(jìn)行個(gè)別指導(dǎo)。

三、學(xué)生登錄界面的設(shè)置與記錄

在VB6.0程序中新建窗體，名稱(chēng)改為“deng”。工程引用勾選 Microsoft Internet Controls。在窗體中繪制一個(gè)Label 標(biāo)簽，Caption 改為“姓名”，右側(cè)繪制一個(gè)Text 文本框。下方繪制一個(gè)Command 按鈕，Caption改為“登錄”。再在窗體邊緣繪制一個(gè) WebBrowser 網(wǎng)絡(luò)控件，讓控件在顯示窗體外防止篡改。接著添加一個(gè)Timer 控件，Interval 設(shè)置為 500。

四、做題要求界面的設(shè)置

再新建一個(gè)窗體，名稱(chēng)改為“zuo”。在窗體中靠左上角繪制一個(gè)文本框，用于展示題目要求。右側(cè)繪制幾個(gè)Option按鈕，。下方并列繪制四個(gè)Command按鈕，Caption分別改為“演示”、“評(píng)分”、“重做”、“交卷”。在下方繪制一個(gè)Image 控件，展示需要完成的效果圖。程序運(yùn)行時(shí)將需要讓學(xué)生完成的fla文件、演示視頻、效果圖文件釋放到“C：＼源文件”文件夾中，方便調(diào)用。

文本框中顯示題目要求代碼：

Private Sub Option1_Click（）

Text1.Text = "1.請(qǐng)打開(kāi)試卷目錄C：＼EXAM中“走迷宮.fla”，按要求完成下列操作：" & vbCrLf Text1.Text = Text1.Text & "①將“背景2” 圖層重命名為“標(biāo)題”，并在第1幀插入文字“走迷宮”，設(shè)置文字為黑體，字號(hào)40。" & vbCrLf

……

If Dir（"C：＼EXAM ＼走迷宮.fla"） = "" Then FileCopy "C：＼源文件＼走迷宮.fla"， "C：＼EXAM＼走迷宮.fla"

重做按鈕讓源文件復(fù)制覆蓋學(xué)生操作文件即可。

交卷按鈕 Private Sub Command4_Click（） 中重復(fù)一下評(píng)分部分代碼，將 MsgBox 部分刪除，關(guān)閉程序后在“C：＼test”中就可以找到自己哪幾個(gè)小題做對(duì)了。這樣，不僅問(wèn)卷星上有學(xué)生成績(jī)記錄，學(xué)生電腦端也有成績(jī)記錄，方便遠(yuǎn)程查看和本地核對(duì)。

作者單位：山東省萊州市土山中學(xué)