【正确答案】正确答案： 本题重点考查二重For循环和二维数组的使用。根据题意，将两个文本框控件和两个标签控件添加到窗体中，文本框的名称分别为Textl和Text2、Text属性都为空，Textl的MultiLine属性为True、ScrollBar属性为2、标签的Caption属性分别为“矩阵如下：”和“矩阵的右上半部：”。设置完成后，双击Form进入代码编写窗口，在其DblClick事件中补充如下代码： Private Sub Form_DblClick() Dim str AS String Dim tmp As String Dim i As Integer Dim j As IntegeT Dim ArT(5，5)As Integer'定义二维数组 str="" Open"App．Path&＼in5．txt"For Input As#1 '打开文件准备读取 For i=1 To 5'第一层For循环代表数组的行读取 For j=1 To 5 '第二层For循环代表数组的列读取 Input#1 ，Arr(i，j) '将读取到的数放人数组中 str=str+CStr(Arr(i，J))+"" '将数组写入字符串中 Next j str=str+vbCrLf '每读完一行则添加换行字符串 Next i Close#1 '关闭文件 tmp="" For i=1 To 5 'For循环读取数组对角线的右上部分 For j=1 To 5 If j<=i Then'当该数是矩阵的左下部分时 tmp=tmp+""+"" '加入空格 Else'当该数是矩阵的右上部分时 tmp=tnlp+CStr(Arr(i，J))+"" '将读取到的数据写人字符串 End If Next j tmp=tmp+vbCrLf Next i Textl． Text str'在Textl中显示数组 Text2． Text =tmp'在Text2中显示数组右上部分 End Sub 单击