Предмет: Информатика,
автор: focusshift
Задание такое: Разработать макрос на VBA. Массив целых чисел [ q [ i, j] , i =1,2; j=1,3]. Нужно, чтобы выводились результаты расчета суммы и количества элементов, удовлетворяющих условию: 10 < q [i, j] <18.
Аноним:
Значения элементов массива откуда брать? С листа эксель? Вводить по одному через inputBox? Получать от датчика случайных чисел?
Ответы
Автор ответа:
1
Sub aaa()
a = Range(Cells(1, 1), Cells(2, 3))
s = 0: k = 0
For Each p In a
If p > 10 And p < 18 Then
s = s + p: k = k + 1
End If
Next p
MsgBox "Элементов " + CStr(k) + ", сумма " + CStr(s)
End Sub
Данные разместить в области A1:C2
a = Range(Cells(1, 1), Cells(2, 3))
s = 0: k = 0
For Each p In a
If p > 10 And p < 18 Then
s = s + p: k = k + 1
End If
Next p
MsgBox "Элементов " + CStr(k) + ", сумма " + CStr(s)
End Sub
Данные разместить в области A1:C2
Похожие вопросы
Предмет: Қазақ тiлi,
автор: 3456789012345678905
Предмет: Русский язык,
автор: ASabina1111111
Предмет: Русский язык,
автор: kensaitZ
Предмет: Алгебра,
автор: blackme
Предмет: Математика,
автор: sasa200706