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