Navigace: Hlavní stránka -> BASIC -> 10 Znaky, texty ->10.12 Zobrazení dotazu na opakování programu

MENU

10.12 Zobrazení dotazu na opakování programu

Zadání:
Sestavte program, který zobrazí dotaz na opakování programu.
Řešení:
V programu využijeme knihovnu console, která obsahuje funkci readkey. Tato funkce načítá stisknutý znak
na klávesnici. 
Module Module1

    Sub Main()

        Dim z As ConsoleKeyInfo

        Do
            Console.WriteLine("**********************************")
            Console.WriteLine("Opakovat program? (A,a,enter) ")
            z = Console.ReadKey
        Loop Until (z.Key <> ConsoleKey.Enter) And (z.Key.ToString <> "A")

    End Sub

End Module
program ke stažení