填空题
下面程序的功能是把文件file1.txt中重复的字符去掉后(即若有多个字符相同,则只保留1个)写入文件file2.txt。请填空。
Private Sub Commana1_Click()
Dim inchar As String,temp As String,outchar As String
outchar=""
Open "file1.txt" For Input As #1
Open "file2.txt" For Oulput As{{U}} {{U}} {{/U}} {{/U}}
n=LOF({{U}} {{U}} {{/U}} {{/U}})
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
IfInStr(outchar,temp)={{U}} {{U}} {{/U}} {{/U}}Then
outchar=outchar & temp
End If
Next k
Ptint #2,{{U}} {{U}} {{/U}} {{/U}}
Close #2
Close #1
End Sub