（ 7 ）下面程序的功能是把文件 file11.txt 中重复字符去掉后（即若有多个字符相同，则只保留 1 个 ） 写

入文件 file2.txt 。请填空。

Private Sub Command1__Click （）

D．im inchar AS String,temp AS String,outchar AS String

Outchar= ” ”

Open= ” file1.txt ” For Input AS #1

Open= ” file2.txt ” For Output AS——

n=LOF （——）

inchar=Input$ （ n,1 ）

F．or k=1 To n

temp=Mid （ inchar,k,1 ）

If InStr （ outchar,temp ） = ——Then

outchar=outchar & temp

E．nd If

Next k

print #2,——

close #2

close #1

E．nd Sub