Разработать программный код - Помощь студентам

Мариаанна · 08.11.2011, 21:21

Помогите, пожалуйста, очень срочно составить программный код в среде VBA. В данной действительной квадратной матрице порядка 4х4 найти произведение отрицательных элементов под побочной диагональю.

gaw4 · 08.11.2011, 21:54

Sub main()
For i = 1 To 4
For j = 1 To 4
'Cells(i, j) = InputBox("a(" & i & "," & j & ")")
Cells(i, j) = Round(Rnd * 25, 4) - 12
Next
Next
P = 1
For i = 2 To 4
For j = 4 - i + 2 To 4
If Cells(i, j) < 0 Then P = P * Cells(i, j)
Next
Next
MsgBox "P=" & P
End Sub

08.11.2011, 21:21	#1
Мариаанна Новичок Джуниор Регистрация: 08.11.2011 Сообщений: 1	Разработать программный код Помогите, пожалуйста, очень срочно составить программный код в среде VBA. В данной действительной квадратной матрице порядка 4х4 найти произведение отрицательных элементов под побочной диагональю.

08.11.2011, 21:54	#2
gaw4 Форумчанин Регистрация: 31.05.2010 Сообщений: 407	Sub main() For i = 1 To 4 For j = 1 To 4 'Cells(i, j) = InputBox("a(" & i & "," & j & ")") Cells(i, j) = Round(Rnd * 25, 4) - 12 Next Next P = 1 For i = 2 To 4 For j = 4 - i + 2 To 4 If Cells(i, j) < 0 Then P = P * Cells(i, j) Next Next MsgBox "P=" & P End Sub icq 584 308 611

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программный код в Бейсике	Богдан Величко	Помощь студентам	4	15.05.2011 02:43
Проверте программный код.	St.Jimmy	Помощь студентам	1	19.01.2011 20:57
программный код в VB 6.0	Julia220992	Помощь студентам	4	29.04.2010 23:01