Составление схемы в vba

[ElenaGreen]

Не получается сосавить блок-схему, помогите мне пожалуйста, очень нужно.

Код Visual Basic

Sub pr4()
Dim i&, j&, a(), SumUp As Double, SumDown As Double
Cells.Clear
i = 10: j = 10 'размерность матрицы
With [a1].Resize(i, j)
.Value = "=RANDBETWEEN(150,350)": .Value = .Value
a = .Value
End With
For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
Select Case j
Case Is < i
SumDown = SumDown + a(i, j)
Case Is > i
SumUp = SumUp + a(i, j)
End Select
Next
Next
MsgBox "Сумма выше главной диагонали " & IIf(SumUp > SumDown, "больше", "меньше") & " на " & SumUp - SumDown
End Sub

[kuklp]

Ответил здесь:
http://www.programmersforum.ru/showthread.php?t=248157

[EducatedFool]

Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки по блок-схеме, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение.