Visual Basic - duda con codigo

Life is soft - evento anual de software empresarial
   
Vista:

duda con codigo

Publicado por carlos (2 intervenciones) el 08/07/2015 11:48:30
Buenos días. Soy nuevo programando en visual basic, y tengo problemas con cierto código. Mi intención es la siguiente. en primer lugar introducir un valor, y después compararlo con valores de una lista, para obtener el inmediato superior al valor introducido. Los valores de la lista los he guardado en un vector. El código solo me funciona bien si el número que se introduce es menor al primer número de la lista, y tras revisarlo varias veces no encuentro el error. Gracias de antemano.
Este es el código:

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
Dim i As Integer
Dim snormalizada(19) As Double
Dim seccionnorm As Double
Dim seccalculada As Double
 
snormalizada(0) = 1.5
snormalizada(1) = 2.5
snormalizada(2) = 4
snormalizada(3) = 6
snormalizada(4) = 10
snormalizada(5) = 16
snormalizada(6) = 25
snormalizada(7) = 35
snormalizada(8) = 50
snormalizada(9) = 70
snormalizada(10) = 95
snormalizada(11) = 120
snormalizada(12) = 150
snormalizada(13) = 185
snormalizada(14) = 240
snormalizada(15) = 300
snormalizada(16) = 400
snormalizada(17) = 500
snormalizada(18) = 630
 
seccalculada = Val(TextBox1.Text)
seccionnorm = 0
 
For i = 0 To i = 18
 
	If seccalculada < snormalizada(i) Then
 
		seccionnorm = snormalizada(i)
		MsgBox(seccionnorm.ToString)
 
		Exit For
	End If
Next
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

duda con codigo

Publicado por Rafael (65 intervenciones) el 08/07/2015 15:04:41
Error de sintaxis:

For i = 0 To i = 18
Esto es como si dijeras que va de 0 a 0 por que pones to i=18 como i no es igual a 0 entonces trabaja de 0 a 0 por eso solo funciona con numeros menores al primero

La sintaxis correcta
1
For i = 0 To 18

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

duda con codigo

Publicado por carlos (2 intervenciones) el 08/07/2015 17:18:30
Muchas gracias por la corrección, que fallo mas bobo jaja.
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