Problema de programación VB, por favor dame algún consejo
Privado?Sub?Command1_Click()
Dim?i?As?Integer,?j?As?Integer
Dim?x(30)?As ?Single,?y(30)?As?Single
For?i?=?1?To?30
x(i)?=?InputBox("Por favor, introduzca el "?amp;?i?amp;?" precio de cierre del día: ",?0)
Siguiente
Para?i?=?1?A?26
x(0)?=?0
¿Para?j?=?1?A?5
x(0)?=?x(0)? (i? ?j?-?1)
Siguiente
y(i? ?5?-?1)?=?x(0)?/?5
Siguiente
Para?i?=?1?A?4
x(0)?=?0
Para?j? ?1?A?i
x(0)?=?x(0)? ?x(j)
Siguiente
y(i) ? =?x(0)?/?(j?-?1)
Siguiente
Para?i?=?1?A?30
Círculo ?(50? ?i?*?100,?1500?-?x(i)?*?10),?10
Círculo?(50? ?i?*?100,?1500 ? -?y(i)?*?10),?10
Círculo?(50? ?i?*?100,?1500),?10
Siguiente
p>Imprimir
¿Para?i?=?1?A?30
Imprimir?y(i);
Si?i? Mod ?5?=?0?Then?Print
Siguiente
Fin?Sub
El siguiente es un precio de cierre generado aleatoriamentePrivate?Sub?Command1_Click()
¿Dim?i?As?Integer,?j?As?Integer
Dim?x(30)?As?Single,?y(30)?As?Single
¿Dim?x0?As?Integer,?y0?As?Integer
Dim?x1?As?Integer,?y1?As?Integer
Para?i ?= ?1?To?30
'x(i)?=?InputBox("Ingrese el precio de cierre del día "?amp;?i?amp;?": ",?0 )
x(i)?=?Round(Rnd?*?10? ?15,?2)
Siguiente
x0?=?50? ?100
y0?=?1500?-?x(1)?*?40
Para?i?=?1?A?26
x(0 )?=?0
¿Para?j?=?1?A?5
x(0)?=?x(0)? ?j? -?1)
Siguiente
y(i? ?5?-?1)?=?x(0)?/?5
Siguiente
¿Para?i?=?1?A?4
x(0)?=?0
¿Para?j?=?1? ¿A?i
x(0)?=?x(0)? ?x(j)
Siguiente
y(i)?=?x (0
)?/?(j?-?1)
Siguiente
x1?=?50 ?100
y1?=?1500?-?y (1)?*?40
Para?i?=?1?A?30
'Círculo?(50? ?i?*?100,?1500?-? x(i)?*?40),?20,?RGB(0,?255,?0)
'Círculo?(50? ?i?*?100,?1500?-?y (i)?*?40),?20,?RGB(255,?0,?0)
Línea?(x0,?y0)-(50??i?*?100,? 1500?-?x(i)?*?40),?RGB(0,?255,?0)
x0?=?50? >y0?=?1500?-?x(i)?*?40
Línea?(x1,?y1)-(50? ?i?*?100,?1500?-?y( i)?*?40),?RGB(255,?0,?0)
x1?=?50? ?i?*?100
y1?=?1500 ?-?y(i)?*?40
Círculo?(50? ?i?*?100,?1500),?10
Siguiente
Imprimir
Para?i?=?1?A?30
Imprimir?y(i);
Si?i?Mod?5?= ?0?Entonces?Imprimir
Siguiente
Fin?Sub