[填空题] 下面程序的功能是把文件file1.txt中重复字符去掉后(即若干多个字符相同，则只保留一个)写入文件file2.txt。请填空。 Private Sub Command1_Click()

[填空题] 下面程序的功能是把文件file1.txt中重复字符去掉后(即若干多个字符相同，则只保留一个)写入文件file2.txt。请填空。
Private Sub Command1_Click()
Dim inchar As String, temp As String, outchar As String
outchar=""
Open"filel.txt" For Input As#1
Open"file2.txt" For Input As# (12)
n=LOF( (13) )
inchar=Input $ (n，1)
For k=1 To n
temp=Mid(inchar,k,1)
If InStr(outchar, temp)= (14) Then
outchar=outchar＆temp
End If
Next k
Print #2， (15)
Close#2
Close#1
End Sub

参考答案：

outchar

问题解析:

从题意整体上看[12]空的内容应该是文件fil.txt的文件号，在后面的代码有1和2；而文件号1分配给了file1.txt，所以文件号2应该是file2.txt，即该空应填写的是2：[13]空应该是测试文件file1.txt的实际长度，故该空应填1；[14]空所属的语句作用是判断文件file.txt中某一字母是否已经在变量outchar中出现过，若没在变量outchar中出现，则将该字母添加到outchar变量中，即完成题目中的要求"若有多个字符相同，则只保留1个"。InStr(str1，str2)字符串匹配函数，在不同的条件下，函数的返回值不一样。其中有一种返回值是当字符串str2未在str1中找到时，返回值为0。[15]空表示的应该是将变量outchar的内容写入文件file2.txt中，所以应填入的是outchar。