EJERCICIO DE POTENCIA

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim base, exponente, potencia, i As Integer


Private Sub cmdConsultar_Click()
base = Val(Me.txtBase.Text)
exponente = Val(Me.txtExponente.Text)
If exponente = 0 Then
 potencia = 1
 Me.txtPotencia.Text = potencia
 Else

potencia = 1
For i = 1 To exponente
potencia = potencia * base
Next

 Me.txtPotencia.Text = potencia
End If
End Sub