Повтор набора инструкций - Do : Loop
Date: 2015-10-07; view: 456.
C. Создание массива объектов, использование вложенного цикла For : Next для формирования двумерного массива, вывод элементов двумерного массива в массив поля списка и суммы элементов массива в элемент управления Label1.
Создать на форме элемент управления CommandButton, создать массив полей списка, для этого:
· щелчком маркировать поле списка,
· использовать команду Копировать контекстного меню поля списка,
· использовать команду Вставить того же контекстного меню; на вопрос :"Хотите, чтобы объект стал элементом массива?" ответить : "Да", копия выводится в верхний левый угол формы,
· повторить копирование, т.к. нужен массив объектов из 3-х элементов; проверить на форме идентификаторы поля списка: List1(0), List1(1), List1(2),
Рис. 2.1.Схема формы
ввести код:
Private Sub Command1_Click()Dim mass(15, 3) As Single, i As Integer, j As Integer Dim A As IntegerDim B As Integer, Summ As Single A = -5: B = 5: Summ = 0For j = 0 To 14For i = 0 To 2mass(j, i) = Rnd * (B - A) + A' вывод элементов в поля массива спискаList1(i).List(j) = mass(j, i) ' суммирование элементов двумерного массиваSumm = Summ + mass(j, i) Next i, jLabel1.Caption = Summ ' вывод суммы элементов массиваEnd Subстартовать проект, сделать щелчок на командной кнопке.
Цикл Do : Loop используется, если точное количество повторений действий заранее неизвестно или нужно дождаться выполнения некоторого условия. Цикл Do : Loop может выполняться бесконечно:
Doповторяющееся действиеLoopРазличают 2 варианта цикла Do : Loop с завершением:
· цикл продолжает повторяться всe время, пока некоторое условие остаeтся истинным:
· Do While условие· инструкцииLoop· вместо условия продолжения вычислений формулируется условие его завершения:
· Do Until условие· инструкцииLoop