The word
queueing has 5 vowels in sequence.
Are there any other words in the English language that use five vowels, not necessarily distinct, with no intervening consonants?
cooeeing
cooeyed
cooeying
miaoued
miaouing
queueing
from
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
DoEvents
Open "c:\words\words.txt" For Input As #1
Do
Line Input #1, l$
vct = 0: vmax = 0
For i = 1 To Len(l)
If InStr("aeiouy", Mid(l, i, 1)) > 0 Then
vct = vct + 1: If vct > vmax Then vmax = vct
Else
vct = 0
End If
Next
If vmax >= 5 Then
Text1.Text = Text1.Text & l & crlf
End If
Loop Until EOF(1)
Close 1
Text1.Text = Text1.Text & " done"
End Sub
|
|
Posted by Charlie
on 2015-06-08 21:59:37 |
computer solution
