|
Celý program vám dělat nebudu ale podle tohoto by jste to už mohl zvládnout:
Module Module1
Sub Main()
'vyzvu uživatele k napsání rozsahu
Console.WriteLine("Zadejte rozsah (1-x) X:")
Dim rozsah As Integer = CInt(Val(Console.ReadLine))
Console.WriteLine("Generuji číslo...")
'vytvořím proměnnou typu Random který slouží pro generování čísel a přiřadím do něj objekt typu Random
Dim rnd As New Random()
'vygeneruji číslo (první parametr začátek rozsahu, druhý konec rozsahu)
Dim cislo As Integer = rnd.Next(1,rozsah)
Console.WriteLine("Číslo vygenerováno. Hádejte!")
If Console.ReadLine = cislo Then
Console.WriteLine("Správně! Číslo bylo opravdu " & cislo)
Else
'tohle už si dopište
End If
End Sub
End Module
Taky si to můžete dát do funkce a v proceduře Main mít jenom tu podmínku, bude to přehlednější. Zbytek zadání si dodělejte, nebudeme vám tu psát domácí úkoly!
|