Page 134 - 4192

Приклад: Задано масив A25(12). Обчислити добуток
непарних елементів масиву.

Непарні елементи масиву
будемо визначати за
допомогою MOD.

Програмний код:
Private Sub Command1_Click()
Dim A25(1 To 12) As Single
Dim P As Single
Dim i As Integer
For i = 1 To 12
A25(i) = Val(InputBox("Введіть
",i))
Picture1.Print A25(i); " ";
Next i
P = 1
For i = 1 To 12
If A25(i) Mod 2 <> 0 Then
P = P * A25(i)
End If
Next i
Text1 = P
End Sub

Private Sub Command2_Click()
End
End Sub

Рисунок 8.11 –
Пошук добутку
непарних елементів
масиву

133