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

12 查阅

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

Private Sub Command1_Click()

Dim inchar AS String, temp AS String, outchar AS String

Outchar=""

Open "file1.txt" For Input AS #1

Open "file2.txt" For Output AS (7)

n=LOF( (8) )

inchar=Input$(n,1)

For k=1 To n

temp=Mid(inchar,k,1)

If InStr(outchar, temp)= (9) Then

outchar=outchar & temp

End If

Next k

print #2, (10)

close #2

close #1

End Sub

参考答案:

(7)#2 (8)1 (9)0 (10)outChar

程序的思路是将文件file1.Txt的内容改入变量inChar中,再设置两个变量temp和outChar,outChar的初始值为空串。利用循环语句每次从inChar中取出一个字符放在变量temp中,再检查temp变量中的值是否在outChar中存在,如果不存在则将temp的值连接到outChar中。这就像两个盒子:一个盒子是inCbar,另一个是outChar,开始时outChar为空。将inChar中的物品一个一个取出来,如果这个物品在outChar中不存在.就将这类物品放一个在outChar中,等到inChar内的所有物品都检查完之后,outChar中存放的就是inChar中不重复的所有物品了。这里每一个物品就是一个字符。 第一个空需要填写打文件file2.Txt的文件号,根据后面程序输出和关闭语句可以看出应该填写的内容是“#2”;随后的LOF()函数用来返回文件file1.Txt的长度,以便用input函数读入file1.Text中所有的内容,因此在第二个空中应该填写1;InStr()函数用来在字符串outChar中查找指定的字符串temp,如果没找到该字符则函数返回值为0,在返回值为0时才将新的字符连接到outChar中,因此在第三个空中应该填写0;为了在文件file1.txt中将重复字符去掉后写入文件file2.txt,需要在第四个空中填写outChar。

计算机考试