[填空題] 下面程序的功能是把文件file11.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 "file1.txt" For Input AS #1

Open "file2.txt" For Output AS (7)

n=LOF( (8) )

inchar=Input$(n,1)

For k=1 To n

temp=Mid(inchar,k,1)

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

outchar=outchar & temp

End If

Next k

print #2, (10)

close #2

close #1

End Sub

(7)#2 (8)1 (9)0 (10)outChar

程序的思路是將文件file1.Txt的內(nèi)容改入變量inChar中，再設(shè)置兩個(gè)變量temp和outChar，outChar的初始值為空串。利用循環(huán)語(yǔ)句每次從inChar中取出一個(gè)字符放在變量temp中，再檢查temp變量中的值是否在outChar中存在，如果不存在則將temp的值連接到outChar中。這就像兩個(gè)盒子：一個(gè)盒子是inCbar，另一個(gè)是outChar，開始時(shí)outChar為空。將inChar中的物品一個(gè)一個(gè)取出來(lái)，如果這個(gè)物品在outChar中不存在．就將這類物品放一個(gè)在outChar中，等到inChar內(nèi)的所有物品都檢查完之后，outChar中存放的就是inChar中不重復(fù)的所有物品了。這里每一個(gè)物品就是一個(gè)字符。 第一個(gè)空需要填寫打文件file2.Txt的文件號(hào)，根據(jù)后面程序輸出和關(guān)閉語(yǔ)句可以看出應(yīng)該填寫的內(nèi)容是“#2”；隨后的LOF()函數(shù)用來(lái)返回文件file1.Txt的長(zhǎng)度，以便用input函數(shù)讀入file1.Text中所有的內(nèi)容，因此在第二個(gè)空中應(yīng)該填寫1；InStr()函數(shù)用來(lái)在字符串outChar中查找指定的字符串temp，如果沒找到該字符則函數(shù)返回值為0，在返回值為0時(shí)才將新的字符連接到outChar中，因此在第三個(gè)空中應(yīng)該填寫0；為了在文件file1.txt中將重復(fù)字符去掉后寫入文件file2.txt，需要在第四個(gè)空中填寫outChar。