设窗体上有Text1文本框和Command命令按钮，并有以下程序：
Private Sub Command1_Click()
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& （ 13 ）
End if
Next k
Text1= （ 14 ）
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= （ 15 ）
Exit Function
End If
Next k
Found=False
End Function
运 行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命 令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请 填空。