«Методика подготовки и проведения урока информатики по теме «Циклы с параметрами»». 9 класс

Пр циклы с параметром

1

Повторяющиеся фрагменты. Создайте форму по образцу (заголовок - Циклы с параметрами, установка свойства ScaleMode=3 в пикселах)

2.Напишите процедуры построения элемента «Зубец» Zub для композиции, изображен­ных на рис. Фигуры должны быть нарисованы в шаблоне 40 х 40 пикселов из левого нижнего угла.

ПРОЦЕДУРЫ:

Private Sub zub( )

Line -Step(20, -40)

Line -Step(20, 40)

End Sub

Private Sub Ornament ( )

3. Наберите текст основной программы создания первой композиции на основе готовой процедуры Zub.

Private Sub Form_Click()

With Form1

.DrawWidth = 2

.ForeColor = vbGreen

.CurrentX = 40

.CurrentY = 80

For i = 1 To 7

Zub

Next

4.Наберите текст программы создания второй композиции - ряда окружностей случайного цвета (табл.).

Таблица Программа создания композиции из окружностей с комментариями и блок-схемой

Программа

Комментарии

Блок-схема

Начало оператора Visual Basic

Начальные установки

Построение окружности

В центр следующей окружности

х = 60: у = 240

Установка коор­динат центра пер­вой окружности

.FillStyle = 0

Сплошной стиль заполнения

For i = 1 То 5

Начало цикличе­ского блока

r = Int(Rnd * 255)

g = Int(Rnd * 255)

b = Int(Rnd * 255)

Переменным r, g, b присваиваются целые случайные значения в диапазоне от 0 до 255

с = RGB(r, g, b)

Из переменных г, g, b формируется случайный цвет

.FillColor = с

Полученный цвет используется для заполнения

Circle (x, y), 20, с

Построение окружности с тем же цветом границ

x = x + 60

Переход в центр следующей окружности

Next

Конец цикла

End With

End Sub

Конец оператора Visual Basic

6. Запустите проект и проверьте его работу. 7. Сохраните проект под именем цикл с параметром ФИО.

Задания для самостоятельной работы

Напишите процедуры построения «Элемент орнамента» Ornament и программу для третьей композиции, изображен­ных на рис.

Создайте форму по образцу, написав про­цедуры построения элементов меандров (рис.) и вызвав их в цикле. Одна клетка сетки равна 10 пикселам.

Private Sub zub()

Line -Step(20, -40)

Line -Step(20, 40)

End Sub

Private Sub ornament()

Line -Step(20, 0)

Line -Step(0, -40)

Line -Step(20, 0)

Line -Step(0, 40)

End Sub

Private Sub aornament()

Line -Step(20, 0)

Line -Step(0, -40)

Line -Step(40, 0)

Line -Step(0, 20)

Line -Step(-20, 0)

Line -Step(0, 20)

Line -Step(30, 0)

End Sub

Private Sub Form_Click()

With Form1

.DrawWidth = 2

.ForeColor = vbGreen

.CurrentX = 30

.CurrentY = 80

For i = 1 To 7

zub

Next

.DrawWidth = 4

.ForeColor = vbRed

.CurrentX = 30

.CurrentY = 140

For i = 1 To 7

ornament

Next

.DrawWidth = 1

.ForeColor = vbBlue

.CurrentX = 30

.CurrentY = 190

For i = 1 To 6

aornament

Next i

x = 60

y = 240

.FillStyle = 0

For i = 1 To 5

r = Int(Rnd * 255)

g = Int(Rnd * 255)

B = Int(Rnd * 255)

с = RGB(r, g, B)

.FillColor = с

Circle (x, y), 20, c

x = x + 60

Next i

End With

End Sub