程序代碼如下:Dim n As Integer
Private Sub Command1_Click()
Text1.Text = "": Text2.Text = "": Text3.Text = ""
End Sub
Private Sub Form_Load()
n = int(rnd*100)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static c As Integer
If KeyAscii = 13 Then
If n = Val(Text1.Text) Then
Text2.Text = "正確": c = c + 1
ElseIf n < Val(Text1.Text) Then
Text2.Text = "太大": c = c + 1
Else
Text2.Text = "太小": c = c + 1
End If
Text3.Text = Str(c)
End If
End Sub
在課堂教學(xué)過(guò)程中,讓學(xué)生都參與競(jìng)猜游戲,讓他們了解VB編程的有趣性,進(jìn)而明白它的實(shí)用性,同時(shí),要詳細(xì)地講解它的過(guò)程,讓學(xué)生掌握VB的基本特性。課堂教學(xué)之后,需要實(shí)踐操作,以加強(qiáng)對(duì)本知識(shí)點(diǎn)的理解、掌握。
2、以點(diǎn)帶面,拓展延伸
以一系列綜合案例為中心,整個(gè)學(xué)期的授課都圍繞著一系列綜合案例的設(shè)計(jì)進(jìn)行講解,例如計(jì)算 “s=1+2+3+…+n”,進(jìn)而可以推廣所有類似的加減題目,如“s=2+4+6+…+n” “s=1-2+3-4+5-6+…+99-100” “s=1+1/2+1/3+…+1/n”等等。以案例為中心, 運(yùn)用知識(shí)使所講授的內(nèi)容逐步延伸,既能幫助學(xué)生掌握知識(shí)點(diǎn),又能擴(kuò)展學(xué)生的思維方式。
3、變換代碼,促進(jìn)創(chuàng)新
序完成,并沒(méi)有加入自己的思想,對(duì)程序代碼的應(yīng)用也并不清楚, 只知道應(yīng)該這樣寫程序,但不知道為什么要這樣寫。所以,應(yīng)鼓勵(lì)學(xué)生變換代碼,看改變后程序運(yùn)行的效果有什么不同,從不同點(diǎn)領(lǐng)悟出程序的設(shè)計(jì)方法,促進(jìn)學(xué)生創(chuàng)新能力的提高。例如,將2到100之間的素?cái)?shù)添加到列表里,則程序如下: