[单项选择题] 在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开Alph.txt文件,读取字符串并显示在文本框Text1中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中,最后将重新排列的字符串存入AlpO.txt文件中(无双引号界定符)。请选择横线处合适的语句( )。
Private Sub Form_Load()
Dim StrIn As String,StrOut As Strings
Open"C:Alph.txt"For Input As #1
______
Close
Text1.Text=StrIn
______
Text2.Text=StrOut
Open"C:AlpO.txt"For Output As#2
______
Close
End Sub
Private Function StrSort(s As String)As String
Dim s Arr() As String *1,i As Integer,j As Integer,n As Integer
Dim t As String *1
n=Len(s)
ReDim sArr(n)
For i=1 To n
s Arr(i)=Mid(s,i,1
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
正确答案:B
参考解析:本题 *** 作较复杂,请仔细分析题中要求。第1个横线处是读出文件1中的字符放在变量StrIn中,第2个横线处是调用StrSort函数,转换SirIn中的字符串,并将返回结果赋值给StrOut变量,第3个横线处将StrOut变量中的内容写入2号文件。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)