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:
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 = 0For i = 0 To i = 18
If seccalculada < snormalizada(i) Then
seccionnorm = snormalizada(i)
MsgBox(seccionnorm.ToString)
Exit For
End If
Next
Valora esta pregunta
0