vb.net - 识别元音

Question

我最近发现很难识别我的作品中的元音，我的老师也要求我这样做，有人有办法做到这一点吗？...目前我的代码是。

Dim mystring As String
Dim isitavowel As Boolean
Dim VOWELCOUNT As Integer

Sub Main()

    Console.WriteLine("Enter the text of your choice here")
    mystring = Console.ReadLine
    VOWELCOUNT = 0
    For i = 1 To mystring.Length

        isitavowel = False
        If mystring(i - 1) = "a" Or mystring(i - 1) = "A" Then isitavowel = True
        If mystring(i - 1) = "e" Or mystring(i - 1) = "E" Then isitavowel = True
        If mystring(i - 1) = "i" Or mystring(i - 1) = "I" Then isitavowel = True
        If mystring(i - 1) = "o" Or mystring(i - 1) = "O" Then isitavowel = True
        If mystring(i - 1) = "u" Or mystring(i - 1) = "U" Then isitavowel = True

        If isitavowel = True Then
            VOWELCOUNT = VOWELCOUNT + 1
        End If


    Next
    Console.WriteLine("That had " & VOWELCOUNT & " vowel's in it")
    Console.ReadLine()

问题是有时会出现错误。请帮忙!

Answer 1

我为您优化了代码。这应该会给你一个快速而漂亮的结果:

Private vowels As String = "aeiou"

Sub Main()

    Console.WriteLine("Enter the text of your choice here")
    Dim mystring As String = Console.ReadLine.ToLower
    Dim VOWELCOUNT As Integer = 0

    For Each c As Char In mystring
        If vowels.Contains(c) Then VOWELCOUNT += 1
    Next

    Console.WriteLine("String contained {0} vowels in it", VOWELCOUNT)
    Console.ReadLine()

End Sub

您声称您对编码相当陌生，因此请浏览一下代码:

• 在主体中，我们定义一个字符串，其中包含我们想要识别的所有字符。
• 然后在例程中，我们直接从 ReadLine 初始化它，因为这将返回一个字符串。
• 我们将该字符串小写，以便检查更少的字符
• 然后 for-each 循环将为我们逐个字符地遍历字符串。
• 我们检查包含元音的字符串是否包含该字符。如果确实如此，它将返回 true。
• 如果 true THEN 将允许元音计数 +1。这里的简短形式与您所做的相同。速度上没有区别，只是写起来更简单。注意:一般情况下我们不需要检查= true(或= false)。我们可以直接使用该值:If value then 或 If Not value then
• 然后我们通过格式化字符串来呈现结果。 {0} 采用我们在逗号后给出的第一个参数({1} 将采用下一个参数，依此类推)。
• 通过在例程中本地调暗和初始化，您可以重新使用例程，而无需重置变量(在本例中为计数器)。