[填空题] 下面程序的功能是把文件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 In

从题意整体上看[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。