Question

VB编程问题

问题是将一个3*2的矩阵变成2*3的矩阵，最后一步的print #2，不理解是怎么回事，删除后数据会一列显示，求解。
Sub main()
Dim m As Integer, n As Integer
Dim a() As Long, b() As Long
Dim i As Integer, j As Integer
Open "in.txt" For Input As #1
Open "out.txt" For Output As #2
Input #1, m, n
ReDim a(m, n)
ReDim b(n, m)

For i = 1 To m
For j = 1 To n
Input #1, a(i, j)
b(j, i) = a(i, j)
Next j
Next i

For i = 1 To n
For j = 1 To m
Print #2, b(i, j);
Next j
Print #2,
Next i
Close #1, #2
End Sub

Answer 1

楼主的叙述稍有点问题。删除后数据会一列显示，应该是删除后数据会一行显示。
这就是因为你删除了 Print #2, 这个语句所致的结果。因为， Print #2, b(i, j); 是把 b(i, j) 这个元素的值写到#2文件（”output.txt“前面未加盘符路径是将文件保存到程序文件所在的当前目录中），并且不换行，后续输出项是“紧凑”输出。
而 Print #2, 这个语句没有具体的输出项，且后续没有分号或逗号，就表示会输出一个换行符。这样因为它的外循环中，所以就会在输出文件中有n行数据，否则，中间没有换行符的话就会只有一行了。

Answer 2

print 表示输出一行，但Print #2, b(i, j); ：这句最一个分号表示不换行，下一下Print 继续在该行输出。
Print #2, ：逗号 后忽略参数且没有分号，表示只输出一个回车换行符。

Open "in.txt" For Input As #1
Open "out.txt" For Output As #2 '文件名前应该加目录，不然即变能存储也不知在哪里。