[填空题] 下面程序的功能是把文件file1.txt中重复的字符去掉后(即若有多个字符相同,则只保留1个)写入文件file2.txt。请填空。 Private Sub Commana1_Click(
[填空题] 下面程序的功能是把文件file1.txt中重复的字符去掉后(即若有多个字符相同,则只保留1个)写入文件file2.txt。请填空。 Private Sub Commana1_Click()Dim inchar As String,temp As String,outchar As Stringoutchar=""Open "file1.txt" For Input As #1Open "file2.txt" For Oulput As 【8】 n=LOF( 【9】 )inchar=Input$(n,1)For k=1 To n temp=Mid(inchar,k,1) IfInStr(outchar,temp)= 【10】 Thenoutchar=outchar & temp End IfNext kPtint #2, 【11】 Close #2Close #1 End Sub
参考答案: