Нужно получить произведение всех элементов, которые меньше первого - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
