189 8069 5689
给你一个函数 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为得到的新矢量
创新互联是一家专业提供杭锦后企业网站建设,专注与成都网站建设、成都网站制作、HTML5、小程序制作等业务。10年已为杭锦后众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。
在程序设计语言里，用二维数组来保存矩阵的值。
一维列矩阵，就是由：若干行、一列组成的二维数组。
一维行矩阵，就是由：一行、若干列组成的二维数组。
比如一维列矩阵，的输入：
dim a(10,1) as integer '10行，1列
dim i as integer
for i = 1 to 10
a(i,1) = inputbox("")
next i
Public Shared Sub Main()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Console.WriteLine("该程序将求出两个矩阵的积:")
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 b c 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
For k As Integer = 0 To b - 1
MatrixC(i, j) += MatrixA(i, k) * MatrixB(k, j)
Next
Next
Next
outputMatrix(MatrixC, a, d)
End Sub
Private Shared Sub outputMatrix(MatrixX As Integer(,), rowCount As Integer, columnCount As Integer)
For i As Integer = 0 To rowCount - 1
For j As Integer = 0 To columnCount - 1
Console.Write(MatrixX(i, j) vbTab)
Next
Console.WriteLine()
Next
End Sub
End Class
'这是在vb6中的代码，在vb.net中基本差不多，你可以参考一下
Private Sub cmdCommand1_Click()
Me.AutoRedraw = True
Dim Grp
Grp = Array(1, 2, 3, 4, 5)
Dim i, j As Long
Dim StrPrt As String
For i = 0 To UBound(Grp)
'i为位移量
StrPrt = ""
For j = i To UBound(Grp)
StrPrt = StrPrt Grp(j)
Next j
For j = 0 To i - 1
StrPrt = StrPrt Grp(j)
Next j
Me.Print StrPrt
Next i
End Sub
没错!!
你的算法是：
1.定义三个变量，minValue（放最小值），X（放最小值的X坐标），Y（放最小值的Y坐标）。
2.遍历矩阵。在遍历过程中将最小值放在minValue中，最小值的X坐标放在X中，最小值的Y坐标放在X中。
Private Sub Command1_Click()
Dim i As Integer
Dim px(0 To 136) As Double
Dim py(0 To 136) As Double
Dim pz(0 To 136) As Double
For i = 0 To 136 '生成随机模拟数据
px(i) = Int(Rnd * 1000)
py(i) = Int(Rnd * 1000)
pz(i) = Int(Rnd * 1000)
Next
For i = 0 To 135 '按矩阵结构分布的数据;
Debug.Print px(i + 1) - px(i), 0, py(i) - py(i + 1)
Debug.Print py(i + 1) - py(i), 0, px(i + 1) - px(i)
Debug.Print pz(i + 1) - pz(i), -1, 0
Debug.Print "---------------------------------------"
Next
End Sub
以下是运行后的部分示例结果:希望对你有帮助
---------------------------------------
-68 0 419
-419 0 -68
-61 -1 0
---------------------------------------
-301 0 -667
667 0 -301
-235 -1 0
---------------------------------------
212 0 597
-597 0 212
-17 -1 0
---------------------------------------
-460 0 270
-270 0 -460
328 -1 0
---------------------------------------
774 0 -465
465 0 774
62 -1 0
---------------------------------------
13 0 325
-325 0 13
-116 -1 0
---------------------------------------
-577 0 -64
64 0 -577
125 -1 0
---------------------------------------
-257 0 -236
236 0 -257
462 -1 0
---------------------------------------
419 0 -392
392 0 419
-308 -1 0
---------------------------------------
-116 0 217
-217 0 -116
-593 -1 0
---------------------------------------
315 0 -8
8 0 315
433 -1 0
---------------------------------------
-601 0 477
-477 0 -601
-171 -1 0
---------------------------------------
629 0 173
-173 0 629
192 -1 0
---------------------------------------
-27 0 -750
750 0 -27
-193 -1 0
---------------------------------------
215 0 -4
4 0 215
349 -1 0
---------------------------------------
-67 0 -71
71 0 -67
-258 -1 0
---------------------------------------
-782 0 -79
79 0 -782
381 -1 0
---------------------------------------
573 0 553
-553 0 573
-781 -1 0
---------------------------------------
-529 0 237
-237 0 -529
493 -1 0
---------------------------------------
239 0 58
-58 0 239
-233 -1 0
---------------------------------------
237 0 -743
743 0 237
221 -1 0
---------------------------------------
-456 0 -47
47 0 -456
-125 -1 0
---------------------------------------
136 0 126
-126 0 136
-154 -1 0
---------------------------------------
123 0 534
-534 0 123
660 -1 0
---------------------------------------
164 0 -138
138 0 164
-489 -1 0
---------------------------------------
250 0 -211
211 0 250
542 -1 0
---------------------------------------
-343 0 255
-255 0 -343
-63 -1 0
---------------------------------------
-258 0 71
-71 0 -258
-690 -1 0
---------------------------------------
87 0 257
-257 0 87
564 -1 0
---------------------------------------
494 0 -276
276 0 494
-40 -1 0
---------------------------------------
-436 0 -533
533 0 -436
39 -1 0
---------------------------------------
33 0 734
-734 0 33
-331 -1 0
---------------------------------------
-98 0 -633
633 0 -98
-98 -1 0
---------------------------------------
459 0 559
-559 0 459
280 -1 0
---------------------------------------
158 0 -92
92 0 158
347 -1 0
---------------------------------------
-842 0 -741
741 0 -842
-307 -1 0
---------------------------------------
484 0 82
-82 0 484
-58 -1 0
---------------------------------------
-353 0 42
-42 0 -353
-500 -1 0
---------------------------------------
193 0 101
-101 0 193
171 -1 0
---------------------------------------
-60 0 362
-362 0 -60
281 -1 0
---------------------------------------
-108 0 -184
184 0 -108
-317 -1 0
---------------------------------------
-192 0 -314
314 0 -192
-98 -1 0
---------------------------------------
574 0 -5
5 0 574
120 -1 0
---------------------------------------
297 0 54
-54 0 297
210 -1 0
---------------------------------------
-457 0 77
-77 0 -457
393 -1 0
---------------------------------------
-110 0 574
-574 0 -110
-508 -1 0
---------------------------------------
31 0 43
-43 0 31
293 -1 0
---------------------------------------
-314 0 -53
53 0 -314
73 -1 0
---------------------------------------
405 0 22
-22 0 405
299 -1 0
---------------------------------------