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

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

admin2012-12-08  45
问题 在c盘当前文件夹下有一个已建立好的顺序文件Alph．txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开A1ph．txt文件，读取字符串并显示在文本框Textl中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2巾，最后将重新排列的字符串存入AIpO．txt文件巾(无双引号界定符)。清选择横线处合适的语句（     ）。
    Private Su b Form Load()
    Dim Strln As String，StrOut As String
    Open“C：＼Alph．txi”For Input As#1
    Close
    Textl．Text=Sttin
    Text2。Text=Str()ut
    Open“C：＼Alp()．txt”For Output AS#2
    Close
    End Sub
    Private Function StrSort(s As String)As String
    Dim sArr()As String*1.j As Integer,J As Integer，1／As Integer
    DimtAs String*1
    ReDim sArr(n)
    For i=1 To n
    sArr(i)=Mid(s，i，1)
    Next i
    For i=1 T0 n。1
    For i=i+1 To n
    If sArr(i)>sArrj Then
    t=sArr(i)：sArr(i)=sArr(i)：sArr(j)=t
    End 1f
    Nexl i．i
    For i=l To n
    StrSort=StrSort&sArr(i)
    Next i
    End Function
选项 A、Input#1，Strln Strln Print#2，StrOut
B、Input#1，Strln StrSort(Strin)Print#2，StrOut
C、Input#2，Strln StrSort(Strln)Print#l，SttOut
D、Print：丰1，Strln StrSort(Strin)Inout#2，StrOut
答案B
解析
转载请注明原文地址:https://jikaoti.com/ti/2dO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)