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
"Четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы.
const n=13; var a:array[1..n] of integer; i,imin:integer; begin { инициализация } Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i]:=Random(50); Write(a[i]:3) end; Writeln; { поиск минимума } i:=4; imin:=2; while i<=n do begin if a[imin]>a[i] then imin:=i; i:=i+2 end; Writeln('Минимальный элемент с четным номером ',imin,' равен ',a[imin]); end.
Тестовое решение: Элементы массива 30 23 5 19 36 10 10 37 42 4 23 37 34 Минимальный элемент с четным номером 10 равен 4
