B. Цикл Do : Loop; расположение условий в начале, конце
Date: 2015-10-07; view: 433.
А. Do While : , Do Until
Практическая работа 10. Циклы Do : Loop
Создать массивы, вычислить сумму их элементов.
1. Создать на форме 2 командные кнопки, 2 элемента управления Label, ввести код, данный ниже:
Private Sub Command1_Click()Dim sum As Integer, mas(5) As Integer, к As Integermas(0) = 5: mas(1) = 6: mas(2) = 7: mas(3) = 6: mas(4) = 7к = 0: sum = 0' здесь цикл повторяется до тех пор, пока значение' переменной остается < 5 Do While к < 5 sum = sum + mas(к)к = к + 1Looplbl1.Caption = sumEnd Sub Private Sub Command2_Click()Dim sum As Integer, mas(5) As Integer, к As Integermas(0) = 5: mas(1) = 6: mas(2) = 7: mas(3) = 6: mas(4) = 7sum = 0: к = 0Do Until к = 5 sum = sum + mas(к)к = к + 1Looplbl2.Caption = sumEnd Sub2. стартовать проект, щелчками на командных кнопках выполнить оба цикла.
Цикл Do : Loop часто применяется при считывании записей из файла:
Do While Not EOF #номер файлаEOF (End of File) - признак конца файла.Циклы Do :Loop могут управляться в конце. В примерах, данных ниже расположение условий в начале/конце циклов равноценно.
Создать необходимые объекты, очистить свойства Caption элементов управления Label, ввести код, cтартовать проект, выполнить оба цикла.
Private Sub Command1_Click()Dim i As Integeri = 0Do While i < 7lbl1.Caption = lbl1.Caption & " " & ii = i + 1LoopEnd Sub Private Sub Command2_Click()Dim i As Integeri = 0Dolbl2.Caption = lbl2.Caption & " " & ii = i+ 1Loop While i < 7End Sub| <== previous lecture | | | next lecture ==> |
| Повтор набора инструкций - Do : Loop | | | Процедуры |