急！急！！和文件有关的5×5矩阵--用VB做 很简单的高手来看看啊

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:53:02
数据文件中保存一个5×5矩阵，读取数据文件，并输出该矩阵的 上三角矩阵
是通过文件 在文件中保存然后读取文件

dim a(1 to 5,1 to 5) as integer,i as integer,j as integer
open "C:\1.txt" for input as #1
for i=1 to 5
for j=1 to 5
input #1, a(i,j)
next j
next i
for i=1 to 5
for j=1 to 5
if i+j<7 then print a(i,j);
next j
print
next i
close #1

Private Sub Form_click()
Dim a(5, 5) As Integer
Dim i, j As Integer
Randomize
For i = 0 To 4
For j = 0 To 4
a(i, j) = 10 * Rnd
Print a(i, j); "";
Next
Print
Next
End Sub