Кто прочел заголовок - дальше можете не читать, только если ради интереса к моей скромной персоне, ибо ничего познавательного не будет, всего лишь раскрытие смыла названия =)

1) Диета От-Ме-Ня-Ет-Ся!! Из-за долбаной женской физиологии.... Мляяяя, хочу быть парнем! Проблем (по крайней мере, сейчас) намного меньше у них. А я, ушлепок женскогу полу, должна жрать всяку каку, дабы ходить не сгибаясь в три погибели и не падая в обморок. Не представляю, как я на дачу в выходные (да, я мазохист, доказано Zanussi) поеду в таком состоянии. А завтра еще 4 пары.... и в пятницу - 3. И тогда, и тогда - к 8:45, то бишь вставать мне в полседьмого...... Етить вашу налево, за что?????

2) В контакте меня нашел мой итальяшка =) Каким макаром хз, но придется общаться. Он еще как раз в день моего рождения приезжает сюда, так что хрен мне отпраздновать в одиночестве. А так хотелось почокаться с зеркалом =) Или с уточками на Бассейке, я еще не решила. Но теперь облом и с этим =)

3)По информатике начался Visual Basic. Знаете, всегда считала себя с компом "на ты", но что-то сегодня у меня не заладилось. С этой ебаной меткой парюсь часа три.

Public Function Obr_Err(Err_Num As Integer) As Integer
Dim txt as string, res as integer
Select Case Err_Num
Case 6
txt = "среди элементов массива нет четных чисел, повторите ввод"
Obr_Err = 2
Case 11
txt = "блаблаблабла"
Obr_Err = 2
Case Else
txt = "бла"
Obr_Err = 3
End Select
Err.Clear
MsgBox txt, vbOkOnly, "блабла"
End Function

Private Sub cmdSa_Click()
dim i as long, k as long
dim sum as single, sa as single
On Error GoTo Err_Label
sum = 0
For i = 1 to 10
If b(i) Mod 2 = 0 Then sum = sum + b(i): k = k + 1
Next
sa = sum / k
MsgBox "блблблб" + Str(sa), vbOKOnly, "ляляля"
Exit Sub
Err_Label
Select Case Obr_Err(Err.Number)
Case 0 :Resume
Case 1: Resume next
Case 2: Exit Sub
Case 3: End
End Select
End Sub

Вот ЧТО здесь неправильно??? Почему этот мерзкий бэйсик выдает "sub or function [иногда такую же про label пишет] not defined" Мне всего лишь надо, чтобы он считал среднее арифметическое исключительно для четных чисел (их вводится 10), а для нечетных выводил "среди элементов массива нет четных чисел, повторите ввод".... Бьюсь, бьюсь над этой проблемкой, но она никак не решается =((( А скоро лабы Т____Т