[單項(xiàng)選擇題] 在C盤當(dāng)前文件夾下有一個(gè)已建立好的順序文件Alph.txt，文件內(nèi)容為只含有字母的一個(gè)字符串(有雙引號界定符)。單擊窗體，打開Alph.txt文件，讀取字符串并顯示在文本框Text1中，然后調(diào)用StrSort過程將此字符串按ASCII碼的順序重新排列并顯示在文本框Text2中，最后將重新排列的字符串存入AlpO.txt文件中(無雙引號界定符)。請選擇橫線處合適的語句( )。

Private Sub Form_Load()

Dim StrIn As String,StrOut As Strings

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 s Arr() As String *1,i As Integer,j As Integer,n As Integer

Dim t As String *1

n=Len(s)

ReDim sArr(n)

For i=1 To n

s Arr(i)=Mid(s,i,1

A．Input#1,StrIn StrIn Print#2,StrOut

B．Input#1,StrIn StrSort(StrIn) Input#2,StrOut

C．Input#2,StrIn StrSort(StrIn) Input#1,StrOut

D．Print#1,StrIn StrSort(StrIn) Input#2,StrOut

B

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