Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Guida VBScript - Esercitazione con le strutture iterative e condizionali

Guida VBScript

Capitolo 17° - Esercitazione con le strutture iterative e condizionali

<< Precedente Prossimo >>
Facciamo subito un esempio con la struttura Do:

CODICE:

Option Explicit
On Error Resume Next 'Se fa errore, non notifica nulla
Dim n,elev
n = InputBox("Inserisci un numero")
'La variabile n è un numero
elev=1
'Le volte dell'elevamento a potenza è 1

If CDbl(n)/2 <> Int(CDbl(n)/2) Then
'Se n/2 è diverso dalla forma intera
'di n/2 (dispari), allora
n = n + 1
'Aggiunge 1 per rendere pari il numero
End If

Do Until n = 2
'Esegue fino a quando n è uguale a 2
wscript.echo(n & " : 2 è uguale a " & CDbl(n/2))
'Visualizza il risultato
n = CInt(n/2)
'Divide per due n
elev = elev+1
'Incrementa l'elevamento
Loop

wscript.echo("2 ^ " & elev & " = " & CInt(n)^elev)
'Visualizza in un messaggio l'elevamento effettuato

Potrebbe sembrare difficile, ma invece si basa su un principio facilissimo. Il trucco per capire è quello di rileggere più volte, magari lentamente (e ragionarci).
<< Precedente Prossimo >>
Input invalido