Пара задач по VBA

[SPK_2]

Есть две задачи,которые нужно решить.
1.Дан массив А(20), нужно найти произведения элементов больше нуля и сумму отрицательных элементов.
2. сделать матрицу (группа из М студентов сдавала N экзаменов,результаты в матрице),вывести на печать студентов, сдавших на 4 и 5.


по первой задаче - не могу понять насчёт отрицательных элементов.



Заранее благодарю.

[Hugo121]

Т.е. "произведения элементов больше нуля" понятно, а "сумма элементов меньше нуля" нет?

[SPK_2]

Спасибо,аналогию понял
Просто мало что в этом понимаю

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

[The_Prist]

Дан массив
группа из М студентов сдавала N экзаменов,результаты в матрице

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

[SPK_2]

Массив и матрица произвольные

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

[IgorGO]

все вокруг - матрица...

[SPK_2]

Сообщение от IgorGO

все вокруг - матрица...

Спасибо правда 10х10 многовато,хватит и 5х5


по первой задаче получилось примерно так:

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, p As Integer, s As Integer, A(1 To 20) As Single
s = 0
p = 1
For i = 1 To 20
A(i) = Cells(i, 1).Value
If A(i) > 0 Then
p = p * A(i)
Else
s = s + A(i)
End If
Next i
Cells(21, 1) = "произведение="
Cells(22, 1) = p
Cells(23, 1) = "сумма="
Cells(24, 1) = s
End Sub

что можете сказать?

[IgorGO]

что тут сказать - уверенно идете на пятерку.
но если нужны замечания:
"j As Integer," уберите из обьявлений - все равно не пользуетесь

[SPK_2]

Вот конкретная матрица по задаче
Буду очень благодарен если поможете или подскажете как сделать, чтобы выдавало номера студентов, сдавших экзамены на 4 и 5

[SPK_2]

Да, расширение файла нужно переименовать из .txt в .xls