В слове "инициатор" после каждой гласной буквы поставить такую ​​же букву - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста разобраться с заданиями. 1.Строка: В слове ИНИЦИАТОР после каждой гласной буквы поставить такую ​​же букву. 2.Простой двумерный массив: Из массива А (n) создать массив В (n), в котором сначала расположены нулевые элементы массива, а затем положительные и отрицательные. 3.Усложнённый двумерный массив: Сформировать матрицу, каждый элемент которой представляет собой дробную часть соответствующего элемента заданной матрицы A (n, m). Заранее благодарю.

Решение задачи: «В слове "инициатор" после каждой гласной буквы поставить такую ​​же букву»

textual
Листинг программы
    Dim f&, s$, s1$, s2$
    s = "ИНИЦИАТОР"
    For f = 1 To Len(s)
        s1 = Mid(s, f, 1)
        If s1 Like "[аоуыэяёюиеАОУЫЭЯЁЮИЕ]" Then s1 = s1 & s1
        s2 = s2 & s1
    Next
    MsgBox s2

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы