VB之打字游戏（vb编写打字小游戏）

打字游戏规则：

点击"开始"按钮后，屏幕上会出现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

运行程序，如下图所示：

本程序只是把打字游戏的设计思路简单描述了下，程序中可能有不完善的地方希望读者可以不吝给予指正，另外设计者可以在游戏中加入更多的元素，比如随机下落大些字母、数字、字符、计分系统、背景音乐等等。