Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−89
MdlСимметричность.Командная(СтИстБи, ФлагСим, КвоРабЧис)
If ФлагСим = True Then ' тут мы сохраним столб истинности линейной функции и количество рабочих чисел
ФлагСим1 = True 'покажем, что хоть одна функция симметрична
СохранимНужнуюФункцию(СчетСим, КвоРабЧисЖмин, КвоРабЧис, СтИстБи, СтИстБиИскомыйСим)
End IfКак, пример, как нельзя называть и обзывать переменные и имена функций. Взято отсюда: http://www.sql.ru/forum/actualthread.aspx?tid=934300
Запостил: 
Ciana,
23 Апреля 2012
Follow us!
(Заместитель комиссара по морским делам).
красивая и стервозная китаянка?
Прошел по ссылке.
Коммент автора:
>Если вызываемая процедура требует четырех и более параметров (переменных), то записи в одной строке не помещаются. Например "СтИстБиИскомыйСим" расшифровывается как "искомый столб истинности симметричной функции в массиве битаррай
>А для понятности пользуюсь старым правилом: не менее 30% кода должны составлять комментарии, а лучше 40-50.
Его это не спасет.
Dim МасЧисло() As Integer = {Номер}
Dim НовыйКод As New BitArray(МасЧисло)
ДвоичныйКод = НовыйКод.Clone
End Sub