题目内容:
下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件file2.txt。请填空。
PrivateSubCommand1__Click()
DimincharASString,tempASString,outcharASString
Outchar=””
Open=”file1.txt”ForInputAS#1
Open=”file2.txt”ForOutputAS______
n=LOF(______)
inchar=Input$(n,1)
Fork=1Ton
temp=Mid(inchar,k,1)
IfInStr(outchar,temp)=______Then
outchar=outchar&temp
EndIf
Nextk
print#2,______
close#2
close#1
EndSub
参考答案:
答案解析: