Mensajes

gracias, pero era para hoy a las 11:pm colombia... pero con 3 puntos de 4 estoy feliz gracias por la ayuda prestada

hola, muchas gracias, es que me dejaron un trabajo y fue poca la información que enseño el profesor.... , no soy programador y la profesora me esta matando con este trabajo, ya tengo los otros dos puntos del taller, pero este tema de matrices no enseño bien... y que pena por este otro ejercicio

Pedir al usuario el número de filas y de columnas de una matriz bidimensional y asignar a cada posición el valor resultante de sumar la fila y la columna en la que se encuentra.

Utilizar datagridview para imprimir los datos de la matriz.

con lo que tengo asta el momento ya puedo crear la matriz como yo quiera, pero no se como llenarla de información y realizar la suma que pide, espero pueda ayudarme en eso, y disculpa por gastar un poco de su tiempo.

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim x, y, i, j As Integer
       Dim tabla(x, y) As Integer
       x = InputBox("digite el numero de filas")
       y = InputBox("digite el numero de columnas")
       With DataGridView1
           .ColumnCount = y

           .RowCount = x
         
           .Item(i, j).Value = (i + j)




       End With
   End Sub

hola, al colocar eso de &H1, &H3, &H5

me sale error en esta parte

Código [Seleccionar] Expandir

Me.Label5.Text = Total.ToString
        Dim Total2 As Single
        Dim Col5 As Integer = &H5
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            Total2 += Val(row.Cells(Col5).Value)

me dice que "El índice estaba fuera del intervalo. Debe ser un valor no negativo e inferior al tamaño de la colección. Nombre del parámetro: index"

 

hola, disculpa por lo del post anterior...
es que quiero sumar las colomnas impares y las filas impares, ya me suma las filas pero no e podido sumar las columnas, este es el codigo que tengo

Public Class ssuma

 

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i, j As Integer
        Dim tabla(5, 5) As String

        With DataGridView1

            .Columns.Add("", "")
            .Columns.Add("", "")
            .Columns.Add("", "")
            .Columns.Add("", "")
            .Columns.Add("", "")

            .RowCount = 5

            For i = 0 To 4

                For j = 0 To 4

                    tabla(i, j) = InputBox("Digite un número")
                    .Item(i, j).Value = tabla(i, j)

                Next

            Next



        End With

   

        Dim fila1 As Integer = 0
        Dim fila3 As Integer = 2
        Dim fila5 As Integer = 4

        Dim sumFila1 As Integer = (From cell As DataGridViewCell In DataGridView1.Rows.Item(fila1).Cells Select CInt(cell.Value)).Sum

        Dim sumFila3 As Integer = (From cell As DataGridViewCell In DataGridView1.Rows.Item(fila3).Cells Select CInt(cell.Value)).Sum

        Dim sumFila5 As Integer = (From cell As DataGridViewCell In DataGridView1.Rows.Item(fila5).Cells Select CInt(cell.Value)).Sum

        Label1.Visible = True
        Label1.Text = "La suma de los valores de la primer fila es de " & sumFila1

        Label2.Visible = True
        Label2.Text = "La suma de los valores de la tercera fila es de " & sumFila3

        Label3.Visible = True
        Label3.Text = "La suma de los valores de la quinta fila es de " & sumFila5



        Dim Total As Single
        Dim Col1 As Integer = Me.DataGridView1.CurrentCell.ColumnIndex
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            Total += Val(row.Cells(Col1).Value)
        Next
        Me.Label4.Text = "la suma de los valores de la primera columnas es de " & Total.ToString
        Dim Total1 As Single
        Dim Col3 As Integer = Me.DataGridView1.CurrentCell.ColumnIndex
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            Total1 += Val(row.Cells(Col3).Value)
        Next
        Me.Label5.Text = Total.ToString
        Dim Total2 As Single
        Dim Col5 As Integer = Me.DataGridView1.CurrentCell.ColumnIndex
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            Total2 += Val(row.Cells(Col5).Value)
        Next
        Me.Label6.Text = Total.ToString


    End Sub

    Private Sub VOLVERALMENUINICIALToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VOLVERALMENUINICIALToolStripMenuItem.Click
        Me.Close()
        mnprincipal.Show()
    End Sub

    Private Sub SALIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SALIRToolStripMenuItem.Click
        MsgBox("desea abandonar el programa", 36)
        MsgBox("esta seguro de salir", 36)
        MsgBox("hasta pronto")
        End
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataGridView1.Columns.Clear()
        DataGridView1.Rows.Clear()
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        Label5.Text = ""
        Label6.Text = ""



    End Sub

   
End Class

HOLA, TENGO UN PROBLEMA, QUIERO SUMAR LAS COLUMNAS IMPARES, INTENTE REALIZAR COMO UDS LO A REALIZADO PERO AL SUMAR LA COLUMNA EL RESULTADO ES LE MISMO QUE EL DE LA FILAS