A.机械设备
B.投资环境
C.劳动者的人身和财产
D.行人
第1题
在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)
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 & s Arr(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
第2题
在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
第3题
在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 ______ 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 = 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
第4题
在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 ______ 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=Len(s) ReDim sArr(n) For i=1 To n sAn(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=sAn(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
第6题
第7题
资源管理器中所显示的文件夹左边带有"+"表示()。
A.文件夹下有一个文件
B.文件夹下有多个文件
C.文件夹下有一个子文件
D.文件夹下有一甚至多个子文件夹
第8题
第9题
Windows操作:
(1)在D盘的AA文件夹中建两个同级的文件夹,文件名分别为B1和B2。
(2)将D盘的BB文件夹中的所有文件复制到B1中。
(3)查找BB文件夹中所有扩展名为“.COM”的文件。
(4)删除BB文件夹中所有扩展名为“.COM”的文件。
(5)将文件夹BB中的文件Chinatip.txt文件改名为AAA.TXT,并设置文件属性为隐藏。
(6)在B2文件夹中建一个文件名为:“README.DOC”的文件,内容如下:OFFICE2000——我的好帮手!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!