求制作一个VB打字母游戏的程序

要图,最好简便一点

基本上什么都不用
一个label就好

'*-----------------------
Private Sub Form_Load() '<--表单
Call Key '子程序
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(Label1) Then Call Key '打对了 生成下一个字母
If KeyAscii = Asc(Label1) + 32 Then Call Key
End Sub
Sub Key() '<--子程序
Do Until (a > 65 And a < 90)
a = Rnd * 100 '生成字母
If a > 65 And a < 90 Then Label1 = Chr(a)
Loop
End Sub

你好！ 具体要怎样的游戏 希望对你有所帮助，望采纳。