vb怎样把矩阵写入文本文件?怎样读出来赋给一个新矩阵?

vb怎样把矩阵写入文本文件?怎样读出来赋给一个新矩阵?

一行写5个，每个之间用,分隔，一共写5行，
下面是代码Private Sub 保存矩阵_Click()
Dim by(1 To 5, 1 To 5) As Integer '这是你要的矩阵
Dim i As Integer
Dim k As Integer
'初始化随机函数RandomizeFor i = 1 To 5
For k = 1 To 5
by(i, k) = Rnd * 50 '对BY（）进行赋值，50以内随机数Next kNext iDim Str_Print As String'打开文件Open "C:\矩阵].txt" For Output As #1
For i = 1 To 5'清空Str_Print = ""
For k = 1 To 5
'得到5个值，用,分隔的
If k = 1 Then Str_Print = by(i, k) Else Str_Print = Str_Print & "," & by(i, k) '对要输出的一行进行赋值Next k'输出Print #1, Str_PrintNext i'关闭文件Close #1End SubPrivate Sub 读取矩阵_Click()
Dim by(1 To 5, 1 To 5) As Integer '这是你要的矩阵
Dim i As Integer
Dim k As Integer
Dim Tmpstr As String
Dim TmpBy() As String'打开文件Open "C:\矩阵].txt" For Input As #1
For i = 1 To 5
Line Input #1, Tmpstr
TmpBy = Split(Tmpstr, ",")
For k = 1 To 5
by(i, k) = TmpBy(k - 1)Next kNext iClose #1'已经读取出来了,下面我们验证一下
For i = 1 To 5'清空Str_Print = ""
For k = 1 To 5
'得到5个值，用,分隔的

我不会~~~但还是要微笑~~~：）