从STRIN单元开始有一字符串，以‘*’为结束标志。求该字符串长度，并统计其中含有大写英文字母的个数。

中不含有该字符，则置MARK单元为0；若该字符包含在字符串中则置MARK单元为0FFH，并将该字符从字符串中删除，被删除字符后面的所有字符依次向前递补，串长减1。

字符“？”。若N大于串长则不插入。

放到DNUM单元起的存储区中，并将该存储区长度存入DNUML单元中。

在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

在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

有以下程序(strcpy为字符串复制函数，strcat为字符串连接函数) include＜stdio．h＞ include＜string-h＞ main() {chara[10]=abc，b[10]=012，c[10]=xyz； strcpy(a+1，b+2)； puts(strcat(a，c+1))； } 程序运行后的输出结果是

A．bc2yz

B．a2yz

C．a12xyz

D．12yz

串（有双引号界定符）。单击窗体，打开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

A.toLowerCase()

B.toUpperCase()

C.makeLower()

D.makeUpper()