Name a word consisting of 7 letters - all 5 vowels plus two distinct consonants.
I know this word and wonder whether there are more fitting the above definition.
eulogia
miaoued
sequoia
Open "c:\words\words7.txt" For Binary As #1
w$ = Space(7)
Do
Get #1, , w
If EOF(1) Then Exit Do
good = 1
For i = 1 To 5
If InStr(w, Mid("aeiou", i, 1)) = 0 Then good = 0: Exit For
Next
con$ = ""
For i = 1 To 7
If InStr("aeiou", Mid(w, i, 1)) = 0 Then
con$ = con$ + Mid(w, i, 1)
End If
Next
If Mid(con, 1, 1) = Mid(con, 2, 1) Then good = 0
If good Then
Text1.Text = Text1.Text & w & crlf
End If
DoEvents
Loop
Close 1
|
|
Posted by Charlie
on 2019-08-06 11:54:37 |
computer solution
