问题详情

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