Randomize() 'funzione che Varia casualmente un numero ogni volta che il programma viene eseguito
Dim x As Integer = Int(1000 * Rnd() + 1) 'Il numero casuale che va da 1 a 1000
Dim Numero As Integer 'Il numero che l'utente inserisce
Dim Tentativi As Integer = 0 'Il numero di tentativi effettuat
i nel corso del gioco
Do 'Inizio ciclo pre-condizionale
Console.Write("Inserisci il numero: ") 'Spazio per scrivere il valore della variabile Numero
Numero = Console.ReadLine() 'Il numero inserito dall'utente viene letto
If((Numero > 1000) Or (Numero <= 0)) Then 'Verifica se il numero è valido
Console.WriteLine("Numero Non valido!") 'Se non è valido stampa un messaggio con scritto Non valido!
Else 'Altrimenti
If(Numero > x) Then 'Verifica se il Numero è maggiore di x
Console.WriteLine("Troppo alto!") 'Se è vero stampa un messaggio con scritto Troppo alto!
Tentativi = Tentativi + 1 'Si incrementano i tentativi effettuati
Else 'Altrimenti
If(Numero < x) Then 'Verifica se il numero è minore di x
Console.WriteLine("Troppo basso!") 'Se è vero stampa un messaggio con scritto Troppo basso!
Tentativi = Tentativi + 1 'Si incrementano i tentativi effettuati
Else 'Altrimenti
Console.WriteLine("Bravo hai indovinato!") 'Stampa un messaggio con scritto Bravo hai indovinato!
Tentativi = Tentativi + 1 'Si incrementano i tentativi effettuati
Console.WriteLine("Tentativi effettuati: " & Tentativi) 'Stampa i tentativi effettuati
Loop While(Numero <> x) 'Il ciclo si ripete finché il Numero inserito dall'utente è diverso dal numero scelto casualmente
Console.Write("Premere invio per terminare...") 'Messaggio che da indicazioni all'utente su come terminare il programma
Console.ReadLine() 'funzione che tiene aperto il programma, una volta che il gioco è completato, in modo da poter visualizzare il risultato.
User deleted
User deleted
Informatica