Вложенные циклы. запишите код кнопки. For i = 0 To 9. For j = 0 To 9. List1.AddItem (Str(a)). запустите программу. проанализируйте, что Вы получили в окне ListBox. For i = 0 To 9 –начало цикла. Next i – конец цикла. For j = 0 To 9 –начало цикла. Next j –

Вложенные циклы

Порядок работы:

Объект ListBox

построить элементы на форме

2. запишите код кнопки

For i = 0 To 9

For j = 0 To 9

a = i * 10 + j

List1.AddItem (Str(a))

Next j

Next i

3. запустите программу

проанализируйте, что Вы получили в окне ListBox

Пояснения к коду программы:

For i = 0 To 9 –начало цикла

Внешнийо цикл

Next i – конец цикла

For j = 0 To 9 –начало цикла

Внутренний цикл

Next j – конец цикла

Создание двузначного числа

a = i * 10 + j

List1.AddItem (Str(a))

a = i * 10 – формирует десятки

j – формирует единицы

a = i * 10 + j – складывает единицы и десятки – так получается двузначное число

Самостоятельная работа:

1. Постройте трехуровневый цикл (с переменными цикла I, J, Y) сохраните программу

Какие числа Вы получили?

2. образуйте с помощью вложенных циклов четырехзначное число

шестизначное число

и сохраните программы

Тема:

Вывод данных вложенных циклов по условию

( запишите в тетрадь задачи и коды кнопок)

Задача: вывести на экран все двузначные числа, сумма цифр которых равна 13

Например: 23 – сумма цифр этого числа равна 2+3=5

Код кнопки:

For i = 0 To 9

For j = 0 To 9

a = i * 10 + j

If i + j = 13 Then List1.AddItem (Str(a))

Next j

Next i

Задача: вывести на экран все двузначные числа, сумма цифр которых равна их произведению

For i = 0 To 9

12 Следующая ⇒