[填空題] 下面程序的功能是把文件file1.txt中重復(fù)的字符去掉后(即若有多個(gè)字符相同，則只保留1個(gè))寫入文件file2.txt。請(qǐng)?zhí)羁铡? Private Sub Commana1_Click()Dim inchar As String,temp As String,outchar As Stringoutchar=""Open "file1.txt" For Input As #1Open "file2.txt" For Oulput As 【8】 n=LOF( 【9】 )inchar=Input$(n,1)For k=1 To n temp=Mid(inchar,k,1) IfInStr(outchar,temp)= 【10】 Thenoutchar=outchar & temp End IfNext kPtint #2, 【11】 Close #2Close #1 End Sub

[8] #2

[9] 1 [10] 0 [11] outchar[評(píng)析] Open語(yǔ)句的基本語(yǔ)法是Open "文件名"(可包含路徑)For 模式 As 文件號(hào) [Len=記錄長(zhǎng)度]。模式為以下形式之一：Output：打開(kāi)一個(gè)文件，將對(duì)該文件進(jìn)行寫操作。Input：打開(kāi)一個(gè)文件，將對(duì)該文件進(jìn)行讀操作。Append：打開(kāi)一個(gè)文件，將在該文件末尾追加記錄。如果未指定方式，則以Random訪問(wèn)方式打開(kāi)文件。文件號(hào)是一個(gè)介于1～511之間的整數(shù)。當(dāng)打開(kāi)一個(gè)文件并為它指定一個(gè)文件號(hào)后，該文件號(hào)就代表該文件，直到文件被關(guān)閉后，此文件才可以再被其他文件使用。由“Print #2, 【11】 ”可知，該題的第1空應(yīng)該填#2。 LOF函數(shù)是用來(lái)返回已打開(kāi)文件的長(zhǎng)度。將#1文件的長(zhǎng)度作為循環(huán)變量，所以該題的第2空應(yīng)該填1。Input$(讀取的字符數(shù)，#文件號(hào))：該函數(shù)可以讀取指定數(shù)目的字符。Mid(s,index,length)用來(lái)從字符串s中的第 index字符開(kāi)始連續(xù)取出length個(gè)字符。InStr([首字符位置]字符串1，字符串2[,n])用來(lái)在“字符串1”中查找“字符串2”，如果找到，則返回“字符串2”的第一個(gè)字符在“字符串1”中的位置?！?amp;”：字符串連接運(yùn)算符，將兩個(gè)字符串按順序連接起來(lái)。For循環(huán)的作用是將#1文件中出現(xiàn)過(guò)的字符不重復(fù)地連接起來(lái)(即若同一字符出現(xiàn)多次，則只保留一個(gè))賦給outchar變量，所以該題的第3空應(yīng)該填0。將數(shù)據(jù)寫入磁盤文件所用的命令是Write #或Print #命令，形式為Print #文件號(hào),[輸出列表]。由程序可知是將字符串變量outchar中的內(nèi)容寫到#2文件中，所以該題的第4空應(yīng)該填outchar。