vb 每2秒生成4个字符串，显示在text1。text中 并且把生成的字符串和text2。text中输入的对比

Question

text2，text中的字符要在两秒内输入完成，如正确则正确次数加1，小弟我正在做vb课程设计（指法练习小游戏），跪求各位大神帮帮忙啊
生成的字符串要是字母和符号

Answer 1

'添加一个按钮,一个计时器和三个文本框
Dim i%

Private Sub Command1_Click()
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text2.SetFocus
Timer1.Interval = 2000 '我5秒都不行
For i = 1 To 4 '生成4个字母或符号,显示在Text1里
Text1.Text = Text1.Text & Chr(Int(Rnd * 26) + 58) '还得都是大写字母和符号,汗
Next
End Sub

Private Sub Timer1_Timer()
If Text2.Text = Text1.Text Then Text3.Text = Val(Text3.Text) + 1 '在Text3里统计正确数
Text1.Text = "" '清空后显示新的字符串
For i = 1 To 4
Text1.Text = Text1.Text & Chr(Int(Rnd * 26) + 58)
Next
End Sub

参考资料：http://zhidao.baidu.com/question/433641203.html