Función CountDV Curso de Programación Visual Basic

Lección:

Funciones


Ejercicio:

Función CountDV 9


Objetivo:

Cree una función que calcule la cantidad de dígitos numéricos y vocales que contiene una cadena de texto. Aceptará tres parámetros: la cadena que queremos buscar, la variable que devuelve el número de dígitos, y el número de vocales, en ese orden). La función debe llamarse "CountDV".

Úsalo así:

CountDV ("Esta es la frase 12", ref amountOfDigits, ref amountOfVowels)

En este caso, amountOfDigits sería 2 y amountOfVowels sería 5


Código:

Imports System
Public Class exercis122
    Public Shared Sub CountDV(ByVal answer As String, ByRef amountOfDigits As Integer, ByRef amountOfVowels As Integer)
        amountOfDigits = 0
        amountOfVowels = 0

        For i As Integer = 0 To answer.Length - 1

            Select Case answer.Substring(i, 1).ToLower()
                Case "a", "e", "i", "o", "u"
                    amountOfVowels += 1
                Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
                    amountOfDigits += 1
            End Select
        Next
    End Sub

    Public Shared Sub Main()
        Dim amountOfDigits As Integer = 0
        Dim amountOfVowels As Integer = 0
        CountDV("This", amountOfDigits, amountOfVowels)
        Console.WriteLine(amountOfDigits)
        Console.WriteLine(amountOfVowels)
    End Sub
End Class