Question

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

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

Answer 1

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 & "分" & s & "秒"

End Sub

Private Sub Form_Load()

Text3.Text = ""

Text4.Text = ""

Text2.Text = ""

Text1.Text = ""

For i = 1 To 30

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

Next i

Command1.Caption = "重新生成"

Command2.Caption = "计算"

Label1.Caption = "准确率"

Label2.Caption = "用时"

Text1.Locked = True

Text1.MaxLength = 30

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 And Len(Text1.Text) >= 1 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

If KeyAscii > 64 And KeyAscii < 91 Then Text1.Text = Text1.Text & Chr(KeyAscii)

If KeyAscii > 96 And KeyAscii < 123 Then Text1.Text = Text1.Text & Chr(KeyAscii - 32)

End Sub

Private Sub Timer1_Timer()

If s > 60 Then s = 0: m = m + 1

s = s + 1

End Sub

Answer 2

呃，没看到图。