Спо информатике языком vba дано целое четырехзначное число. найти минимальную его цифру. проверить возможность ввода не четырехзначного числа, при этом сообщить об ошибке ввода.

Sub ex()
    n = CInt(InputBox("Введите натуральное 4х значное число"))
    If n < 1000 Or n > 9999 Then
        MsgBox "Недопустимое значение"
    Else
        dm = n Mod 10
        Do While n > 0
          d = n Mod 10
          If d < dm Then dm = d
          n = n \ 10
        Loop
        MsgBox "Наименьшая цифра: " + CStr(dm)
    End If
End Sub

V = Объем информации
K = Количество символов в тексте
i = информационный вес символа
Т.е чтобы посчитать объем информации в тексте, нужно посчитать количество символов и умножить на информационный вес символа.
V = K*i
i - известно, ищем K:
K = 48*40*64 = 122 880  количество символов.
V= 122 880*8 = 983 040 Бит(для перевода бит в байты нужно разделить на 8) = 122880 Байт(для перевода байтов в килобайты нужно делить на 1024) = 120 Кбайт (Если бы было бы больше 1024 килобайта, то можно было бы перевести в Мегабайты, разделив на 1024). 

Символами называются знаки, для которых связь между формой и значением устанавливается по общепринятому соглашению. Примером таких знаков являются символы химических элементов, отображающие атомы химических веществ (табл. 2.1).

Если неизвестно соглашение о связи формы и значения символов, то ничего нельзя сказать о смысле информации, записанной такими знаками. Существуют найденные археологами и до сих пор нерасшифрованные тексты на древних языках, так как неизвестно значение знаков, которыми они записаны.