网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

(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 ______ 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 sArr()As String*1,i As Integer,j As Integer,n As Integer Dim t As String*1 n=Lem(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 FunctionA.Input#1,StrIn StrIn Print#2,StrOut B.Input#1,StrIn StrOut(StrIn) Print#2,StrOutC.Input#2,StrIn StrOut(StrIn) Print#1,StrOutD.Input#1,StrIn StrOut(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 ______ 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 sArr()As String*1,i As Integer,j As Integer,n As Integer Dim t As String*1 n=Lem(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=StrSortsArr(i) Next i End FunctionA.Input#1,StrIn StrIn Print#2,StrOut B.Input#1,StrIn StrOut(StrIn) Print#2,StrOutC.Input#2,StrIn StrOut(StrIn) Print#1,StrOutD.Input#1,StrIn StrOut(StrIn) Input#2,StrOut ” 相关考题
考题 在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开Alph.txt文件,读取字符串并显示在文本框Text1中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中,最后将重新排列的字符串存入AlpO.txt文件中(无双引号界定符)。请选择横线处合适的语句( )。Private Sub Form_Load()Dim StrIn As String,StrOut As StringsOpen"C:\Alph.txt"For Input As #1______CloseText1.Text=StrIn______Text2.Text=StrOutOpen"C:\AlpO.txt"For Output As#2______CloseEnd SubPrivate Function StrSort(s As String)As StringDim s Arr() As String *1,i As Integer,j As Integer,n As IntegerDim t As String *1n=Len(s)ReDim sArr(n)For i=1 To ns Arr(i)=Mid(s,i,1)Next iFor i=1 To n-1For j=i+1 To nIf sArr(i)>sArr(j) Thent=sArr(i):sArr(j):sArr(j):sArr(j)=tEnd IfNext j,iFor i=1 To nStrSort=StrSort s Arr(i)Next iEnd FunctionA.Input#1,StrIn StrIn Print#2,StrOutB.Input#1,StrIn StrSort(StrIn) Input#2,StrOutC.Input#2,StrIn StrSort(StrIn) Input#1,StrOutD.Print#1,StrIn StrSort(StrIn) Input#2,StrOut

考题 3执行语句Open"C:StuData.dat"ForlnputAs#2后,系统( )。A.将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B.在C盘当前文件夹下建立名为StuData.dat的顺序文件C.将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中

考题 (33)执行语句Open"Test.Dat"For OutInput As#1,系统 A.将C盘当前文件夹下名为SDat.dat文件的内容读入内存B.在C盘当前文件夹下建立名为SDat.dat的顺序文件C.将内存数据存放在C盘当前文件夹名为SDat.dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为SDat.dat的文件中

考题 执行语句Open"C:\SDat.dat"For Input As#2后,系统( )。A.将C盘当前文件夹下名为SDat.dat文件的内容读入内存B.在C盘当前文件夹下建立名为SDat.dat的顺序文件C.将内存数据存放在C盘当前文件夹下名为SDat.dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为SDat.dat的文件中

考题 执行语句Open"C:\stu.dat"For Input As #2之后,系统 ( )A.将C盘当前文件夹下名为stu. dat的文件的内容读人内存B.在C盘当前文件夹下建立名为stu的顺序文件C.将内存数据存放在C盘当前文件夹下名为stu. dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为stu. dat的文件中

考题 执行语句Open"C:\StuData.dat"For lnput As#2后,系统A.将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B.在C盘当前文件夹下建立名为StuData.dat的顺序文件C.将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中

考题 执行语句Open"C: \StuData.dat"For 1nput As#2后,系统A.将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B.在C盘当前文件夹下建立名为StuData.dat的顺序文件C.将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中

考题 执行语句Open"C:\StuData.dat"For Input As #2后,系统A.将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B.在C盘当前文件夹下建立名为StuData.dar的顺序文件C.将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dar的文件中

考题 执行语句Open "C://Stud.txt" For Input As #2后,系统()。A将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中B将某个磁盘文件的内容写入C盘当前文件夹下名为Stud.txt的文件中C打开C盘当前文件夹下名为Stud.txt的文件,用来读取文件内容D在C盘当前文件夹下建立名为Stud. txt的顺序文件