Sub Z1()
MsgBox ("Моя первая программа на VBScript!!!")
<span>End Sub
В каком приложении работаешь?</span>
Предлагаю пример в Excel
Копируете необходимый элемент, задаете параметры на входе, получаете таблицу истинности на выходе.
По Хаффману:
а кодировать 0 - 1 бит
м кодировать 10 - 2 бита
б кодировать 11 - 2 бита