[填空題] 下面程序的功能是把文件file1.txt中重復(fù)字符去掉后(即若有多個(gè)字符相同,則只保留1個(gè))寫入文件 file2.txt。請(qǐng)?zhí)羁?。Private Sub Command1_Click()Dim in char As String,temp As String,out char As StringOut char=""Open"file1.txt"For Input As#1Open"file2.txt"For Output As【 】n=LOF( 【 】) in char=Input$(n,1)For k=1 To ntemp=Mid(in char,k,1)If InStr (out.char,temp)= 【 】ThenOut char=out char＆tempEnd IfNext kPrint #2, 【 】Close #1Close #2End sub

B,A,0,outchar

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