锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net输入矩阵 vb输出一个5*5矩阵

IT技术Express4

vb.net矩阵的问题要实现什么样vb.net输入矩阵的功能呢?矩阵就是二维表吧,在.Net中有许多方法可以实现二维表,根据不同vb.net输入矩阵的需求选择适合vb.net输入矩阵的方法,vb.net输入矩阵你应该详细一点说明
求助,初学者想问VB.NET，怎么输入一维列矩阵或者一维行矩阵怎么转置成一维列矩阵？谢谢了！在程序设计语言里，用二维数组来保存矩阵的值 。
一维列矩阵 ， 就是由：若干行、一列组成的二维数组 。
一维行矩阵 ， 就是由：一行、若干列组成的二维数组 。
比如一维列矩阵，的输入：
dima(10,1) as integer'10行 ， 1列
dim i as integer
for i = 1 to 10
a(i,1) = inputbox("")
next i
输入一个n*n的矩阵，找出其中最小的数，输出它的值及行号和列号你用的是VB.NET吧...
我用的是VB6.0，代码基本跟VB.NET相似...
下面代码只是一部分，输入和显示可以放在同一个循环里，另外没有写上当用户输入错误数据时的判断：
Dim x As Integer, y As Integer, px As Integer, py As Integer
Dim jz() As Integer
Dim i As Integer, t As Integer
x = Val(InputBox("输入行数", "计算矩阵"))
y = Val(InputBox("输入列数", "计算矩阵"))
ReDim jz(0 To x - 1, 0 To y - 1)
'输入数据
For i = 0 To x - 1 Step 1
For t = 0 To y - 1 Step 1
jz(i, t) = Val(InputBox("输入行数为"CStr(i + 1)"，列数为"CStr(t + 1)"的元素", "输入矩阵的元素"))
Next t
Next i
'比较数据
px = 0: py = 0
For i = 0 To x - 1 Step 1
For t = 0 To y - 1 Step 1
If jz(i, t)jz(px, py) Then
px = i: py = t
End If
Next t
Next i
'输出结果
For i = 0 To x - 1 Step 1
For t = 0 To y - 1 Step 1
Print CStr(jz(i, t))"";
Next t
Print
Next i
Print
Print "矩阵最大的元素的值为："CStr(jz(px, py))
Print "它所在的行号为："CStr(px + 1)"列号为："CStr(py + 1)
求助！用Vb.net编写两个矩阵相乘！Public Shared Sub Main()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Console.WriteLine("该程序将求出两个矩阵的积:")
【vb.net输入矩阵 vb输出一个5*5矩阵】Console.WriteLine("请指定矩阵A的行数:")
a = Integer.Parse(Console.ReadLine())
Console.WriteLine("请指定矩阵A的列数:")
b = Integer.Parse(Console.ReadLine())
Dim MatrixA As Integer(,) = New Integer(a - 1, b - 1) {}
For i As Integer = 0 To a - 1
For j As Integer = 0 To b - 1
Console.WriteLine("请输入矩阵A第{0}行第{1}列的值:", i + 1, j + 1)
MatrixA(i, j) = Integer.Parse(Console.ReadLine())
Next
Next
Console.WriteLine("矩阵A输入完毕.")
Console.WriteLine("请指定矩阵B的行数:")
c = Integer.Parse(Console.ReadLine())
Console.WriteLine("请指定矩阵B的列数:")
d = Integer.Parse(Console.ReadLine())
Dim MatrixB As Integer(,) = New Integer(c - 1, d - 1) {}
For i As Integer = 0 To c - 1
For j As Integer = 0 To d - 1
Console.WriteLine("请输入矩阵A第{0}行第{1}列的值:", i + 1, j + 1)
MatrixB(i, j) = Integer.Parse(Console.ReadLine())
Next
Next
Console.WriteLine("矩阵B输入完毕.")
Console.WriteLine("矩阵A为:")
outputMatrix(MatrixA, a, b)
Console.WriteLine("矩阵B为:")
outputMatrix(MatrixB, c, d)
If bc Then
Console.WriteLine("矩阵A的列数与矩阵B的行数不相等,无法进行乘积运算!")
Return
Else
Console.WriteLine("矩阵A与矩阵B的乘积为:")
End If
Dim MatrixC As Integer(,) = New Integer(a - 1, d - 1) {}
For i As Integer = 0 To a - 1
For j As Integer = 0 To d - 1
MatrixC(i, j) = 0

推荐阅读


上一篇：屏蔽微信扫码安卓，怎么禁止微信扫一扫

下一篇：下载安装QQ，下载安装