Ejercicio
Función CountDV
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