VB у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры (), а вторую процедуру разместите в любом доступном модуле, хоть в той же форме. Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub () 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
Программа: #include <iostream> using namespace std; int main() { int a=5; int b=4; int c; cout << "Количество яблок у Васи = " << a << "\n"; cout << "Количество яблок у Пети = " << b << "\n"; cout << "Количество яблок у Васи и Пети вместе = " << a+b << "\n"; c=(a+b)/3; cout << "Если разделить на 3-х поровну, то получится = " << c << "\n"; return 0; }
Результат: Количество яблок у Васи = 5 Количество яблок у Пети = 4 Количество яблок у Васи и Пети вместе = 9 Если разделить на 3-х поровну, то получится = 3
дело в том, что цифра это знак, и буква это знак.