GOTO: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 25: | Riga 25: | ||
Next | Next | ||
'''End''' | |||
Ma anche con comandi invertiti: | |||
'''Public''' Sub Main() | |||
Dim i As Integer | |||
<Font Color= #B22222>etichetta1:</font> | |||
Inc i | |||
If i Mod 10 = 0 Then | |||
Print i | |||
Else | |||
<Font Color= #B22222>GoTo</font> etichetta1 <Font Color=gray>' ''Il programma salta alla riga dove è presente l'etichetta "etichetta1"''</font> | |||
Endif | |||
'''End''' | '''End''' | ||
Versione delle 10:07, 3 nov 2016
L'istruzione GOTO consente di saltare all'etichetta dichiarata all'interno della medesima routine. Il programma continuerà il processo semplicemente dalla riga (ossia l'etichetta dichiarata) ove è saltato.
GOTO etichetta
......
etichetta: ......
Esempio:
Public Sub Main() Dim i As Integer Dim j As Integer For i = 1 To 5 GoTo etichetta1 ' Il programma salta alla riga dove è presente l'etichetta "etichetta1" Next Print "Riga che sarà saltata." ' Questa riga del Print sarà saltata ! etichetta1: For j = 1 To 3 ' Terminato questo ciclo il programma uscirà dalla routine Print "Prova";; i;; j Next End
Ma anche con comandi invertiti:
Public Sub Main()
Dim i As Integer
etichetta1:
Inc i
If i Mod 10 = 0 Then
Print i
Else
GoTo etichetta1 ' Il programma salta alla riga dove è presente l'etichetta "etichetta1"
Endif
End