程序代碼如下: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
在課堂教學過程中,讓學生都參與競猜游戲,讓他們了解VB編程的有趣性,進而明白它的實用性,同時,要詳細地講解它的過程,讓學生掌握VB的基本特性。課堂教學之后,需要實踐操作,以加強對本知識點的理解、掌握。
2、以點帶面,拓展延伸
以一系列綜合案例為中心,整個學期的授課都圍繞著一系列綜合案例的設計進行講解,例如計算 “s=1+2+3+…+n”,進而可以推廣所有類似的加減題目,如“s=2+4+6+…+n” “s=1-2+3-4+5-6+…+99-100” “s=1+1/2+1/3+…+1/n”等等。以案例為中心, 運用知識使所講授的內容逐步延伸,既能幫助學生掌握知識點,又能擴展學生的思維方式。
3、變換代碼,促進創新
序完成,并沒有加入自己的思想,對程序代碼的應用也并不清楚, 只知道應該這樣寫程序,但不知道為什么要這樣寫。所以,應鼓勵學生變換代碼,看改變后程序運行的效果有什么不同,從不同點領悟出程序的設計方法,促進學生創新能力的提高。例如,將2到100之間的素數添加到列表里,則程序如下: