Red de conocimiento informático - Problemas con los teléfonos móviles - Programa aritmético de función exponencial VB

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