UC知道用VB如何设计打字程序啊，各位大哥大姐帮帮忙啊。
来源：百度知道 编辑：UC知道 时间：2024/07/02 14:05:11
选择不同等级开始练习，窗体上出现多个下落字母。在一定时间内，若单击键盘相应字母，其从窗体上消失，并记录下成绩。详细要求如下：
编写控制菜单；
窗体上添加相应控件，两个产生字母的标签放置在Frame或Picture上；
在标签上随机出现字母，字母位置必须在Frame或Picture内；
根据级别的不同，产生的字母类型（大写、小写、数字、上档键）也不同，下落的速度随着级别而增加；
通过敲击键盘，将相应字母从屏幕上消失，同时在Frame或Picture上重新产生新的字母；
计算出在规定的时间内打字的正确率，并给用户提示信息。
打字练习可连续进行，当没到规定时间时也可以停止练习，显示的时间、分数恢复到初始状态并给出提示信息。
练习的时间可以自由设定
2．创新要求：
可以改变字体的属性；
在练习开始时，可以输入用户的姓名并在窗体上显示出来；
记录用户每次练习的成绩，每次结束后将以前所有练习的信息显示给用户；
用户可以随时查询；
建立英雄榜。
3．问题描述：
打字练习程序，在窗体上端随机出现一个英文字母，自由下落，在其下落超出窗体的下端前通过敲击键盘打出正确的字母。如果打字正确则字母消失并重新出现一个新的字母，否则继续下落直至超出窗体下端重新出现新的字母。出现的字母数和打字正确的字母数要记下来，并计算出正确率，根据正确率给出用户不同的信息。
添加控件.
command1 frame1 (label1……label6 timer1 timer2)
'窗体代码,测试好的,大概就是这样 稍微改下就可以实现你所说的功能
Option Explicit
Dim score As Integer
Dim speed As Integer
Sub init()
Label1.Caption = Chr(Int(Rnd * 26) + 49) ' / 设定Label1随机显示的字母
speed = Int(Rnd * 100 + 100) '/ 设定Label1随机显示字母的速度
Label1.Left = Int(Rnd * Frame1.Width) '/ 设定Label1代表字母出现的左边位置
Label1.Top = Frame1.Top '/ 设定Label1代表字母出现的顶部位置
End Sub
Sub init1()
Label6.Caption = Chr(Int(Rnd * 26) + 97) '/ 设定Label2随机显示的字母
speed = Int(Rnd * 100 + 100) '/ 设定Label2随机显示字母的速度
Label6.Left = Int(Rnd * Frame1.Width) ' / 设定Label2代表字母出现的左边位置
Label6.Top = Frame1.Top ' / 设定Label2代表字母出现的顶部位置
End Sub
Private Sub Command1_Click()
init ' /调用init子程序
Timer1.Enabled = True '/ 激活Time1控件
Timer2.Enabled = True '/ 激活Time2控件
Command1.Visible = False
Label5.Caption = 200
Label4.Caption