刪除重復(fù)字符的程序。程序功能如下：在文本框Text1中輸入字符串，單擊“刪除重復(fù)字符”按鈕，在文本框Text2中輸出處理后的結(jié)果。程序運(yùn)行效果如圖所示。實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Private Sub Command1_ Click （　?。?br />x=TextI Text
n=Len（x）
s=s+Mid（x,1.1）
For i=2 To n
flag=0
For j=1 To Len（s）
If Then
flag=1：Exit For
End If
Next  j
If Then
s=s+Mid（x,i.D
End If
Next i
Text2，Text=s
End Sub