POTENCIA DE UN NUMERO

DISEÑO FINAL

VISTA DEL DISEÑO

PROGRAMACION

Option Explicit

Dim num, pot, result, i As Double

Private Sub cmdCalcular_Click()
num = Val(Me.txtNumero.Text)
pot = Val(Me.txtPotencia.Text)
result = 1

For i = 1 To pot
result = result * num
Next
Me.txtRespuesta.Text = result

End Sub