|
:* [[ingeniería civil]]
:* [[minería]]
bgm
== Trabajos topográficos ==
[[uk:Топографія]]
[[zh:测绘学]]
Public Class Form1
Dim A(2, 3) As Integer
Dim B(3, 2) As Integer
Dim C(2, 2) As Integer
Dim i, j As Integer
Dim MatrizA As String
Dim MatrizB As String
Dim MatrizC As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 1 To 2
For j = 1 To 3
A(i, j) = InputBox("enter the element")
Next
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MatrizA = ""
For i = 1 To 2
For j = 1 To 3
MatrizA = MatrizA & A(i, j) & Chr(9)
Next
MatrizA = MatrizA & Chr(13) & Chr(10)
Next
RichTextBox1.Text = MatrizA
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MatrizC = " "
For i = 1 To 2
For j = 1 To 2
C(1, 1) = A(1, 1) * B(1, 1) + A(1, 2) * B(2, 1) + A(1, 3) * B(3, 1)
C(1, 2) = A(1, 1) * B(1, 2) + A(1, 2) * B(2, 2) + A(1, 3) * B(3, 2)
C(2, 1) = A(2, 1) * B(1, 1) + A(2, 2) * B(2, 1) + A(2, 3) * B(3, 1)
C(2, 2) = A(2, 1) * B(1, 2) + A(2, 2) * B(2, 2) + A(2, 3) * B(3, 2)
MatrizC = MatrizC & C(i, j) & Chr(9)
Next
MatrizC = MatrizC & Chr(13) & Chr(10)
Next
RichTextBox3.Text = MatrizC
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MatrizB = ""
For i = 1 To 3
For j = 1 To 2
MatrizB = MatrizB & B(i, j) & Chr(9)
Next
MatrizB = MatrizB & Chr(13) & Chr(10)
Next
RichTextBox2.Text = MatrizB
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For i = 1 To 3
For j = 1 To 2
B(i, j) = InputBox("enter the element")
Next
Next
End Sub
End Class
| 