Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Module Module1
- Sub Main()
- Dim N As Int64 'numero da inserire
- Dim M As Double 'resto della divisione
- Dim T As String 'tasto digitato
- INIZIO: 'destinazione GoTo
- System.Console.WriteLine("Programma per trovare i divisori del numero inserito")
- System.Console.Write("Inserisci un numero: ")
- N = System.Console.ReadLine() 'input N
- System.Console.WriteLine("I divisori del numero inserito [" & N & "] sono: ")
- System.Console.WriteLine()
- For i = N To 1 Step -1 'inizio for
- M = N Mod i 'calcolo del resto della divisione
- If M = 0 Then 'se il resto è 0 allora
- System.Console.WriteLine(i) 'output i
- End If 'fine se
- Next 'fine for
- System.Console.WriteLine()
- DOMANDA: 'destinazione GoTo
- System.Console.WriteLine("Vuoi riprovare? S: SI, N: NO")
- T = System.Console.ReadLine()
- System.Console.WriteLine()
- If T = "S" Then 'se è stato scritto S allora
- GoTo INIZIO 'torna all inizio del programma
- ElseIf T = "N" Then 'altrimenti se è N allora
- System.Console.WriteLine("Hai deciso di non riprovare.")
- GoTo FINE 'vai alla fine del programma
- Else 'altrimenti se è messo un altro carattere dai errore
- System.Console.WriteLine("Comando non valido!")
- System.Console.WriteLine()
- GoTo DOMANDA 'vai alla domanda di riprovare
- End If
- FINE:
- System.Console.WriteLine("Premi un qualsiasi tasto")
- System.Console.ReadKey()
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment