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,下载安装
- 屏蔽微信扫码安卓,怎么禁止微信扫一扫
- 视频号怎么样开通小店商品的简单介绍
- JAVA中每一行代码解释 java代码执行顺序
- c语言10代表什么,c语言中10
- 手机版游戏开发,手机版游戏开发大亨高分攻略
- e3cpu8代配什么显卡,e3cpu系列
- mysql5.0怎么使用 mysql50使用教程
- 金正电视无信号怎么整,金正电视机没屏显是是怎么了