在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入Alp().txt文件中(无双引号界定符)。请选择横线处合适的语句( )。
Private Sub Form Load()
Dim Strln As String, StrOut AS String
Open "C: \Alph.txt" For Input As#1
______
Close
Text1.Text=StrIn
______
Text2.Text=StrOut
Open "C: \AIpO.txt" For Output As#2
______
Close
Fnd Sub
Private Function StrSort(s As String)As String
Dim sArr()As String *1, j As Integer, J As Integer, n As Integer
DimtAS String*1
n=Len(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)＞sArrj Then
t=sArr(i):sArr(i)=sArr(i):sArr(j)=t
EndIf
Next i, i
For i=1 To n
StrSort=StrSort＆sArr(i)
Nexti
End Function
A．Input#1, Strln Strln Print#2, StrOut
B．Input#1, Strln StrSort(Strin)Print#2, StrOut
C．Input#2, Strln StrSort(Strln)Print#1, SttOut
D．Print#1, Strln StrSort(Strin)Input#2, StrOut
