朱家龍

摘要：目前高校課堂普遍存在學(xué)生積極性不高，課堂氛圍壓抑沉悶的問題。為了提高學(xué)生參與課堂的積極性，改善教學(xué)質(zhì)量，提出并設(shè)計了基于Visual Basic的隨機提問系統(tǒng)。該系統(tǒng)的代碼編輯部分主要是由Randomize語句和Rnd語句構(gòu)成，該代碼主要實現(xiàn)的功能是可以隨機產(chǎn)生一位被提問學(xué)生。由于隨機產(chǎn)生，減少了學(xué)生的反感情緒并且改變了課堂氛圍。通過在不同課程的課堂進行使用該系統(tǒng)，其效果證明了該系統(tǒng)的實用性和有效性。

關(guān)鍵詞：隨機提問系統(tǒng);Visual Basic;Randomize語句;Rnd語句

中圖分類號：TP311 ? ? ? ? 文獻標(biāo)識碼：A

文章編號：1009-3044（2019）15-0148-02

Abstract： At present， students' enthusiasm is not high and the classroom atmosphere is depressing. In order to improve the enthusiasm of students to participate in the classroom and the quality of teaching， a random questioning system based on Visual Basic is proposed and designed. The code editing part of the system is mainly composed of Randomize statement and Rnd statement. The main function of the code is to randomly generate a student to be questioned. As a result of random production， it reduces students' negative feelings and changes the classroom atmosphere. By using the system in different classes， the effectiveness of the system has proved its practicability and effectiveness.

Key words： Random Questioning System; Visual Basic; Randomize; Rnd

1 背景

課堂提問是一種教師用于檢查學(xué)生出勤、考核學(xué)生知識掌握程度的常用教學(xué)方法。此方法的應(yīng)用能夠幫助學(xué)生參與課堂的積極性，給予教師適時有效的教學(xué)效果反饋。然而，在高校課堂上，傳統(tǒng)的課堂提問，即以學(xué)生花名冊為主要工具的方法，不僅分散了教師的注意力，還在一定程度上引起了部分學(xué)生的抵觸情緒，主要表現(xiàn)為不愿積極主動回答問題，或反感自己常被教師點到的“不公平”。這一問題的出現(xiàn)影響了學(xué)生主動參與課堂的積極性、教學(xué)效果的反饋和教學(xué)質(zhì)量的提高。

為了解決克服傳統(tǒng)課堂提問方式帶來的弊端，研究者提出一種基于VB（Visual Basic）的隨機提問系統(tǒng)，該系統(tǒng)可以幫助教師隨機提取一位同學(xué)回答問題，首先，隨機的方式具有一定的公平性，當(dāng)學(xué)生被抽中時，其內(nèi)心不會出現(xiàn)對老師反感的情緒，而教師也可以通過隨機抽取學(xué)生的這一過程，提高學(xué)生的注意力和改變課堂氛圍。本文設(shè)計的基于VB的隨機提問系統(tǒng)在課堂上應(yīng)用，并收到良好效果，證明該系統(tǒng)的有效性和實用性。

2 基于VB的隨機提問系統(tǒng)實現(xiàn)

隨著科技的不斷進步，教室的多媒體也不斷完善，其中，為了提高教學(xué)效率，應(yīng)用計算機進行教學(xué)時普遍現(xiàn)象，此外，VB作為大學(xué)生應(yīng)掌握的軟件，所以每間教室的計算機均應(yīng)安裝，這也是隨機提問系統(tǒng)要基于VB的原因。值得一提的是，VB生成的應(yīng)用工程可以在未安裝VB的環(huán)境下依然可以使用，但不能進行設(shè)置[1-3]。

2.1 隨機提問系統(tǒng)的設(shè)計

本文設(shè)計的隨機提問系統(tǒng)核心是用到VB中的Randomize語句（初始化隨機數(shù)生成器）和Rnd語句（返回一個包含隨機數(shù)值的Single）[4]，Randomize用number將Rnd函數(shù)的隨機數(shù)生成器初始化，該隨機數(shù)生成器給number一個新的種子值。如果省略number，則用系統(tǒng)計時器返回的值作為新的種子值。本文的number用學(xué)生的學(xué)號或姓名，number的值決定了Rnd生成隨機數(shù)的方式。之所以對最開始給定的種子都會生成一樣的數(shù)列，是因為每次調(diào)用Rnd函數(shù)都用數(shù)列中的前一個數(shù)作為下一個數(shù)的種子。在調(diào)用Rnd之前，使用無參數(shù)的Randomize語句初始化隨機數(shù)生成器，該生成器具有根據(jù)系統(tǒng)計時器得到的種子。為了生成某一范圍內(nèi)的隨機數(shù)，具體公式為

式中，upperbound是隨機數(shù)范圍的上限，而lowerbound為隨機數(shù)范圍的下限。值得一提的是，若想得到重復(fù)的隨機數(shù)序列，在使用具有數(shù)值參數(shù)的Randomize之前直接調(diào)用具有負參數(shù)值的Rnd。使用具有相同number值的Randomize是不會得到重復(fù)的隨機數(shù)序列的。

