Question

VB 查找出文章里面的非英文字符并标记。（包括标点符号）

效果如图：

Answer 1

Private Sub Command1_Click()
Dim i As Integer, n As Integer
RichTextBox1.SetFocus
For i = 1 To Len(RichTextBox1.Text)
n = Asc(Mid(RichTextBox1.Text, i, 1))
If n < 65 Or (n > 90 And n < 97) Or n > 122 Then
RichTextBox1.SelStart = i - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = QBColor(12)
End If
Next
End Sub

追问

多谢，大概就是要这样的效果。但是标点符号不能判断。数字也不能判断还需要修改。

Answer 2

richtextbox+asc，很容易就搞定，你先百度百度咯