2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗口中有一个Text文本框控件，名称为Textl；一个Label标签；名称为Labell；一个命令按钮，名称为Commandl；标题为“读入文件”。要求程序运行后，单

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗口中有一个Text文本框控件，名称为Textl；一个Label标签；名称为Labell；一个命令按钮，名称为Commandl；标题为“读入文件”。要求程序运行后，单

admin2009-03-26  45
问题 (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 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，在窗体上添加一个Text控件和两个Command控件，Text的名称为Text1、Text属性为空，Command的名称分别为Commandl和Command2，Caption属性分别为“读入”和“取中间值”。双击Commandl命令按钮，编写如下代码： Dim a(5)As Integer Private Sub Commandl_Click() Dim i As Integer Dim tmp As Integer Dim j As Integer Dim k As Integer For i=1 To 5 a(i)=Val(InputBox("请输入")) ’通过输入对话框获得5个数放人数组中 Next i For i=1 To 5 ’降序排列 temp=a(i) For j=1 To i If a(j)Exit For End If Next j Next i End Sub Private Sub Command2 Click() Textl．Text=a(3) ’数组a的第3个数即为中间值 End Sub 单击[*] 按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/oN1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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