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

方偉

本文先利用VB6.0 對考試要求、評分源碼和考試文件進行封裝、釋放，再利用 jsfl文件對學生完成后的fla文件進行分析，最后利用VB6.0匯總成績添加到問卷星答卷收錄。

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

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

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

打開VB6.0程序，打開VB資源編輯器，將需要學生操作的源文件拖放到對話框。然后將待操作文件封裝在程序中，在登錄窗口寫入以下代碼：

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

二、在“問卷星”中新建一個考卷，存放學生成績

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

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

三、學生登錄界面的設置與記錄

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

四、做題要求界面的設置

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

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

Private Sub Option1_Click（）

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

……

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

重做按鈕讓源文件復制覆蓋學生操作文件即可。

交卷按鈕 Private Sub Command4_Click（） 中重復一下評分部分代碼，將 MsgBox 部分刪除，關閉程序后在“C：＼test”中就可以找到自己哪幾個小題做對了。這樣，不僅問卷星上有學生成績記錄，學生電腦端也有成績記錄，方便遠程查看和本地核對。

作者單位：山東省萊州市土山中學