100*100*1 бит на пикс минимум = 10000 бит вес файла (инф. объём).
Sub maxZn()
'заполнение массива
Dim mas(20)
S = ""
Randomize
For i = 1 To 20
mas(i) = Round(Rnd(100) * 100)
S = S + Str(mas(i)) + ","
Next i
'поиск максимального числа и количества его повторений
qty = 1
max = mas(1) 'предполагаем, что максимальное число в первом элементе массива
For i = 2 To 20
If mas(i) = max Then
qty = qty + 1
End If
If mas(i) > max Then
max = mas(i)
qty = 1
End If
Next i
MsgBox "последовательность чисел " + S
MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)
End Sub
<span>Sub test()
Call maxZnEnd
Sub</span>
Длинна символа в кодировке <span>Windows-1251 составляет 1 байт.
В 1kB - 1024B.
Таким образом будет 1536/1024 = 1,5kB </span>
Если имеется ввиду Excel, то там возможно 3 вида ссылок: относительные (записываются в виде A1, A5:C2), абсолютные (в виде $A$5, $A$4:$D$7) и смешанные ($A6, D$5:$C2).
Относительные ссылки автоматически перестраиваются при вставке или удалении строк/столбцов/ячеек, абсолютные - всегда указывают на ячейку с указанным адресом, даже если было добавлена/удалена строка/столбец/ячейка, смешанные сохраняют своё первоначальное значение в позиции, перед которой стоит знак $ и перестраивают только то значение, перед которым нет $.
16*32*60=30720 символов
30720*8=30720 байт=30кбайт