Question

用vb做一个打字练习程序

高手 求指教！！！
两个textbox 上面是的是文章（要求是10几篇文章随机 这个怎么搞） 下面的是输入的 输对了上面对应显蓝色 错误或撤销上面对应显红色
这个计时器怎么做？
这个程序有四个窗体 第一个是个人信息（这个随便意思下 主要是让我参考下） 30秒后或回车键进入第二个窗体
第二个窗体是用户登录界面 需要输入用户名才能进去（随便输都行 不输就不能进）
第三个如上
第四个就是用户成绩信息的表格

高手 请你做一个发我邮箱1810205193@qq.com（我自己去看下代码）
有劳了！ 谢谢！！！

没分了 。。。 这个求理解。

Answer 1

textbox无法实现部分文本的颜色改变，要用RICHTEXTBOX，主要内容我已经写出来了，你看看
Private Sub Command1_Click()
RichTextBox1.SetFocus
End Sub
Private Sub RichTextBox1_Change()
Call duibi
End Sub

Private Sub duibi()
a = Len(Text1.Text)
b = Len(RichTextBox1.Text)

If a > b Then
n = b
Else
n = a
End If
For i = 1 To n
c = Mid(Text1.Text, i, 1)
d = Mid(RichTextBox1.Text, i, 1)
If c = d Then
RichTextBox1.SelStart = i - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbBlue
Else
RichTextBox1.SelStart = i - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbRed

End If
RichTextBox1.SelStart = i
RichTextBox1.SelColor = vbRed

Next i
RichTextBox1.SelStart = b
RichTextBox1.SelColor = vbRed

End Sub

追问

谢谢了。
计时器怎么做 ？

追答

计时器无非是记录用户打字的速度。你设置间隔为1秒（interval=100）。用正确的字数除以时间(t)，得出用户打字的速度。
Dim t
Private Sub Timer1_Timer()
t = t + 1
End Sub