アルファベットから母音を抽出するプログラムを作成する

Question

Module Module1 

Sub Main() 
    Dim alphabet() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"} 
    Dim vowel As New List(Of String) 
    vowel.Add("a") 
    vowel.Add("e") 
    vowel.Add("i") 
    vowel.Add("o") 
    vowel.Add("u") 


    Next 
End Sub 

End Module 

母音かどうかを確認するために、配列アルファベットの各値をチェックするforループを作成する方法がわからない母音を順番に出力します。

Answer 1

Module Module1 

Sub Main() 
    Dim alphabet() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"} 
    For Each element As String In alphabet 
     If element = "a" Then 
      Console.Write("a") 
     End If 
     If element = "e" Then 
      Console.Write("e") 
     End If 
     If element = "i" Then 
      Console.Write("i") 
     End If 
     If element = "o" Then 
      Console.Write("o") 
     End If 
     If element = "u" Then 
      Console.Write("u") 
     End If 
    Next 
    Console.ReadLine() 
End Sub 

End Module