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