Dim Sum As Single
For i = 10 To 99 If (i Mod 2 <> 0) And (i Mod 3 <> 0) Then Sum = Sum + i End If Next MsgBox "Сумма чисел, каждое из которых не делится ни на 2, ни на 3 = " + Str(Sum) End Sub
Рисунок 3. Результат работы процедуры Задание 5. В MS Excel, используя VBA, напишите функцию, позволяющую в диапазоне ячеек, выделенном пользователем, посчитать произведение чисел, меньших десяти. Решение: Sub НайтиПроизведение() Dim Cell As Range Dim Rez As Single Dim Fl As Boolean
Rez = 1 Fl = False
For Each Cell In Selection If Cell.Value < 10 Then Fl = True Rez = Rez * Cell.Value End If Next
MsgBox "Произведение чисел, меньших десяти = " + Str(IIf(Fl, Rez, 0)) End Sub
Рисунок 4. Проверка корректности функции ПроизведениеЧиселМеньших10
|
