一个关于字符串的问题

Question

小弟最近想写一个简单的打字测试程序，在窗体上加一个标签和文本框，对照，如果错则显示红，否则加下划线。代码写在文本框的change事件里，但是为什么不对啊，无论在在文本框里写什么全显示红啊？请各位高人指点，代码如下：
Option Base 1
Private Sub Text1_Change()
Dim a As String
Dim b(21) As String, d(21) As String, e As StringDim i As Integer, j As Integera = Label1.CaptionFor i = 1 To Len(a)
    b(i) = Mid(a, i, 1)
    e = Text1.Text
    For j = 1 To Len(e)
    
        d(j) = Mid(e, j, 1)
    Next j
    If b(i) <> d(j) Then
                    Print "red"
                    Else
                    Print "underline"
    End If
    
Next i

Answer 1

Private Sub Text1_Change()
    If Text1 = "" Then Exit Sub
    If Mid(Label1, Text1.SelStart, 1) <> Mid(Text1, Text1.SelStart, 1) Then
        Debug.Print "Err"
    Else
        Debug.Print "Yes"
    End If
End Sub

Answer 2

楼上的，那selstart不是选中的文本吗？你是不是漏掉点什么没说啊？
暴风雨能不能说的详细点啊？

Answer 3

用RichTextBox控件,TextBox的颜色属性是针对控件里的所有文字的,即要红全红.

Answer 4

selstart 光标位置
richtextbox 可以设置不同的文本颜色，不过要安装控制

Answer 5

只有RICHTEXTBOX才能实现部分文字其它颜色并有下划线，TEXTBOX可做不到。

Answer 6

那么哪里有介绍richtextbox的资料啊？各位大哥援手啊！！！

Answer 7

http://msdn2.microsoft.com/en-us/library/ms234980.aspx