vb的维数问题！

来源：百度知道 编辑：UC知道 时间：2024/05/19 03:58:33
求输入到窗体上后，把左上到右下的对角线上的数输出来！填问号的地方！！
Option Base 1

Private Sub Form_Click()
Const N = 5
Const M = 5
' Dim ?
Dim i, j
' Open App.Path & "\" & "datain.txt" ? As #1
For i = 1 To N
For j = 1 To M
' ?
Next j
Next i
Close #1

Print
Print "初始矩阵为："
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i

Print
Print "左上 - 右下对角线上的数为："
For i = 1 To N
For j = 1 To M
' If ? Then Print Tab(5 * j); Mat(i, j);
Next j
Next i
End Sub
麻烦大家帮帮忙啊！！！！

Option Base 1

Private Sub Form_Click()
Const N = 5
Const M = 5
' Dim Mat(N,M)
Dim i, j
' Open App.Path & "\" & "datain.txt" for input As #1
For i = 1 To N
For j = 1 To M
' input #1,Mat(i,j)
Next j
Next i
Close #1

Print
Print "初始矩阵为："
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i

Print
Print "左上 - 右下对角线上的数为："
For i = 1 To N
For j = 1 To M
' If i=j Then Print Tab(5 * j); Mat(i, j);
Next j
Next i
End Sub