题目内容：
设窗体上有text1文本框和Command1命令按钮，并有以下程序：
Private Sub Command1_Click()
Temp$=””
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
Next k
Found=false
End function
运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空
参考答案：【答案仅供学习，请勿对照自行用药等】