創建一個程序，從字母表中提取元音

-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"} 
    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循環，檢查數組中的每個值「字母」，以檢查它是否是元音，程序應該然後按順序輸出元音。創建一個程序，從字母表中提取元音

來源

2016-11-03 Arman

你需要兩個主要的東西：[**'For Each' loop **]（https://msdn.microsoft.com/en-us/library/5ebk1751.aspx）和[**'List（Of T）.Contains（）'方法**]（https://msdn.microsoft.com/en-us/library/bhkz42b3（v = vs.110）.aspx）。 –

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

來源

2016-11-03 19:10:07 Arman

您應該瞭解[Select ... Case Statement]（https://msdn.microsoft.com/en-us/library/cy37t14y.aspx）。 –

創建一個程序，從字母表中提取元音

回答

相關問題