Visual Basic.NET - Necesito ayuda D:

   
Vista:

Necesito ayuda D:

Publicado por Karen Ruiz (1 intervención) el 14/10/2013 23:19:16
Necesito ayuda con el código de esta aplicación para crear matrices dinámicas D:
Si me pueden ayudar a corregirlo, se los agradecería. Tengo que hacer que me pida el tamaño de la matriz antes de acceder a la forma y que aparezca en pantalla, tanto los valores de la matriz, como el resultado. En si, debo convertirlo a Visual Basic.net.
De antemano, gracias.

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
Option Explicit
Dim m() As Integer
Dim x() As Integer
 
Private Sub Form_Activate()
  'Crear una matriz bidimensional
  Dim nf As Integer, nc As Integer 'número de filas y de ‘columnas
  Dim f As Integer, c As Integer   'fila y columna actuales
  Dim sumafila As Integer          'suma de cada fila
 
 
nf = InputBox("Número de filas de la matriz:")
  nc = InputBox("Número de columnas de la matriz:")
  Dim m(1 To nf, 1 To nc)
  Dim x(1 To nf, 1 To nc)
 
 
  'Entrada de datos
  For f = 1 To nf
    For c = 1 To nc
      m(f, c) = InputBox("m(" & f & ", " & c & ") = ")
    Next c
  Next f
      'Copiar la matriz m en la matriz x
  x = m
      'Escribir la suma de cada fila
  For f = 1 To nf
    sumafila = 0
    For c = 1 To nc
      sumafila = sumafila + x(f, c)
    Next c
    Print "Suma de la fila"; f; " = "; sumafila
  Next f
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Necesito ayuda D:

Publicado por Carlos (16 intervenciones) el 15/10/2013 23:12:23
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
Public Class Form1
    Dim m() As Integer
    Dim x() As Integer
    Private Sub Form1_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
        Dim nf As Integer, nc As Integer 'número de filas y de ‘columnas
        Dim f As Integer, c As Integer 'fila y columna actuales
        Dim sumafila As Integer 'suma de cada fila
        nf = InputBox("Número de filas de la matriz:")
        nc = InputBox("Número de columnas de la matriz:")
        Dim m(nf - 1, nc - 1)
        Dim x(nf - 1, nc - 1)
        'Entrada de datos
        For f = 0 To nf - 1
            For c = 0 To nc - 1
                m(f, c) = InputBox("m(" & f & ", " & c & ") = ")
            Next c
        Next f
        'Copiar la matriz m en la matriz x
        x = m
        'Escribir la suma de cada fila
        For f = 0 To nf - 1
            sumafila = 0
            For c = 0 To nc - 1
                sumafila = sumafila + x(f, c)
            Next c
            MessageBox.Show("Suma de la fila" & f & " = " & sumafila)
        Next f
        End
    End Sub

Cualquier duda me escribes a ---> cgcg2006@gmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar