vb.net 矩阵的运算控件有吗

给你一个函数 Public Sub Vect1XtoVect2(ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double, _ ByVal x2 As Double, ByVal y2 As Double, ByVal z2 As Double, _ ByRef xNew As Double, ByRef yNew As Double, ByRef zNew As Double) '矢量叉积 xNew = y1 z2 - z1 y2 yNew = z1 x2 - x1 z2 zNew = x1 y2 - y1 x2 End Sub其中x1,y1,z1为第一个矢量，x2,y2,z2为第二个矢量xnew,ynew,znew为得到

#define n 5

int a[n][n];//定义一个大小为n的二维数组，这里以n=5为例

void main()

{

int i,j;

printf("请逐行输入矩阵：\n");

for(i=0;i<n;i++)

{

printf("第%d行：",i+1);

for(j=0;j<n;j++)

{

scanf("%d",&a[i][j]);

}

}//这是手动对a[n][n]初始化

int sum1();

int sum2();

int sum3();//这些都是函数声明

printf("%d,\t%d,\t%d",sum1(),sum2(),sum3());

}

int sum1()//用来计算边缘元素之和

{

int s=0;

int i,j;

for(i=0,j=0;j<n;j++)

j--;i++;

for(;i<n;i++)

i--;j--;

for(;j>=0;j--)

j++;i--;

for(;i>0;i--)

return(s);

}

int sum2()//用来计算不相邻元素之和

{

int s=0;

int i,j;

for(i=0;i<n;i++)

{

for(j=i%2;j<n;j+=2)

}

return(s);

}

int sum3()//用来计算对角线元素之和

{

int s=0;

int i;

for(i=0;i<n;i++)

{

s+=a[i][i];

s+=a[i][n-1-i];

}

if(n%2)

return(s-a[n/2][n/2]);//如果n为奇数，矩阵正中央的元素就被多算了一遍，所以要把它减掉

else

return(s);

}

病情分析：

发烧的原因主要是由疾病引起，如：呼吸道感染、脑膜炎、泌尿道感染等，因此应适时找出发烧的原因。

指导意见：

建议您多喝水,多喝水能促使身体散热,润喉，防范或延缓的发生，并有利于缓解病毒和药品给身体带来的不适。

病情分析：

发烧的原因主要是由疾病引起，如：呼吸道感染、脑膜炎、泌尿道感染等，因此应适时找出发烧的原因。

指导意见：

建议您多喝水,多喝水能促使身体散热,润喉，防范或延缓的发生，并有利于缓解病毒和药品给身体带来的不适。

病情分析：

你这个情况以前也见到过，建议你去大点的医院再查一下。

指导意见：

你这个情况以前也见到过，建议你去大点的医院再查一下。不知道你有没有做穿刺检查，骨髓穿刺。查一下造血系统的问题。

vb矩阵对角线求和？一个 n阶方阵，vb矩阵对角线采用n×n（n行n列）的二维数组来存储：

其主对角线上的元素的下标，满足：行号 = 列号

其副对角线上的元素的下标，满足：行号 + 列号 = n + 1

VB代码实现：(以n = 5为例，并且数组为d，并已经赋值)

dim n as integer

dim S1 As Integer '主对角线上元素之和

dim S2 As Integer '副对角线上元素之和

dim i as integer

dim j as integer

n = 5

S1 = 0

S2 = 0

for i = 1 To 5

for j = 1 to n

if i = j Then s1 = s1 + d(i,j)

if i + j = n + 1 Then s2 = s2 + d(i,j)

next j

next i

Print "主对角线元素之和 = ";S1

Print "副对角线元素之和 = ";S2

Dim CS() As Variant

Dim A(5) As Single

Dim B(5, 5) As Single

Dim C(5) As Single

Dim I As Integer, J As Integer

Private Sub Form_Click()

Form1AutoRedraw = True

Form1Cls

Print "A矩阵："

For I = 1 To 5

A(I) = CS(I - 1)

If A(I) > 0 And A(I) < 1 Then

Print Format(A(I), "0##");

Else

Print A(I);

End If

Print " ";

Next

Print

Print "B矩阵："

For I = 1 To 5

For J = 1 To 5

B(I, J) = I - J

B(I, J) = Val(InputBox("第" & I & "行第" & J & "个元素", "输入B矩阵", B(I, J)))

Print B(I, J);

Next

Print

Next

Print "C(=AB)矩阵："

For I = 1 To 5

For J = 1 To 5

C(I) = C(I) + A(J) B(J, I)

Next

If Abs(C(I)) > 0 And Abs(C(I)) < 1 Then

Print " "; Format(C(I), "0##"); " ";

Else

Print C(I);

End If

Next

Print

End Sub

Private Sub Form_Load()

CS = Array(03, 032, 025, 007, 005)

End Sub

如有其他要求，请留言！

Public Sub add(a() As Integer, b() As Integer, c() As Integer, n As Integer)

For i = 1 To n

For j = 1 To n

c(i, j) = a(i, j) + b(i, j)

Next j

Next i

End SubPrivate Sub Command1_Click()

Dim n As Integer

Dim i As Integer, j As Integer

n = InputBox("输入方阵的行数", "输入框")

ReDim a(1 To n, 1 To n)

ReDim b(1 To n, 1 To n)

ReDim c(1 To n, 1 To n)

Call readm(a, "输入矩阵a")

Call readm(a, "输入矩阵b")

Print "矩阵a"

Call out(a)

Print

Print "矩阵b"

Call out(b)

Print

Call add(a(), b(), c(), n)

Print "矩阵c"

Call out(c)

End Sub

Public Sub add(a() As Integer, b() As Integer, c() As Integer, n As Integer)

For i = 1 To n

For j = 1 To n

c(i, j) = a(i, j) + b(i, j)

Next j

Next i

End SubPrivate Sub Command1_Click()

Dim n As Integer

Dim i As Integer, j As Integer

n = InputBox("输入方阵的行数", "输入框")

ReDim a(1 To n, 1 To n)

ReDim b(1 To n, 1 To n)

ReDim c(1 To n, 1 To n)

Call readm(a, "输入矩阵a")

Call readm(a, "输入矩阵b")

Print "矩阵a"

Call out(a)

Print

Print "矩阵b"

Call out(b)

Print

Call add(a(), b(), c(), n)

Print "矩阵c"

Call out(c)

End Sub