编写一个VB的英文打字练习程序 完整代码

来源：百度知道 编辑：UC知道 时间：2024/07/13 07:22:54
要求:
编写一个图2-12所示的英文打字练习程序，要求如下：
⑴ 点击“产生”范文按钮，在文本框内随机产生30个字母的范文；
⑵ 当焦点进入另一个文本框时开始计时，按产生的范文练习打字；
⑶ 当满30个字母结束计时，禁止向文本框输入内容；
⑷ 按回车键，显示打字时间和打字的准确率
5）点击“结束”按钮，退出程序。
效果如下

Dim m, s As Double

Private Sub Command1_Click()

Text2.Text = ""

Text1.Text = ""

For i = 1 To 30

Text2.Text = Text2.Text & Chr(Int(Rnd * 25 + 66))

Next i

Timer1.Enabled = True

Timer1.Interval = 1000

m = 0

s = 1

End Sub

Private Sub Command2_Click()

Dim b As Integer

For i = 1 To 30

If Mid(Text1.Text, i, 1) = Mid(Text2.Text, i, 1) Then b = b + 1

Next i

Text3.Text = Int(b / 30 * 100) & "%"

Timer1.Enabled = False

Timer1.Interval = 0

Text4.Text = m & "分"