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.
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 IntegerDim todos(cn) As Integer
nmayor = 0 nmenor = 1000000cn = 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 ThenMsgBox("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 = nEnd If
If n < nmenor Then nmenor = nEnd If
If n > p Thenlst_prom_mayor.Items.Add(n)
End If
If n > p Thencmb_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
0
