基于Visual Basic的隨機(jī)提問(wèn)系統(tǒng)的實(shí)現(xiàn)與教學(xué)應(yīng)用

朱家龍

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

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

中圖分類號(hào)：TP311 ? ? ? ? 文獻(xiàn)標(biāo)識(shí)碼：A

文章編號(hào)：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 背景

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

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

2 基于VB的隨機(jī)提問(wèn)系統(tǒng)實(shí)現(xiàn)

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

2.1 隨機(jī)提問(wèn)系統(tǒng)的設(shè)計(jì)

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

式中，upperbound是隨機(jī)數(shù)范圍的上限，而lowerbound為隨機(jī)數(shù)范圍的下限。值得一提的是，若想得到重復(fù)的隨機(jī)數(shù)序列，在使用具有數(shù)值參數(shù)的Randomize之前直接調(diào)用具有負(fù)參數(shù)值的Rnd。使用具有相同number值的Randomize是不會(huì)得到重復(fù)的隨機(jī)數(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 隨機(jī)提問(wèn)系統(tǒng)的窗體布局

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

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

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

3.1 隨機(jī)提問(wèn)系統(tǒng)的使用方法

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

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

3.2 隨機(jī)提問(wèn)系統(tǒng)的課堂使用效果

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

4 結(jié)論

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

參考文獻(xiàn)：

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

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

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

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

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