In= I * X * Y, где
In - информационный объём памяти
I - глубина цвета
X*Y - кол-во точек изображения
In = 4*8*600*1200 = 23 040 000 бит = 2 880 000 байт = 2 812,5 Кбайт = 2,75 Мбайт
Sub aaa()
s = InputBox("Введите текст")
s = Replace(s, "к", "", , , vbTextCompare)
MsgBox s
End Sub
<u>Если нужна отдельная процедура для замены:</u>
Sub ReplKk(s As String)
s = Replace(s, "к", "", , , vbTextCompare)
End Sub
Sub Test()
Dim s As String
s = InputBox("Введите текст")
ReplKk s
MsgBox s
End Sub
200710= 0*10 в нулевой ст+ 1*10 в первой ст+7*10 во второй ст+0*10 в третьей ст+ 0*10 в четвертой ст+ 2*10 в пятой ст=200710
2348= 8* 10 в нул ст+4*10 в первой ст+ 3*10 во второй ст+2*10 в третьей ст=2348
101102=2*10 в нул ст+0*10 в первой ст+ 1*10 во второй ст+1*10 в третьей ст+ 0*10 в четверт ст+1*10 в пятой ст=101102
Десятые-это 0 и после него 1 цыфра например 0,1,если сотые то после 0 2 цыфры например 0,01,если тысячных,то 3 цыфры,например 0,001 и т.д
8=3бит
32=5бит
64=6бит
128=7бит
256=8бит
524=9бит
1024=10бит