![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Оператор циклу з лічильником.Содержание книги
Поиск на нашем сайте
Синтаксис: For параметр = значення1 To значення2 Step h інструкції тіла циклу Next Оператор повторює виконання тіла циклу, змінюючи значення параметру циклу від значення1 до значення2 із кроком h. Якщо крок дорівнює 1, його можна не вказувати. Задача 23.1. В діапазоні B2: B24 записані числа. Знайти суму і кількість додатнних чисел діапазону. Використаємо для розв’язку задачі об’єкт Cells – клітинку. Sub СумаТаКількість() Dim suma as Single, k as Integer, i as Integer suma =0: k=0 For i =2 To 24 If Cells(i, 2). Value >0 Then k = k+1 ‘збільшуємо кількість suma = suma +Cells(i, 2). Value ‘накопичуємо суму End if Next i MsgBox “Додатних чисел – “ & Str(k) & “, сума – ” & Str(suma) End Sub Оператори циклу з умовою. Такі цикли використовується, якщо невідома заздалегідь кількість повторень. Існують такі різновиди операторів: Синтаксис:
Оператори з умовою While забезпечують виконання операторів тіла циклу доти, доки умова виконується.
Оператори з умовою Until закінчують роботу операторів тіла циклу тоді, коли умова виконається. Тобто цикл повторюється, якщо умова має значення False (хибність). Достроковий вихід з таких операторів циклу відбувається за допомогою оператору Exit Do. Об’єкт CheckBox використовують для створення незалежного дво- чи три позиційного прапорця: увімкнено/вимкнено/(недоступний). Для цього об’єкта визначені такі властивості:
Хід роботи
Рис. 23.1. Панель інструментів Visual Basic
Рис. 23.2. Елементи управління
Рис. 23.3. Приклад шаблону
Private Sub CommandButton1_Click()
x = Sheets(1).Cells(9, 2) s = 1 'сума nf = 1 'факторіал xn = 1 'x в степені Row = 14 For n = 1 To 16 nf = nf * n xn = xn * x s = s + xn / nf Sheets(1).Cells(Row, 1) = n Sheets(1).Cells(Row, 2) = s Row = Row + 1 Next n 'точне значення ex = Exp(x) Sheets(1).Cells(11, 2) = ex End Sub
Рис. 23.4. Приклад шаблону
Private Sub ScrollBar1_Change() x = Sheets(1).Cells(9, 2) s = 1 'сума nf = 1 'факторіал xn = 1 'x в степені Row = 14 For n = 1 To ScrollBar1.Value nf = nf * n xn = xn * x s = s + xn / nf Sheets(1).Cells(Row, 1) = n Sheets(1).Cells(Row, 2) = s Row = Row + 1 Next n 'точне значення ex = Exp(x) Sheets(1).Cells(11, 2) = ex End Sub
Рис. 23.5. Приклад шаблону
Private Sub ScrollBar1_Change() TextBox1.Text = ScrollBar1.Value dx = (ScrollBar1.Value - 1) / 50 ’крок x = 1 For i = 1 To 51 Sheets(1).Cells(14 + i - 1, 1) = x If OptionButton1.Value = True Then y = Sin(Cos(x)) ElseIf OptionButton2.Value = True Then y = Sin(x) ElseIf OptionButton3.Value = True Then y = Cos(x) ElseIf OptionButton4.Value = True Then y = 1 / x Else MsgBox ("Виберіть функцію") End If Sheets(1).Cells(14 + i - 1, 2) = y x = x + dx Next i End Sub
Контрольні питання
1. Оператор циклу FOR – NEXT і його робота. 2. Параметр циклу та його використання. 3. Оператори циклу з передумовою і з післяумовою. 4. Що таке вкладені цикли, яка їхня структура? 5. Як здійснюється достроковий вихід з циклу7 6. Алгоритми обчислення суми і кількості.
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2016-04-18; просмотров: 373; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.139.66.35 (0.009 с.) |