单项选择题
在c盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开A1ph.txt文件,读取字符串并显示在文本框Textl中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2巾,最后将重新排列的字符串存入AIpO.txt文件巾(无双引号界定符)。清选择横线处合适的语句( )。 Private Su b Form Load() Dim Strln As String,StrOut As String Open“C:\Alph.txi”For Input As#1 Close Textl.Text=Sttin Text2。Text=Str()ut Open“C:\Alp().txt”For Output AS#2 Close End Sub Private Function StrSort(s As String)As String Dim sArr()As String*1.j As Integer,J As Integer,1/As Integer DimtAs String*1 ReDim sArr(n) For i=1 To n sArr(i)=Mid(s,i,1) Next i For i=1 T0 n。1 For i=i+1 To n If sArr(i)>sArrj Then t=sArr(i):sArr(i)=sArr(i):sArr(j)=t End 1f Nexl i.i For i=l To n StrSort=StrSort&sArr(i) Next i 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#l,SttOut
D.Print:丰1,Strln StrSort(Strin)Inout#2,StrOut