填空题下面程序的功能是把文件file1.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件 file2.txt。请填空。 Private Sub Command1_Click1 Dim in char As String,temp As String,out char As String Out char="" Open"file1.txt"For Input As#1 Open"file2.txt"For Output As 2 n=LOF( 3) in char=Input$(n,1) For k=1 To n temp=Mid(in char,k,1) If InStr (out.char,temp)= 4Then Out char=out char＆temp End If Next k Print #2, 5 Close #1 Close #2 End sub

1、
2、
3、
4、

【正确答案】 1、2, 2、1, 3、0, 4、outchar

【答案解析】从题意整体来看,第一处填空的内容应该是文件file2.txt的文件号,在后面的代码中文件号有1和2,而1分配给了file1.txt,所以文件号2应该是file2.txt的文件号,所以第一个填空应填人的是"2"；而第二处应该是测试的filel.txt的实际长度,故应填人"1"；理解题目可知,第三处所属语句作用是判断文件filel.txt中的某一字母是否已经在变量outchar中出现过,若没在变量outchar中出现,则将该字母添加到outchar变量中,即完成题目中的要求"若有多个字符相同,则只保留1个"。Instr(strl,str2)字符串匹配函数,在不同的条件下,函数的返回值不一样。其中有一种返回值是当字符串str2未在strl中找到时,返回值为0,故第三应填人的是0；第四处表示的应该是将变量outchar的内容写入文件file2.txt中,所以应填人的是outchar。