Faccio un esempio banale che potrai, con un pò d'impegno, sicuramente migliorare:
'Dim iPotenza As Integer = 133
Dim iPotenza As Integer = 625
Dim iEspo As Integer = 4
Dim iNum As Integer
Dim iRisult As Integer
Dim i As Integer
iNum = 2
While iRisult < iPotenza
iRisult = iNum ^ iEspo
Print "iRisult= '" & iRisult & "'"
Inc iNum
Wend
If iRisult > iPotenza Then
Print "La potenza fornita non é multipla di un numero intero"
Endif
Non conosco la tua esperienza in programmazione. Sappi, però, se non dovessi avere già un tuo bagaglio di conoscenze, che scrivere un programma non significa applicare formule già precostituite, ma mettere insieme gli strumenti forniti dal linguaggio di programmazione corrente con la propria capacità di fantasia inventiva.
Naturalmente non esistono solo numeri interi. Intanto potresti partire dallo spunto fornito col mio esempio. ;)
Se ti occorresse altro aiuto, non dovrai fare altro che chiedere.
:ciao: