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

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

2025-02-24 11:59:09

推荐回答（1个）

回答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

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

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