Дан одномеерный массив,состоящий из n элементов,вычислить колличество,сумму и произведение элементов меньших пяти.vba,visual Basic
Аноним:
Так VB или VBA?
Ответы
Ответ дал:
1
Выделите на листе строку, колонку или прямоугольную область ячеек с данными и запустите следующую программу:
Sub aaa()
k = 0: s = 0: p = 1
For Each c In Selection
cv = c.Value
If IsNumeric(cv) Then
If cv < 5 Then
k = k + 1: s = s + cv: p = p * cv
End If
End If
Next c
MsgBox "Количество=" + CStr(k) + ", сумма=" + CStr(s) + ", произведение=" + CStr(p), vbInformation
End Sub
Sub aaa()
k = 0: s = 0: p = 1
For Each c In Selection
cv = c.Value
If IsNumeric(cv) Then
If cv < 5 Then
k = k + 1: s = s + cv: p = p * cv
End If
End If
Next c
MsgBox "Количество=" + CStr(k) + ", сумма=" + CStr(s) + ", произведение=" + CStr(p), vbInformation
End Sub
Приложения:
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад