Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Module Module1
- Sub Main()
- Dim N As Int64
- Dim max As Int64
- Dim cont As Int64
- Dim T As String
- INIZIO:
- cont = 1
- max = 0
- System.Console.WriteLine("Programma per trovare il massimo tra tutti i numeri inseriti")
- System.Console.WriteLine()
- While cont <= 120
- System.Console.Write("Inserisci il " & cont & "° numero: ")
- N = System.Console.ReadLine()
- System.Console.WriteLine("Numero inserito: " & N)
- If N > max Then
- max = N
- End If
- cont = cont + 1
- End While
- System.Console.WriteLine()
- System.Console.WriteLine("********************")
- System.Console.WriteLine()
- System.Console.WriteLine("Il numero più alto tra quelli inseriti è " & max)
- System.Console.WriteLine()
- System.Console.WriteLine("********************")
- RIPROVA:
- System.Console.WriteLine()
- System.Console.WriteLine("Vuoi riprovare? Digita S per Si e N per No")
- System.Console.WriteLine()
- T = System.Console.ReadLine()
- System.Console.WriteLine()
- System.Console.WriteLine("********************")
- System.Console.WriteLine()
- If T = "S" Then
- GoTo INIZIO
- ElseIf T = "s" Then
- GoTo INIZIO
- ElseIf T = "N" Then
- System.Console.WriteLine()
- System.Console.WriteLine("Hai scelto di non proseguire")
- System.Console.WriteLine()
- GoTo FINE
- ElseIf T = "n" Then
- System.Console.WriteLine()
- System.Console.WriteLine("Hai scelto di non proseguire")
- System.Console.WriteLine()
- GoTo FINE
- ElseIf T = "si" Then
- GoTo INIZIO
- ElseIf T = "Si" Then
- GoTo INIZIO
- ElseIf T = "no" Then
- System.Console.WriteLine()
- System.Console.WriteLine("Hai scelto di non proseguire")
- System.Console.WriteLine()
- GoTo FINE
- ElseIf T = "No" Then
- System.Console.WriteLine()
- System.Console.WriteLine("Hai scelto di non proseguire")
- System.Console.WriteLine()
- GoTo FINE
- Else
- System.Console.WriteLine("Comando non valido")
- GoTo RIPROVA
- End If
- FINE:
- System.Console.WriteLine()
- System.Console.WriteLine("Premi un tasto qualsiasi")
- System.Console.ReadKey()
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement