打字测试软件源码 vb,用VB做打字测试的软件 爱问知识人

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。

全部