Циклы: For…Next, For Each…Next, Do While…Loop, Do Until…Loop - VB
Формулировка задачи:
кому не лень, помогите решить задачу, самому разбираться времени нету, и так работы много..
само задание - Лаб.раб. № 5_ППП.doc
нужно сделать 13 вариант..
код общего задания есть, но работает у меня почему то невсегда..
Решение задачи: «Циклы: For…Next, For Each…Next, Do While…Loop, Do Until…Loop»
textual
Листинг программы
Sub Макрос1() 'Создание на пластинке оперативной памяти 'поименованной области (массива) myArray. '1 To - означает, что нумерация элементов в массиве 'будет начинаться с 1 (так удобнее человеку). 'По умолчанию элементы массива нумеруются с нуля. 'Long означает, что в массиве могут быть только целые числа (а не дробные). Dim myArray(1 To 10) As Long 'Создание на пластинке оперативной памяти 'поименованной области (переменной) i. 'Integer означает, что в переменной могут быть только целые числа (а не дробные). Dim i As Integer Dim Сумма As Long 'Заполнение массива числами. 'For ... To ... Next - называется циклом. For i = 1 To 10 'InputBox - инструмент VBA для помещения в массивы информации. myArray(i) = InputBox("Введите число для элемента массива") 'If ... Then ... End If - используется для того, чтобы выбрать, 'какое действие выполнить. 'Mod - это инструмент VBA, который используется для того, чтобы 'получить остаток от деления. Мысленно Mod можно заменить 'знаком деления "/", только в данном случае мы получаем остаток от 'деления, например, 5 / 2 = 2 и остаток от деления равен 5 - 4 = 1. 'В данном случае 5 является нечётным числом, т.к. делится на 2 с остатком. 'Если число делится на 2 без остатка, то число является чётным. 'Пример чётного числа 4. 4 / 2 = 2. Остатка нет. If myArray(i) Mod 2 <> 0 Then Сумма = Сумма + myArray(i) End If Next i 'MsgBox - это инструмент VBA для вывода на экран информации. MsgBox "Результат сложения нечетных чисел " & Сумма End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д