[填空題] 下面程序的功能是把文件file1.txt中重復(fù)字符去掉后(即若干多個(gè)字符相同，則只保留一個(gè))寫入文件file2.txt。請(qǐng)?zhí)羁铡?/p>

Private Sub Command1_Click()

Dim inchar As String, temp As String, outchar As String

outchar=""

Open"filel.txt" For Input As#1

Open"file2.txt" For Input As# (12)

n=LOF( (13) )

inchar=Input $ (n，1)

For k=1 To n

temp=Mid(inchar,k,1)

If InStr(outchar, temp)= (14) Then

outchar=outchar＆temp

End If

Next k

Print #2， (15)

Close#2

Close#1

End Sub

outchar

從題意整體上看[12]空的內(nèi)容應(yīng)該是文件fil.txt的文件號(hào)，在后面的代碼有1和2；而文件號(hào)1分配給了file1.txt，所以文件號(hào)2應(yīng)該是file2.txt，即該空應(yīng)填寫的是2：[13]空應(yīng)該是測(cè)試文件file1.txt的實(shí)際長度，故該空應(yīng)填1；[14]空所屬的語句作用是判斷文件file.txt中某一字母是否已經(jīng)在變量outchar中出現(xiàn)過，若沒在變量outchar中出現(xiàn)，則將該字母添加到outchar變量中，即完成題目中的要求"若有多個(gè)字符相同，則只保留1個(gè)"。InStr(str1，str2)字符串匹配函數(shù)，在不同的條件下，函數(shù)的返回值不一樣。其中有一種返回值是當(dāng)字符串str2未在str1中找到時(shí)，返回值為0。[15]空表示的應(yīng)該是將變量outchar的內(nèi)容寫入文件file2.txt中，所以應(yīng)填入的是outchar。