（35）在C盤(pán)當(dāng)前文件夾下有一個(gè)已經(jīng)建立好的順序文件Alph.txt,文件內(nèi)容為只含有字母的一個(gè)字符去、串（有雙引號(hào)界定符）。單擊窗體，打開(kāi)Alph.txt文件，讀取字符串顯示在文本框Text1中，最后將重新排列的字符串存入AipO.txt文件中（無(wú)雙引號(hào)界定符）。請(qǐng)選擇橫線處合適的語(yǔ)句 Private Sub Fom_Load() Dim StrIn As String,StrOut As String Open"C/:Alph.txt"For Input As#1 ______ Close Text1.Text=StrIn ______ Text2.Text=StrOut Open"C/:AlpO.txt"For Output As#2 ______ Close End Sub Private Function StrSort(s As String)As String Dim sArr()As String*1,i As Integer,j As Integer,n As Integer Dim t As String*1 n=Lem(s) Redim sArr(n) For i=1 To n sArr(i)=Mid(s,i,1) Next i For i=1 To n-1 For j=i+1 To n If sArr(i)>sArr(j)Then t=sArr(i):sArr(i)=sArr(j):sArr(j)=t End If Next j,i For i=1 To n StrSort=StrSort&sArr(i) Next i End FunctionA.Input#1,StrIn StrIn Print#2,StrOut B.Input#1,StrIn StrOut(StrIn) Print#2,StrOutC.Input#2,StrIn StrOut(StrIn) Print#1,StrOutD.Input#1,StrIn StrOut(StrIn) Input#2,StrOut

B【解析】本題操作較復(fù)雜，請(qǐng)仔細(xì)分析題中要求。第1個(gè)橫線處是讀出文件1中的字符放在變量StrIn中，第2個(gè)橫線處是調(diào)用StrSort函數(shù)，轉(zhuǎn)換StrIn中的字符串，并將返回結(jié)果賦值給StrOut變量，第3個(gè)橫線處將StrOut變量中的內(nèi)容寫(xiě)入2號(hào)文件。