设窗体上有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。请 填空。