VB矩阵问题 5
一个名为in6.txt的文本文件，其内容如下：13242336585816985453144252247326912263754576072805l327。程序运行后，单...
一个名为in6.txt的文本文件，其内容如下：132 423 36 58 58 16 98 545 314 42 52 24 73 269 12 26 375 4 57 60 72 80 5l 327。程序运行后，单击窗体，将把文件in6.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第一行和第二行的数据
展开
1个回答
展开全部
呵呵，鲁大的吧，答案送你了，好好学啊
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat(M, N)
Dim i, j
Open "C:\Documents and Settings\Administrator\桌面\in6.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
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat(M, N)
Dim i, j
Open "C:\Documents and Settings\Administrator\桌面\in6.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 "初始矩阵为："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
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
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
