Задание с Фамилиями в QBasic

[toprocksta]

Даны три фамилии, нужно чтобы после их ввода выдала те, которые начинаются на гласную)
надеюсь на вашу отзывчивость)

[RUSt88]

могу выполнить за вознаграждение

[toprocksta]

например) могу семизнак дать) 4423250)

[Sasha_Smirnov]

Для сравнения привожу код на более продвинутом бейсике (VBA).

Option Explicit
Option Compare Text

Sub Families_with_vowel_start_letter()
Const N = 3 ' число вводимых слов (фамилий, в частности)
Dim YourWordlist, AllFamilies, VowelStartFamilies As String, i As Integer

'во 2-й строчке нижеследующей команды ввода - выбор падежного окончания по последней цифре числа N'
YourWordlist = InputBox("Введите, разделяя пробелом, " & N & " фамили" & _
IIf(N Mod 10 = 0 Or N Mod 10 > 4, "й.", IIf(N Mod 10 = 1, "ю.", "и.")), AllFamilies, "Иванов Питров Сидороf")
If YourWordlist = "" Then MsgBox "Спасибо за тестирование!", vbExclamation: Exit Sub 'ВЫХОД по кнопке Cancel'

AllFamilies = Split(YourWordlist) 'введённые фамилии загоняем в массив AllFamilies'

For i = 0 To UBound(AllFamilies)
    If Left(AllFamilies(i), 1) Like "[AEIOUWYАЕЁИОУЫЭЮЯ]" Then
        VowelStartFamilies = VowelStartFamilies & IIf(i = 0, "", ", ") & AllFamilies(i)
        'Добавили (через запятую - если их больше одной)'
        'очередную "гласную" фамилию в строку VowelStartFamilies.'
    End If
Next i

MsgBox VowelStartFamilies, vbInformation 'сообщение: фамилии, начинающиеся с гласных звуков'
End SubДопускает

ввод около 30 фамилий. (Вообще-то для трёх штук программу писать...)

[Sasha_Smirnov]

Загадочно срабатывает «движок» форума, когда я выделяю код тэгом.

В предыдущем посте — просто серый фон и отступы (или у кого-то не так?!).

А в большинстве случаев (вот, например: http://programmersforum.ru/showthread.php?p=532395) нормально.

Есть опыт даже с одним и тем же кодом: форматирую (тэгом #) — сохраняю — всё как надо выделено; снова открываю — сохраняю (через 5—6 секунд) — выделения пропали.

Помогите найти причины такого разнобоя. У меня Windows XP. Internet Explorer.