Напишите программу для вычеркивания из данного слова всех букв «к» и «g»; в visual basic

128

342

Посмотреть ответы 2

Ответы на вопрос:

temka2013

Информатика

4,7(22 оценок)

Vb у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры а вторую процедуру разместите в любом доступном модуле, хоть в той же форме. не знаю, как вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона. sub aaaa() dim s as stringr s = "this is the greatest test string and all k/g characters need to be killed" deletechar s, "g" deletechar s, "k" msgbox s end sub sub deletechar(byref s as string, c as string) 'удаляем из строки s символ c dim k as integer do k = instr(s, c) if k > 0 then s = left(s, k - 1) + right(s, len(s) - k) loop while k > 0 end sub тестовое решение: this is the reatest test strin and all / characters need to be illed