У вас изначально цикл построен не верно. Переменная i перед оператором Do принимает значение равное 2. Войдя в цикл первый раз i = 3, тогда как e уже может быть меньше 3. Цикл получается бесконечным. Первый элемент массива sStr, который создаёт функция Split, имеет индекс равный 0, что тоже необходимо учесть при подсчёте. Если интересно, я постараюсь объяснить, как выполнить задание.
Были ещё такие модели, на счёт сертификации - не проверял (инфу взял из архива русскоязычного сайта).
HUAWEI Honor 3 - влагозащита IP55/57; HUAWEI G350 - защита IP68.
P.S. Пользуюсь навигацией на кнопочном: минус только один - недостаток RAM.
Никогда не понимал, зачем платить 3 цены за возможную увеличенную производительность в 2 раза (нужно ещё учесть, что камень должен нормальный стоять) www.guru3d.com/articles_pages/geforce_gtx_760_sli_...
Лично я обошелся GeForce GTX 650 Ti б/у - 3000 рублей.
Алексей Королёв: После запуска куллеры вращаются? Если "нет" - не хватает питания БП (или не подключены дополнительные провода питания). Если "да" - смотри какие узлы не греются - через несколько минут радиаторы на мостах и на камне должны быть тёплыми. Видюха, соответственно, тоже.
Добавлю, что если видюха была рабочая, то скорее всего, просто плохо воткнул в слот. Проще всего (после предложенного выше) всё аккуратно разобрать с собрать (не забывая о проводах дополнительного питания матери и видюхи).
Согласен - нет смысла гоняться за новым железом. Мать на Avito рабочую можно найти за 100 рэ. Видюха нормальная от 2 тыс. (если не жалко денег, можно производительнее взять) Цены на оперативу реже скидывают. БП рассчитывается в зависимости от мощности камня и видюхи. Камней своих полно - не покупал.
Аперитив: cyberhound.ru/windows/polzovateli/zapretit-zapusk-...
Сначала я не обратил внимание на процедуру Execute(), которой нет в VBA, но есть в VBS. Таким способом текст из любого файла можно запустить, а, что касается VBA, хранить можно в бинарном виде. А если содержание файла менять не надо, его бинарный код можно вписать в модуль (тут нужно учесть ограничение VBA на количество строк в процедуре), написав пару простых функций.
На авито HTC Desire S можно найти за 3000 рэ. Ещё 3 года назад Nokia E72 можно было купить за 4500 рэ. Вообще не вижу смысла покупать телефоны в магазине, если всё тоже можно купить с рук у людей, которые гоняются за новинками ) Но новое железо всё хуже и хуже.