Matrices visual basic
Hola a todos.
Tengo un programa creado correctamente, se trata de una matriz, en el que al usuario le pidan el numero de filas y de columnas que queremos que tenga la matriz y que se rellene de la siguiente manera:
1 100 6 95
2 99 7 94
3 98 8 93
4 97 9 92
5 96 10 91
El problema es que me sale la matriz justo al reves, es decir:
1 2 3 4 5
100 99 98 97
6 7 8 9 10.......
Este es el cogigo (VB 2005):
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object,ByVale As System.EventArgs) Handles MyBase.Load
Dim numfilas, i, x As Integer
Dim numcolumnas, iniuno, inicien As Integer
iniuno = 0
inicien = 101
numfilas = InputBox("Introduce el numero de filas")
numcolumnas = InputBox("Introduce el numero de columnas")
Label1.Text = ""
For i = 0 To numcolumnas
For x = 0 To numfilas
If i Mod 2 = 0 Then
iniuno = iniuno + 1
Label1.Text = Label1.Text & " " & iniuno
Else
inicien = inicien - 1
Label1.Text = Label1.Text & " " & inicien
End If
Next
Label1.Text = Label1.Text & Chr(13)
Next
End Sub
End Class
Tengo un programa creado correctamente, se trata de una matriz, en el que al usuario le pidan el numero de filas y de columnas que queremos que tenga la matriz y que se rellene de la siguiente manera:
1 100 6 95
2 99 7 94
3 98 8 93
4 97 9 92
5 96 10 91
El problema es que me sale la matriz justo al reves, es decir:
1 2 3 4 5
100 99 98 97
6 7 8 9 10.......
Este es el cogigo (VB 2005):
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object,ByVale As System.EventArgs) Handles MyBase.Load
Dim numfilas, i, x As Integer
Dim numcolumnas, iniuno, inicien As Integer
iniuno = 0
inicien = 101
numfilas = InputBox("Introduce el numero de filas")
numcolumnas = InputBox("Introduce el numero de columnas")
Label1.Text = ""
For i = 0 To numcolumnas
For x = 0 To numfilas
If i Mod 2 = 0 Then
iniuno = iniuno + 1
Label1.Text = Label1.Text & " " & iniuno
Else
inicien = inicien - 1
Label1.Text = Label1.Text & " " & inicien
End If
Next
Label1.Text = Label1.Text & Chr(13)
Next
End Sub
End Class
1 Respuesta
Respuesta de Carlos soloffice
1
Aquí lo tienes ;)
Dim numfilas, i, x As Integer
Dim numcolumnas, iniuno, inicien As Integer
iniuno = 1
inicien = 100
numfilas = InputBox("Introduce el numero de filas")
numcolumnas = InputBox("Introduce el numero de columnas")
Label1.Text = ""
For i = 1 To numfilas
For x = 1 To numcolumnas
If x Mod 2 = 0 Then
Label1.Text = Label1.Text & " " & (inicien - i + 1) - (((x / 2) - 1) * numfilas)
Else
Label1.Text = Label1.Text & " " & (iniuno + i - 1) + (((x - 1) / 2) * numfilas)
End If
Next
Label1.Text = Label1.Text & Chr(13)
Next
Saludos,
[email protected]
Dim numfilas, i, x As Integer
Dim numcolumnas, iniuno, inicien As Integer
iniuno = 1
inicien = 100
numfilas = InputBox("Introduce el numero de filas")
numcolumnas = InputBox("Introduce el numero de columnas")
Label1.Text = ""
For i = 1 To numfilas
For x = 1 To numcolumnas
If x Mod 2 = 0 Then
Label1.Text = Label1.Text & " " & (inicien - i + 1) - (((x / 2) - 1) * numfilas)
Else
Label1.Text = Label1.Text & " " & (iniuno + i - 1) + (((x - 1) / 2) * numfilas)
End If
Next
Label1.Text = Label1.Text & Chr(13)
Next
Saludos,
[email protected]
