Visual Basic. Нужна помощь в курсовой работы по информатике

[Borserg]

Требуется помощь в практической части курсовой работы по информатике.
Естественно, не бесплатно.

[Asix]

Хоть бы суть проблемы описал или предлагаешь всем подряд тебе в личку писать ?? =))

[InfStudent]

Если задача интересная и есть  свои мысли, то может бесплатно придет помощь

[Borserg]

Задачи я напишу позже. Информатика непрофильная, поэтому преподаётся на низком уровне, а курсовую работу никто не отменял. По-любому, понадобится помощь. Позже (в течение 2 недель) напишу тему.

[Borserg]

Задача №1.
Составить приложение для расчёта выражения:
z = g + cos(a), если g<1
z = g - cos (a), если g=1 или g>1
g - норма квадратной матрицы B размерами mXm, определяемая по формуле:
, i = 1, 2... m, т.е. g - максимальное значение из сумм элементов строк, взятых по модулю. Определение нормы матрицы оформить в виде подпрограммы. Числовые значения m и матрицы B задать самостоятельно.

Во-первых, какая-то непонятная формула суммы, какой-то максимум.

[Borserg]

Как я понял суть программы:
Вводим квадратную матрицу размерами mXm в виде файла в блокноте (*txt). Программа считает сумму элементов в каждой строке, берёт по модулю и определяет максимальную сумму. Это и будет g. Далее в зависимости от значения g выполняется вычисление z по формуле. Да вот только в формуле z берется косинус альфа. Откуда брать угол?
Помогите начать программу, возможно, при понимании, буду сам дописывать.

[Borserg]

Код: [Выделить]

Private Sub Command1_Click()
Dim a() As Single
Dim i, j, m
Dim z As Single, maxI As Single, g As Single
Dim alpha As Single
If IsNumeric(Text1) = False Then
MsgBox "Ñíà÷àëà ââåäèòå ðàçìåð ìàòðèöû!", 1, "Îøèáêà!"
Exit Sub
End If
If Text1 <= 1 Then
MsgBox "Ðàçìåð ìàòðèöû  — öåëîå ïîëîæèòåëüíîå ÷èñëî, áîëüøåå, ÷åì åäèíèöà!", 1, "Îøèáêà!"
Exit Sub
End If
alpha = InputBox("Ââåäèòå alpha", "Ââîä âõîäíûõ ïàðàìåòðîâ")
m = Round(Text1)
ReDim a(1 To m, 1 To m) As Single
For i = 1 To m
    For j = 1 To m
    a(i, j) = InputBox("Ââåäèòå ýëåìåíò ìàòðèöû a" & i & j, "Ââîä ýëåìåíòîâ ìàòðèöû")
    Next j
Next i
g = a(1, 1)
For i = 1 To m
maxI = 0
    For j = 1 To m
    maxI = maxI + a(i, j)
    Next j
    If Abs(maxI) > g1 Then g = Abs(maxI)
Next i
MsgBox (g), 1, "Ïðîìåæóòî÷íûé ðåçóëüòàò âû÷èñëåíèé (íîðìà ìàòðèöû)"
If g < 1 Then
z = g + Cos(alpha)
Else
z = g - Sin(alpha)
End If
MsgBox (z), 1, "Ðåçóëüòàò âû÷èñëåíèé (z)"
End SubСделал... но препод сказал, что очень простенько и нужно использовать подпрограмму общего вида при вычислении g. Т.е. нужно написать подпрограмму и отклик для неё. Вот с этим проблемы.