在C盘当前文件夹下有一个已建立好的顺序文件Alph ．txt ，文件内容为只含有字母的一个字符串（有双引号界定符）。单击窗体，打开A1ph ．txt 文件，读取字符串并显示在文本框Textl 中，然后调用StrSort 过程将此字符串按ASCII 码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO ．txt 文件中（无双引号界定符）。请选择横线处合适的语句（　　）。Private Sub Form＿Load（　　）Di mStrIn As Stri ng ，StrOut As Stri ngOpen ＂C：＼Alph ．txt＂For Input As ＃1________________CloseTextl ．Text ＝StrIn___________Text2．Text ＝StrOutOpen ＂C：＼AlpO ．txt＂For Output As ＃2_______CloseEnd SubPrivate Function StrSort（s As Stri ng）As Stri ngDi ms Arr（　　）As Stri ng＊1，j As Integer ，J As Integer ，nAs IntegerDi mt As Stri ng＊1n ＝Len（s）ReDi ms Arr（n）For i ＝1To ns Arr（i）＝Mid（s ，i ，1）Next i For i ＝1To n ．1For j＝i ＋1To nIf s Arr（i）＞s Arrj Thent ＝s Arr（i）：s Arr（i）＝s Arr（i）：s Arr（j）＝tEnd IfNext i ，iFor i ＝1To nStrSort ＝StrSort ＆s Arr（i）Next iEnd Function

试卷相关题目

• 1窗体上有一个名称为Picture1的图片框控件，一个名称为Ti merl 的计时器控件，其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：Private Sub Ti mer1＿Ti mer（）Static n As Integern ＝n ＋1If（n／5）＝Int （n／5）And Picturel ．Left ＜Forml ．Width ThenPicture1．Left ＝Picture1．Left ＋100End IfEnd Sub分析以上程序，以下叙述中正确的是（　　）。

  A.程序中没有设置5秒钟的时间，所以不能每隔5秒移动图片框一次

  B.此程序运行时图片框位置保持不动

  C.此程序运行时图片框移动方向与题目要求相反

  D.If 语句条件中的"Picture1．Left ＜Form1．Width"用于限制图片框移动的范围

  开始考试点击查看答案
• 2下列关于函数过程的叙述中，正确的是（　　）。

  A.函数过程形参的类型与函数返回值的类型没有关系

  B.在函数过程中，过程的返回值可以有多个

  C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

  D.如果不指明函数过程参数的类型，则该参数没有数据类型

  开始考试点击查看答案
• 3对于循环队列，下列叙述中正确的是( )。

  A.队头指针是固定不变的

  B.队头指针一定大于队尾指针

  C.队头指针一定小于队尾指针

  D.队头指针可以大于队尾指针，也可以小于队尾指针

  开始考试点击查看答案
• 4窗体上有一个名称为Co mmand1的命令按钮，其单击事件过程如下：Private Sub Co mmand1＿Click（）Di ma，b（2，3）As Integera＝Array（3，7，5，11，31，43，17，62，9，23，37，41）i ＝0Do While i ＜＝UBound（a）For j＝0To 2For k ＝0To 3b（j，k）＝a（i）i ＝i ＋1Next kNext jLoopPrint b（2，2）End Sub运行程序，窗体上显示的是（　　）。

  A.43

  B.17

  C.37

  D.23

  开始考试点击查看答案
• 5有关程序代码窗口的说法错误的是（　　）。

  A.在窗口的垂直滚动条的上面有一个"拆分栏"，利用它可以把窗口分为两个部分，每个窗口显示代码的一部分

  B.双击控件设计窗体即可打开程序代码窗口

  C.在程序代码的左下角有两个按钮，可以选择全模块查看或者是过程查看

  D.默认情况下，窗体的事件是Load

  开始考试点击查看答案