Contare vocali in QB64

Per contare le vocali in una stringa in QB64, è possibile utilizzare il seguente codice:

Dim vocali As String
Dim frase As String
Dim count As Integer

vocali = "AEIOUaeiou"

Print "Scrivi una frase: ";
Input frase

For i = 1 To Len(frase)
    For j = 1 To 10
        If Mid$(frase, i, 1) = Mid$(vocali, j, 1) Then
            count = count + 1
            Exit For
        End If
    Next j
Next i

Print "Numvero di vocali: "; count
End

In questo codice, prima viene dichiarata una stringa di vocali. Poi viene richiesto all’utente di inserire una frase. Il codice utilizza due cicli FOR per scorrere ogni lettera nella frase e verificare se è una delle vocali. Se lo è, viene incrementato il contatore di vocali e il ciclo interno viene interrotto. Alla fine viene stampato il numero di vocali della frase.