在C盘当前文件夹下有一个已建立好的顺序文件Alph ．txt ，文件内容为只含有字母的一个字符串（有双引号界定符）。单击窗体，打开A1ph ．txt 文件，读取字符串并显示在文本框Textl 中，然后调用StrSort 过程将此字符串按ASCII 码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO ．txt 文件中（无双引号界定符）。请选择横线处合适的语句（ ）。
Private Sub Form＿Load（ ）
Di mStrIn As Stri ng ，StrOut As Stri ng
Open ＂C：＼Alph ．txt＂For Input As ＃1
________________
Close
Textl ．Text ＝StrIn
___________
Text2．Text ＝StrOut
Open ＂C：＼AlpO ．txt＂For Output As ＃2
_______
Close
End Sub
Private Function StrSort（s As Stri ng）As Stri ng
Di ms Arr（ ）As Stri ng＊1，j As Integer ，J As Integer ，nAs Integer
Di mt As Stri ng＊1
n ＝Len（s）
ReDi ms Arr（n）
For i ＝1To n
s Arr（i）＝Mid（s ，i ，1）
Next i For i ＝1To n ．1
For j＝i ＋1To n
If s Arr（i）＞s Arrj Then
t ＝s Arr（i）：s Arr（i）＝s Arr（i）：s Arr（j）＝t
End If
Next i ，i
For i ＝1To n
StrSort ＝StrSort ＆s Arr（i）
Next i
End Function