Ecco un semplice esempio di calcolo della potenza, con esponenti sia positivi che negativi.
codice:Public Function Potenza(base As Double, esp As Integer) As Double Select Case esp Case 0 Potenza = 1 Case Is > 0 Potenza = Potenza(base, esp - 1) * base Case Is < 0 Potenza = Potenza(base, esp + 1) / base End Select End Function