Нужно получить произведение всех элементов, которые меньше первого - VB

Формулировка задачи:

нужно перемножить все елементы, которые меньши за первий. Как ето записать?

скажите, это очень сложно? Много писать нада? Если так, то скажите. А то 20 просмотров, а ответов 0.

Решение задачи: «Нужно получить произведение всех элементов, которые меньше первого»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim I
Private Sub Command1_Click()
Dim Z As Integer
Z = 1
For I = 1 To Список1.ListCount
Z = IIf(Val(Список1.List(I)) > Val(Список1.List(0)), Z * Val(Список1.List(I)), Z)
Next I
 MsgBox Z
End Sub
 
Private Sub Комманда1_Click()
Список1.Clear
Randomize
For I = 1 To 9
Список1.AddItem Int(Rnd * (100))
Next I
End Sub
                        

Оцени полезность:

10 голосов , оценка 4.1 из 5

Похожие ответы