Visual Basic - codigo de error: indice fuera de los limites de la matriz

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 4
Ha aumentado su posición en 19 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

codigo de error: indice fuera de los limites de la matriz

Publicado por Jack (3 intervenciones) el 21/05/2020 18:32:28
hola buenos días a todos, estoy atascado en un código de vb.net tengo un error en un arreglo que no me deja compilar el programa. si alguien me pudiera ayudar se lo agradecería mucho.

disculpen si es un error muy novato la verdad soy nuevo en vb

aqui les dejo el codigo, agradezco de antemano la ayuda.

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
43
44
45
46
47
48
49
50
51
52
53
Private Sub bejecutar_Click(sender As Object, e As EventArgs) Handles bejecutar.Click
    Dim cn, index, s, c, n As Integer
    Dim p As Double
    Dim nmayor, nmenor As Integer
    Dim todos(cn) As Integer
    nmayor = 0
    nmenor = 1000000
    cn = InputBox("Cuantos numeros desea capturar")
    For index = 0 To (cn - 1)
        Do
            n = InputBox("ingrese el Numero")
            lsttodos.Items.Add(n)
            n = todos(index)
        Loop While n > 0
        If n Mod 2 = 0 Then
            MsgBox("El numero es par")
            lstpares.Items.Add(n)
        Else
            MsgBox("El numero es impar")
            lstimpares.Items.Add(n)
        End If
        s = s + n
        c = c + 1
        If n > nmayor Then
            nmayor = n
        End If
        If n < nmenor Then
            nmenor = n
        End If
        If n > p Then
            lst_prom_mayor.Items.Add(n)
        End If
        If n > p Then
            cmb_prom_menor.Items.Add(n)
        End If
    Next
 
    For index = 0 To (cn - 1)
        If (todos(index) > p) Then
            lst_prom_mayor.Items.Add(todos(index))
        End If
        If (todos(index) < p) Then
            cmb_prom_menor.Items.Add(todos(index))
        End If
    Next
    p = s / c
    txtsv.Text = s.ToString()
    txtcv.Text = c.ToString()
    txtp.Text = p.ToString()
    txtmayor.Text = nmayor.ToString()
    txtmenor.Text = nmenor.ToString()
 
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
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

codigo de error: indice fuera de los limites de la matriz

Publicado por Antoni Masana (560 intervenciones) el 21/05/2020 20:34:08
No indicas donde esta el error.

Yo veo varios y no se si es esto.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub bejecutar_Click(sender As Object, e As EventArgs) Handles bejecutar.Click
    Dim cn, index, s, c, n As Integer
    Dim p As Double
    Dim nmayor, nmenor As Integer
    Dim todos(cn) As Integer ' <-- Aqui dimensionas la array ¿A Cuantos elementos?
    nmayor = 0
    nmenor = 1000000
    cn = InputBox("Cuantos numeros desea capturar") ' <-- Cuantos elementos podemos
                                                    '     capturar ¿1.000.000.000.0000?
    For index = 0 To (cn - 1)
        Do
            n = InputBox("ingrese el Numero")
            lsttodos.Items.Add(n)
            n = todos(index)  ' <-- Aqui le pides que te devuelva el valor del la posición index de total que
                              '     previamente has ¿definido? y ¿guardado?

¿En que momento podes datos en el array total?
¿En el segundo FOR que valor tiene P?

Saludos.
\\//_
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