打字游戏规则：
点击"开始"按钮后，屏幕上会出现5个字母，正确点击相应键盘按键，字母消失并且窗体顶端重新出现一个新字母，点击"结束"按钮，程序停止。
设计思路：
在Frame窗体中放入5个标签框，利用Chr函数生成小写字母并放入Label.Caption中，通过递增Label坐标的Top值来实现字母下落，当Label的Top值大于Frame的Height值或者检测玩家正确点击字母按键时，字母重新随机生成并从窗体随机位置降落。
窗体设计界面如下图所示：
窗体中包含的控件：
1个Frame
5个Label
2个Command
1个Timer
按照窗体界面设置各控件相关属性。
代码实现：
1， 开始按钮
1. Private Sub Command1_Click()
2. Timer1 = True
3. Randomize
4. Dim i As Integer
5. For i = 0 To 4
6. Label1(i).Caption = Chr(Int(Rnd * 26) + 97)
7. Next i
8. End Sub
2，结束按钮
1. Private Sub Command2_Click()
2. End
3. End Sub
3，Timer
1. Private Sub Timer1_Timer()
2. For i = 0 To 4
3. If Label1(i).Top < Form1.Height Then
4. Label1(i).Top = Label1(i).Top + 30
5. Else
6. Label1(i).Caption = Chr(Int(Rnd * 26) + 97)
7. Label1(i).Top = Frame1.Top
8. Label1(i).Left = Form1.Width * Rnd
9. End If
10. Next i
11. End Sub
4，键盘检测事件
1. Private Sub Form_KeyPress(KeyAscii As Integer)
2. For i = 0 To 4
3. If Label1(i).Caption = Chr(KeyAscii) Then
4. Label1(i).Top = Frame1.Top
5. Label1(i).Left = Form1.Width * Rnd
6. Label1(i).Caption = Chr(Int(Rnd * 26) + 97)
7. End If
8. Next i
9. End Sub
运行程序，如下图所示：
本程序只是把打字游戏的设计思路简单描述了下，程序中可能有不完善的地方希望读者可以不吝给予指正，另外设计者可以在游戏中加入更多的元素，比如随机下落大些字母、数字、字符、计分系统、背景音乐等等。