(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗口中有一个Text文本框控件，名称为Textl；一个Label标签；名称为Labell；一个命令按钮，名称为Commandl；标题为“读入文件”。要求程序运行后，单击Commandl将in．txt的内容显示到Textl中，并统计Textl中有多少个字符，将结果显示在Labell中。程序运行时的窗体界面如图31—3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件sj4．vbp，相应的窗体文件名为sj4．frm，求数组的中间值。程序运行后，单击“读入”按钮，通过输入对话框输入5个整数，然后单击“取中间值”命令按钮，即可求出数组的中间值，并在名称为Labell的标签上显示出来，如图31—4所示。请把程序补充完整，并能正确运行。

【正确答案】正确答案： (1)根据题意，将一个Text控件，一个Label控件和一个Command控件添加到窗体上，Text的名称为Textl、Text属性为空、MultiLine属性为True、ScrollBar属性为2，Label的名称为Labell、Caption属性为空，Command的名称为Commandl、Caption属性为“读人文件”，设置完成后双击Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Dim str As String Dim tmp As String str="" Open"App．Path&＼in．txt"For Input As #1 '打开文件准备读取 While EOF(1)=False '判断是否读到文件尾 Input#1，tmp'读取字符串 str=str+tmp'将读取的字符串放人输出字符串中 Wend Close#1'关闭文件 Textl． Text =str '在Textl中显示输出字符串 Labell． Caption = Len (str) '将字符串长度在Labell中显示出来 End Sub 单击

【答案解析】