Unnamed

Option Strict On
Imports System.Console
Module Module1
    Dim i, virheet As Integer
    Dim vokaali As String
    Sub Main()
        i = 0
        virheet = 0
        While i < 3 And virheet < 6
            Write("Anna vokaali: ")
            vokaali = CStr(ReadLine())
            If vokaali.Length <= 1 Then
                Select Case vokaali
                    Case "a", "e", "i", "o", "u", "y", "ä", "ö"
                        WriteLine("Hienoa tunnet vokaalit")
                        i = i + 1
                    Case Else
                        If virheet = 5 Then
                            WriteLine("Haeppas kirjastosta lähdemateriaalia")
                        Else
                            WriteLine("Kertaappa vokaalit ", vokaali, "ei ole vokaali!")
                        End If
                        virheet = virheet + 1
                End Select
            Else
                WriteLine("Vokaalilla tarkoitetaan YHTÄ aakkosten kirjainta ei sanoja tai useita eri merkkejä")
            End If
        End While
        ReadLine()
    End Sub
End Module