Private Sub RichTextBox2_Change() Dim save As Integer, com As Integer, m As Integer Static i As Integer Dim a As String, b As String i = i + 1 save = Len(RichTextBox2。
Text) If save >= i Then m = i - 1 Else m = RichTextBox2。SelStart End If For j = m To save RichTextBox2。
SelStart = j k = j + 1 RichTextBox2。SelLength = 1 If Mid(RichTextBox2。
Text, k, 1) = Mid(RichTextBox1。Text, k, 1) Then RichTextBox2。SelColor = RGB(0, 0, 255) Else RichTextBox2。
SelColor = RGB(255, 0, 0) End If Next i = save RichTextBox2。SelStart = i End Sub。
答：用金山打字通也可以。里面有练习和打字测试的详情>>
答：同学习的目的是什么？ 1、为了一技之长，养家糊口 2、为了一个兴趣爱好 3、为了考试及格 4、为了.... 总之，不管是学什么，目的都是为了提高在某个方面的知识...详情>>
答：高手 很难的问题详情>>
