Programa aritmético de función exponencial VB
Privado?Sub?Command1_Click()
Dim?n?As?Integer, ?q?As?Double
Cls
n?=?Val(InputBox ("n=?"))
q?=?Val(InputBox("q=?"))
Para?"W"?amp;?i?amp; ?" ="? amp;?(1? ?q)?^?i?-?1?'Si es la potencia n-1, escribe (1 q)^(i-1)
¿Siguiente?i
Fin?Sub