Ответы на вопрос:
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
Популярно: Информатика
-
влада41501.12.2022 00:59
-
malika060420005.10.2020 21:58
-
daniil072331.12.2022 17:26
-
minnie207.09.2020 19:41
-
tatyanablok07.07.2021 16:43
-
soneta99108.10.2020 23:06
-
angelina150431.05.2023 01:18
-
plyushka108.07.2022 21:04
-
Юличка11133324.08.2022 05:16
-
nuraneferidxalideemi28.02.2021 13:32