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

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

[填空题] 下面程序的功能是把文件file1.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件 file2.txt。请填空。Private Sub Command1_Click()Dim in char As String,temp As String,out char As StringOut char=""Open"file1.txt"For Input As#1Open"file2.txt"For Output As【 】n=LOF( 【 】) in char=Input$(n,1)For k=1 To ntemp=Mid(in char,k,1)If InStr (out.char,temp)= 【 】ThenOut char=out char＆tempEnd IfNext kPrint #2, 【 】Close #1Close #2End sub

正确答案：

B,A,0,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。