求助，用vb实现打字练习的功能。

Question

在一行文字下面打字，如果相同与上面一行的文字相同，则显示为绿色，如果不相同，则显示为红色（原文字和目标文字都显示为红色）。当点击“更改”按钮时，重新录入。当设定的时间到就不能再进行操作了（不能打字）。
还有，这个应该用什么控件做显示比较合适？有没有第三方控件？敬请高手帮忙！！

Answer 1

控件：Label1、Timer1、Text1、Command1
Timer1的Interval假定为一分钟即60000毫秒将Timer1的Interval属性改为60000，Enabled属性改为TruePrivate Sub Text1_KeyPress()
If Text1.Text=Label1.Caption Then
  Text1.ForeColor=vbGreen
  Label1.ForeColor=vbGreen
Else
  Text1.ForeColor=vbRed
  Label1.ForeColor=vbRed
End If
End SubPrivate Sub Command1_Click()
Text1.Text=""
End SubPrivate Sub Timer1_Timer()
Text1.Enabled=False
End Sub

Answer 2

Static i As Integer
i = 0Private Sub Text1_KeyPress()
i = i + 1
If Mid(Text1.Text,i,1) = Mid(Label1.Caption,i,1) Then
  Text1.ForeColor = vbGreen
  Label1.ForeColor = vbGreen
Else
  Text1.ForeColor = vbRed
  Label1.ForeColor = vbRed
End If
End SubPrivate Sub Command1_Click()
Text1.Enabled=True
Text1.Text=""
End SubPrivate Sub Timer1_Timer()
Text1.Enabled=False
End Sub

Answer 3

偶上学的时候写过一个，MAIL ME，给你发一个。[email protected]