下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同,则只保留一个)写入文件file2.txt。请填空。 Private Sub Command1_Click() Dim inchar AS String, temp AS String, outchar AS String Outchar="" Open "file1.txt" For Input AS 1 Open "
主观题
下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同,则只保留一个)写入文件file2.txt。请填空。 Private Sub Command1_Click() Dim inchar AS String, temp AS String, outchar AS String Outchar="" Open "file1.txt" For Input AS 1 Open "