下面程序的功能是把文件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.
主观题
下面程序的功能是把文件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.