在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开Alph.txt文件,读取字符串并显示在文本框Text1中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示

admin2010-09-11  52

问题 在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开Alph.txt文件,读取字符串并显示在文本框Text1中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2,最后将重新排列的字符串存入AlpO.txt文件中(无双引号界定符)。请选择横线处合适的语句 (    )。 Private Sub Form_Load()Dim StrIn As String, StrOut As String    Open "C:\ Alph.txt" For Input As #1        ______    Close    Text1.Text=StrIn        ______    Text2.Text=StrOut    Open "C:\ AlpO.txt" For Output As #2       ______    CloseEnd SubPrivate Function StrSort(s As String) As String      Dim sArr() 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               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(i)=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) Print #2, StrOut
C、Input #2, StrIn StrSort(StrIn) Print #1, StrOut
D、Print #1, StrIn StrSort(StrIn) Input #2, StrOut

答案B

解析 本题操作较复杂,请仔细分析题中要求。第1个横线处是读出文件1中的字符放在变量StrIn中,第2个横线处是调用StrSort函数,转换StrIn中的字符串,并将返回结果赋值给StrOut变量,第 3个横线处将StrOut变量中的内容写入2号文件。
转载请注明原文地址:https://jikaoti.com/ti/Ang0FFFM
0

最新回复(0)