Matematické Fórum

Do ... Loop napriklad tady nebo tady jsem nasel.
Mohlo by to vypadat treba takhle:
(snazil jsem se co nejmensi upravy, ale vymenil jsem ty dve posledni casti na konci)

Module Module1

    Sub Main()
        Dim slovo() As Char
        Dim i As Integer
        Dim pocetznaku As Integer
        Dim pismeno As String
        Dim pocetpokusu As Integer
        Dim pokus As Integer
        Dim spousteni As String
        Dim zadani As String
        Dim uhadnuto As Boolean
        Do
            System.Console.WriteLine("! ! ! Šibenice ! ! !")
            System.Console.Write("Klávesa Enter program spustí, slovo -konec- program ukončí:")
            spousteni = System.Console.ReadLine
            If spousteni = "konec" Then
                End
            End If
            System.Console.WriteLine()
            System.Console.Write("Zadejte slovo pro hádajícího: ")
            zadani = System.Console.ReadLine()
            Dim hadane As String = zadani.ToLower
            System.Console.Clear()
            Console.WriteLine("Slovo bylo vloženo do schránky, prosím předejte hru hráči dva a stiskněte Enter pro pokračování...")
            Console.ReadLine()
            System.Console.Clear()
            pocetznaku = Len(hadane)
            pocetpokusu = pocetznaku * 4
            REM
            System.Console.WriteLine("Hráči dva, hádáš slovo o " & pocetznaku & " znacích!")
            ReDim slovo(pocetznaku - 1)
            For i = 0 To pocetznaku - 1
                slovo(i) = "*"
            Next
            uhadnuto = 0
            For pokus = 1 To pocetpokusu
                System.Console.WriteLine()
                System.Console.Write("Hledané slovo: ")
                System.Console.WriteLine(slovo)
                System.Console.WriteLine("Pokus číslo " & pokus & ", zbývá/jí " & pocetpokusu - pokus & " pokusů/y.")
                System.Console.WriteLine()

                System.Console.Write("Zadej písmeno: ")
                pismeno = System.Console.ReadLine()

                For i = 0 To pocetznaku - 1
                    If hadane(i) = pismeno Then
                        slovo(i) = pismeno
                        If slovo = hadane Then
                            uhadnuto = True
                        End If
                    End If
                Next
                If uhadnuto Then Exit For
            Next
            If uhadnuto Then
                System.Console.WriteLine()
                System.Console.WriteLine("Gratuluji! Uhodl jsi slovo : " & hadane)
                System.Console.WriteLine("Uhodl jsi to na " & pokus & ". pokus z celkových " & pocetpokusu)
                System.Console.WriteLine()
                System.Console.ReadLine()
                System.Console.Clear()
            Else
                System.Console.WriteLine("Lituji, neuhodl jsi. Hádané slovo bylo: " & hadane)
                System.Console.WriteLine("")
            End If
        Loop
    End Sub

End Module