【正确答案】正确答案：本题主要考查二重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 单击