Программирование в VBA. Задача:Массив сотоит из двадцати элементов. Сколько элементов массива нужно сложить (начиная с первого), чтобы сумма превысила число 100. Вот моя программа: Private Sub CommandButton1_Click()Dim C(1 To 20) As IntegerDim I, N, S As IntegerFor I = 1 To 20C(I) = Cells(I, 1)Next IS = 0N = 0For I = 1 To 20If S <= 100 Then S = S C(I) And N = N 1Next ICells(2, 3) = "Количество элементов массива, сумма которых превышает 100=" & NEnd Subкак результат выводит "0" (т.е. N заданное изначально). Может, кто-то сможет подсказать ошибку? Это срочно!
S = S C(I) And N = N 1 Эта строчка - ошибка S = S C(I) : N = N 1 - Исправленная
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
