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

Private Sub Form_Load()

D．im StrIn As String,StrOut As Strings

Open"C:/Alph.txt"For Input As #1

______

C．lose

Text1.Text=StrIn

______

Text2.Text=StrOut

Open"C:/AlpO.txt"For Output As#2

______

C．lose

E．nd Sub

Private Function StrSort(s As String)As String

D．im s Arr() As String *1,i As Integer,j As Integer,n As Integer

D．im t As String *1

n=Len(s)

ReDim sArr(n)

F．or i=1 To n

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

Next i

F．or i=1 To n-1

F．or j=i+1 To n

If sArr(i)＞sArr(j) Then

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

E．nd If

Next j,i

F．or i=1 To n

StrSort=StrSort & s Arr(i)

Next i

E．nd 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

[单选题]（35）在C盘当前文件夹下有一个已经建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符去、串（有双引号界定符）。单击窗体，打开Alph.txt文件，读取字符串显示在文本框Text1中，最后将重新排列的字符串存入AipO.txt文件中（无双引号界定符）。请选择横线处合适的语句 Private Sub Fom_Load() Dim StrIn As String,StrOut As String Open"C/:Alph.txt"For Input As#1 ______ Clos

[单选题]在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号（StuNo）、(StuNnma)和英语成绩（StuEng）。则横线处合适的语句是 Private Sub Form_Click() Open "C:/SDat.txt"For Output As 1 For i=1 To 5 StuNo=InputBox("请输入学号") StuNnma=InputBox("请输入姓名") StuEng= Val(InputBox("请输入英语成

[单选题]（33）在C盘当前文件夹下建立一个名为SDat.txt德顺序文件，要求用InputBox函数输入5名学生的学号（StuNo）、姓名（StuName）和英语成绩（StuEng）。则在下列横线处合适的语句是 。 Private Sub For_Click() Open"C:/SDat.txt"For Output As 1 For i=1 To 5 StuNo=InputBox("请输入学号") StuName=InputBox("请输入姓名") StuEng=Val(InputBox(

[试题]在E盘当前目录文件夹下建立一个名为"Student.txt"的顺序文件，要求用InputBox函数输入5个学生的姓名（StuName） 、年级（StuGrade） 和年龄（StuAge） 。Private Sub Form_Click（）(12)F．or i=1 To 5StuName=InputBox（"请输入姓名"）StuGrade=InputBox（"请输入年级号"）StuAge=InputBox（"请输入年龄"）(13)Next i(14)E．nd Sub

[单选题]如果在C盘当前文件夹下已存在名称为studata.dat的顺序文件，那么执行语句Open "C:/studata.dat" For Append As#1之后，将A．删除文件中原有内容B．保留文件中原有内容，并在文件尾填加新内容C．保留文件中原有内容，并在文件头填加新内容D．以上均不对

[单选题]如果在c盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"c:/studata."For Append As #1之后，将A．删除文件中原有内容B．保留文件中原有内容,并在文件尾填加新内容C．保留文件中原有内容,并在文件头填加新内容D．以上均不对

[单选题]如果在C盘当前文件夹下已存在名称为studata.dat的顺序文件，那么执行语句 Open"c:studata.dat"For Append As #1之后，将( )。A．删除文件中原有内容B．保留文件中原有内容，并在文件尾添加新内容C．保留文件中原有内容，并在文件头添加新内容D．以上均不对

[单选题]如果在C盘当前文件夹下已存在名称为studata.dat的顺序文件，那么执行语句Open"c:/studata.dat"For Append As #1之后，将A．删除文件中原有内容B．保留文件中原有内容，并在文件尾填加新内容C．保留文件中原有内容，并在文件头填加新内容D．以上均不对

[单选题]（35）在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名（StuName）、年级（StuGrade）和年龄（StuAge）.在程序中有下列记录类型和窗体的事件过程，请选择正确的语句完成程序 Private Type student StuName As String*10 StuGrade As String*10 StuAge As String End Type Private Sub For_Click() Dim s A

[单选题]在E盘当前目录文件夹下建立一个名为“Student.txt”，的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程，请选择正确的语句完成程序( )。Private Type studentStuName As String*10StuGrade As String*10StuAge As IntegerE．nd TypePrivate Sub Form_Click()D．im s As