Advertisement
marongiuchristian93

[VB.NET] Trovare il massimo tra i numeri inseriti

Jan 20th, 2018
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Module1
  2.  
  3.     Sub Main()
  4.  
  5.         Dim N As Int64
  6.         Dim max As Int64
  7.         Dim cont As Int64
  8.         Dim T As String
  9.  
  10. INIZIO:
  11.         cont = 1
  12.         max = 0
  13.         System.Console.WriteLine("Programma per trovare il massimo tra tutti i numeri inseriti")
  14.         System.Console.WriteLine()
  15.  
  16.         While cont <= 120
  17.             System.Console.Write("Inserisci il " & cont & "° numero: ")
  18.             N = System.Console.ReadLine()
  19.             System.Console.WriteLine("Numero inserito: " & N)
  20.             If N > max Then
  21.                 max = N
  22.             End If
  23.             cont = cont + 1
  24.         End While
  25.         System.Console.WriteLine()
  26.         System.Console.WriteLine("********************")
  27.         System.Console.WriteLine()
  28.         System.Console.WriteLine("Il numero più alto tra quelli inseriti è " & max)
  29.         System.Console.WriteLine()
  30.         System.Console.WriteLine("********************")
  31. RIPROVA:
  32.         System.Console.WriteLine()
  33.         System.Console.WriteLine("Vuoi riprovare? Digita S per Si e N per No")
  34.         System.Console.WriteLine()
  35.         T = System.Console.ReadLine()
  36.         System.Console.WriteLine()
  37.         System.Console.WriteLine("********************")
  38.         System.Console.WriteLine()
  39.         If T = "S" Then
  40.             GoTo INIZIO
  41.         ElseIf T = "s" Then
  42.             GoTo INIZIO
  43.         ElseIf T = "N" Then
  44.             System.Console.WriteLine()
  45.             System.Console.WriteLine("Hai scelto di non proseguire")
  46.             System.Console.WriteLine()
  47.             GoTo FINE
  48.         ElseIf T = "n" Then
  49.             System.Console.WriteLine()
  50.             System.Console.WriteLine("Hai scelto di non proseguire")
  51.             System.Console.WriteLine()
  52.             GoTo FINE
  53.         ElseIf T = "si" Then
  54.             GoTo INIZIO
  55.         ElseIf T = "Si" Then
  56.             GoTo INIZIO
  57.         ElseIf T = "no" Then
  58.             System.Console.WriteLine()
  59.             System.Console.WriteLine("Hai scelto di non proseguire")
  60.             System.Console.WriteLine()
  61.             GoTo FINE
  62.         ElseIf T = "No" Then
  63.             System.Console.WriteLine()
  64.             System.Console.WriteLine("Hai scelto di non proseguire")
  65.             System.Console.WriteLine()
  66.             GoTo FINE
  67.         Else
  68.             System.Console.WriteLine("Comando non valido")
  69.             GoTo RIPROVA
  70.         End If
  71.  
  72. FINE:
  73.         System.Console.WriteLine()
  74.         System.Console.WriteLine("Premi un tasto qualsiasi")
  75.         System.Console.ReadKey()
  76.     End Sub
  77.  
  78. End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement