Programación VB, algo salió mal, corríjame
Olvidaste definir a, mn, i, otherPrivate?Sub?Command1_Click()
Dim?c?As?Single,?bouns()?As?Single,?interest ()?As?Single,?t()?As?Single,?m()?As?Single,?n?As?Single,?y?As?Single
Dim?a?As ?Single, mn?As?Single, i?As?Single, other?As?Single
Dim?g(-2?To?12,?1?To?12)?As?Single
a?=?Val(Texto1.Texto)
nm?=?Val(Texto2.Texto)
i?=?Val(Texto3.Texto)
¿otro?=?Val(Text4.Text)
g(-2,?1)?=?a
g(-1,?1 )?=?0
g(0,?1)?=?0
Para?n?=?1?A?10 Para?y?=?1?A ?10
rebotes(n)?=?(g(n?-?1,?y?-?1)? ?g(n?-?2,?y?-?1)? ?g(n?-?3, ?y?-?1))?*?otro
t(n)?=?g(n?-?1, ?y?-?1) ?g(n?-?2,?y?-?1)? ?g(n?-?3,?y?-?1)? ?y)?=?a?*?i(1? ?i)?^?3?/?((1? ?i)?^?3?-?1)
nm( n )?=?t(n)?\?100
nm?=?nm? ?nm(n)
Seleccionar?Caso?Val(n)
Caso?Es?lt;=?3000 c?=?0.08 Caso?Es?lt;=?8000
c?=?0.07
Caso?Es?lt ; =?15000 c?=?0.06 Caso?Es?lt;=?30000 c?=?0.05 Caso?Es?lt;=?50000 c?=?0.04 Caso?Es?lt;=?80000 c?= 0.03
Caso?Es?lt;=?100000
c?=?0.02
Caso?Es?gt;?100000
c?=?0 ¿Fin?Select
interés(n)?=?(3?*?g(n,?y)? ?bouns(n)?-?t(n))? ?c?/?3
g(n,?y)?=?g(n,?y)?-?interés(n)
n?=?n ? ?1
y?=?y? ?1 Siguiente
Siguiente
n?=?11
y?=?
rebotes(n)?=?(g(n?-?1,?y?-?1)? ?g(n?-?2,?y?-?1)? ? g (n?-?3,?y?-?1))?*?otro
t(n)?=?g(n?-?1,?y?-?1)? g(n?-?2,?y?-?1)? ?g(n?-?3,?y?-?1)?
,?y)?=?t(n)?*?(1? ?i)
n?=?12
y?=?12
rebotes(n)?=?(g(n?-?1,?y?-?1)? ?g(n?-?2,?y?-?1)? ?g(n?-?3 ,?y?-?1))?*?otro
t(n)?=?g(n?-?1,?y?-?1)? 2,?y?-?1)? ?g(n?-?3,?y?-?1)? (n)?*?(1? ?i)
Texto6.Texto?=?g(n,?y)
End?Sub