Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB, algo salió mal, corríjame

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