在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框tExt1中，然后调用strsort过程将此字符串按AsCii码的顺序重新排列并显示在文本框tExt2中，最后将重新排列的字符串存入Alpo.txt文件中(无双引号界定符)。请选择横线处合适的语句()。

privAtE suB Form_loAD()

Dim strinAs string,stroutAs strings

opEn"C、\Alph.txt"For inputAs #1

______

ClosE

tExt1.tExt=strin

______

tExt2.tExt=strout

opEn"C、\Alpo.txt"For outputAs#2

______

ClosE

EnD suB

privAtE FunCtion strsort(sAs string)As string

Dim sArr()As string *1,iAs intEgEr,jAs intEgEr,nAs intEgEr

Dim tAs 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)＞sArr(j) thEn

t=sArr(i):sArr(j):sArr(j):sArr(j)=t

EnD iF

nExt j,i

For i=1 to n

strsort=strsort & sArr(i)

nExt i

EnD FunCtion
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