2019.10.19学习感受

                              学习感受

今天上午我们通过小组合作编出了一个程序。我们先是构想我们写什么样的程序，我的想法是是利用学到的十个百例，把它们融合在一起升级成一个新的程序，我的小伙伴们觉得这个难度太低，后来我们经过商量决定做类似于打字通里面的小游戏的程序，因为我的小伙伴有学过这个编程的，我们又通过网上查找，不断地调试程序，终于把这个编程做了出来。
我在编写这个代码时遇到了一些困难，首先我的窗体界面不会设置，我只是把label和time放了上去，而它们的属性我没有去设置，这说明我对这些控件及其属性不是很了解，在今后的学习中我要多用多探索这些控件及属性。还有就是，我的程序运行之后得分不显示，这也是我们组都有的问题，在纪老师的帮助下，我们解决了这个问题，原来是label的框太小，这是我们在今后的学习中需要留意的。
这是我们调试之后的代码
Private Sub Form_KeyPress(KeyAscii As Integer)
Static SCORE As Integer
For i = 0 To 1
If UCase(Chr(KeyAscii)) = Label1(i).Caption Then
Label1(i).Caption = “”
SCORE = SCORE + 1
Exit For
End If
Next
Label2.Caption = “成绩：” & SCORE
End Sub
Private Sub Form_Load()
Label1(0).FontSize = 18
Label1(0).Caption = “A”
Randomize
For i = 1 To 1
Load Label1(i)
Label1(i).Move Rnd * Form1.ScaleWidth, 2000 * Rnd
Label1(i).Caption = Chr(Int(Rnd * 26 + 65))
Label1(i).Visible = True
Label1(i).ForeColor = QBColor(Int(Rnd * 15))
Next
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 1
Label1(i).Top = Label1(i).Top + 100
If Label1(i).Top > Me.Height Then
Label1(i).Top = 0
Label1(i).Caption = Chr(Int(Rnd * 26 + 65))
End If
Next
End Sub