2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm。此外在考生文件夹下还有一个名为in5．txt的文本文件，其中共有25个数据，其内容如下： 10，11，12，13，14，15，16，17，18，19，20，21，22，23

在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm。此外在考生文件夹下还有一个名为in5．txt的文本文件，其中共有25个数据，其内容如下： 10，11，12，13，14，15，16，17，18，19，20，21，22，23

admin2010-07-13  75
问题 在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm。此外在考生文件夹下还有一个名为in5．txt的文本文件，其中共有25个数据，其内容如下：
    10，11，12，13，14，15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30，31，32，33，34
    程序运行后，双击窗体，将把文件in5．txt中的数据输入到二维数组Arr中，在名为Textl的文本框上按5行×5列的矩阵形式显示出来，并在名为’Fext2的文本框中显示矩阵第3列的数据。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行时的效果如图50一5所示。

    注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的工程文件与窗体文件按原文件名存盘。
选项
答案本题主要考查二重For循环和二维数组的使用，以及顺序文件数据的读取。Input#语句用于读取顺序文件中一项(或多项)数据给一个变量(或多个变量)，其语法格式如下： Input#FileNumber，Varlist 其中，FileNumber参数表示打开文件的句柄，Varlist为变量列表。 根据题意，将两个文本框控件和两个标签控件添加到窗体中，文本框的名称分别为Textl和Text2、Text属性都为空Textl的MultiLine属性为True、ScrollBar属性为2，标签控件的Caption属性分别为“5×5矩阵如下：”和“矩阵第3列数据：”。补充后的具体代码如下： Private Sub Form_DblClick() Dim str As String Dim trap As String Dim i As Integer Dim j AS Integer Dim Arr(5，5)As Integer’定义二维数组 str="" Open"App．Path&＼in5．txt"For Input As#1 ’打开文件准备读取 For i=1 To 5’对数组的行读取 For j=1 To 5’对数组的列读取 Input#1，Arr(i，j) ’将读取到的数放人数组Arr中 str=str+CStr(Arr(i，j))+"" ’将数组写入字符串中 Next j str=str+vbCrLf ’每读完一行则添加换行字符串 Next i Close#1’关闭文件 tmp="" For i=1 To 5 ’For循环读取数组中的第三列 tmp=tmp+CStr(Arr(i，3))+"" ’将读取到的数据写入字符串 Next i Textl．Text=str’在Textl中显示数组 Text2．Text=tmp’在Text2中显示数组第三列 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/sGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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