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
1) Фраза "Лень делает всякое дело трудным" содержит 31 символ; <span>объем высказывания = 31*8 = 248 бит
2) </span>Строка "И трижды тот вооружен, кто прав!" содержит 32 символа; объем строки = 32*16 бит = 32*16 / 8 байт = 64 байта
3) 0,5 Кбайт = 0,5*1024 байт = 0,5*1024*8 бит
Количество символов в сообщении = 0,5*1024*8 / 8 = 512
4) Объем текста = <span>60*25*5*8 бит = 60*25*5*8 / 8 байт = 7500 байт
5) Объем рассказа = </span><span>4*48*64*8 бит = 4*48*64*8 / (8*1024) Кбайт = 12 Кбайт
6) Объем статьи = </span><span>12*64*64*16 бит = 12*64*64*16 / (8*1024) Кбайт = 96 Кбайт
7) Объем сообщения = 30*1 байт = 30*8 бит = 240 бит
8) Объем реферата = (12*</span>48*64 + 12*24*32)*2 байт = (12*48*64 + 12*24*32)*2 / 1024 Кбайт = 90 Кбайт
9) 24 Кбайт = 24*1024*8 бит. Для кодирования каждого символа используется 24*1024*8 / (8*40*64) = 9,6 ≈ 9 бит (а может быть и 8 бит).
10) 30 Кбайт = 30*1024*8 бит. Количество страниц = 30*1024*8 / (20*48*16) = 16
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
парильный ответ a, d. Расширение xlt (С) представляет формат двоичных файлов в MS Exel 97-2003 года, а формат, a формат файлов xls используется в программе Exel 95.
//////////////////////////////////////////////////////////
