Transpuesta de matriz
Publicado por M. Lola (1 intervención) el 24/05/2019 06:12:44
Buenas noches, soy nueva en basic y estoy trabajando en ejercicios con matrices, (en especifico con dataGrid) y la verdad se me dificulta demasiado, en este momento estoy haciendo una transpuesta de matriz, y la verdad me he confundido demasiado. Apreciaria que me ayudaran...
<Este es mi codigo>
<Este es mi codigo>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'Crear Matriz
Private Sub btnCrear_Click(sender As Object, e As EventArgs) Handles btnCrear.Click
Dim columna, fila As ByteDim i As Byte
fila = Val(txbfilas.Text)
columna = Val(txbcolumnas.Text)
If (fila = columna) Then
MatrizA.RowCount = fila
MatrizA.ColumnCount = columna
For i = 0 To columna - 1
MatrizA.Columns(i).Width = 30
Next
MatrizAB.RowCount = fila
MatrizAB.ColumnCount = columna
For i = 0 To columna - 1
MatrizAB.Columns(i).Width = 30
Next
End If
End Sub
'Transpuesta
Private Sub btnTranspuesta_Click(sender As Object, e As EventArgs) Handles btnTranspuesta.Click
Dim i, j As Byte Dim fila, columna As Bytecolumna = Val(txbcolumnas.Text)
fila = Val(txbfilas.Text)
For i = 1 To fila - 1
For j = 1 To columna - 1
MatrizAB.Rows(i).Cells(j).Value = Val(MatrizA.Rows(j - 1).Cells(i - 1).Value)
Next
Next
End Sub
Valora esta pregunta
0