具體的VB程序代碼編輯如下所示：

Dim l As Integer

Dim a（100） As String

Dim b（100） As Boolean

Private Sub Command1_Click（）

Timer2.Enabled = True

Timer1.Enabled = True

End Sub

Private Sub Command3_Click（）

For i = 0 To l - 1

b（i） = True

Next i

End Sub

Private Sub Timer1_Timer（）

x = Int（Rnd * l）

If b（x） Then Label1.Caption = a（x）

End Sub

Private Sub Form_Load（）

Randomize

Open "student.txt" For Input As #1

l = 0

Do Until EOF（1）

Line Input #1， a（l）

l = l + 1

Loop

For i = 0 To l - 1

b（i） = True

Next i

End Sub

Private Sub Timer2_Timer（）

Timer1.Enabled = False

For i = 0 To l - 1

If Label1.Caption = a（i） Then b（i） = False

Next i

Timer2.Enabled = False

End Sub

2.2 隨機提問系統(tǒng)的窗體布局

將VB的代碼編輯完成后，進行窗體布局，考慮到實用性和簡潔性，設(shè)計的窗口不應(yīng)過大，設(shè)計的主體及學(xué)號不顯示部分要醒目，在設(shè)計過程中應(yīng)使用亮麗的顏色，本文設(shè)計的窗體布局如圖1所示。

圖1中，將學(xué)生的姓名用亮黃色顯示，以黑色為底，這樣可以更加顯著的突出重點;提問按鈕主要用于提問學(xué)生時使用;當(dāng)繼續(xù)提問時，可以按重置按鈕進行繼續(xù)提問，當(dāng)然，不安也可以正常使用。

3 隨機提問系統(tǒng)在教學(xué)中的應(yīng)用研究

3.1 隨機提問系統(tǒng)的使用方法

首先，將學(xué)生的姓名放在建立的txt類型文檔中，其命名為student.txt，文檔中的姓名或?qū)W號的排列方式如圖2所示。

其次，點擊提問按鈕，黑色屏幕內(nèi)的學(xué)生姓名就會產(chǎn)生滾動變換的效果，過一定的時間黑色屏幕內(nèi)就會隨機產(chǎn)生一位學(xué)生姓名。此外，為了保證下一次提問的公平性和系統(tǒng)運行的合理性，按一下重置按鈕即可。當(dāng)學(xué)生未正確作答或態(tài)度不端正，可以設(shè)定懲罰機制，即在student.txt中增加一次該同學(xué)的姓名，這樣他被抽中的概率將會增加。經(jīng)過5000次提問數(shù)據(jù)統(tǒng)計，發(fā)現(xiàn)每個人被提問到的次數(shù)大體一致，這證明了該隨機提問系統(tǒng)的隨機性和公平性。

3.2 隨機提問系統(tǒng)的課堂使用效果

當(dāng)本文設(shè)計的隨機提問系統(tǒng)在不同課程的課堂進行使用時，其表現(xiàn)的共性主要是，首先，學(xué)生對于這種新穎的提問方式表示好奇，吸引絕大多學(xué)生的注意力。當(dāng)屏幕滾動的時候，所有學(xué)生都在期待被提問者的產(chǎn)生，導(dǎo)致課堂非常安靜。當(dāng)被提問的學(xué)生隨機產(chǎn)生時，整個教室又會突然會歡呼起來，這種表現(xiàn)主要是由于慶幸自己未被抽中，此外，抽中的同學(xué)并沒有表現(xiàn)出反感情緒，這主要是因為，他自己也清楚，這是隨機產(chǎn)生的，并非人為選擇。從課堂使用效果可以證明該隨機提問系統(tǒng)的實用性。

4 結(jié)論

本文通過分析目前課堂中存在不良氛圍，以及教師提問存在主觀性的問題，提出并設(shè)計了基于VB的隨機提問系統(tǒng)，該提問系統(tǒng)設(shè)計的代碼編程部分主要使用VB中的Randomize語句和Rnd語句，此外，隨機提問系統(tǒng)的窗體布局設(shè)計主要考慮到實用性和簡潔性。將本文設(shè)計的隨機提問系統(tǒng)應(yīng)用到課堂中，根據(jù)使用效果證明了該隨機提問系統(tǒng)的可行性和有效性。

參考文獻：

[1] 周長宏， 蘭清昭. 用VB6.0編寫輔助中學(xué)數(shù)學(xué)課堂教學(xué)軟件的研究與探索[J]. 電腦知識與技術(shù)， 2019， 15（6）： 44-46.

[2] 廖昌蘭， 李云勝. 基于VB的檔案庫房溫濕度實時監(jiān)控系統(tǒng)[J]. 山西科技， 2019， 34（2）： 48-51.

[3] 劉華敏. 基于IE的隨機點名系統(tǒng)的分析與設(shè)計[J]. 電腦知識與技術(shù)， 2016， 12（31）： 54-55.

[4] 張玉生. Visual Basic程序設(shè)計教程[M]. 北京： 清華大學(xué)出版社， 2011： 86-87.

【通聯(lián)編輯：謝媛媛】