3 Этап Составление программ

13.Методика введения понятия “Цикл for”

3 этапа обучения: 1) Подготовительный этап предназначен для введения терминологии. 2) Этап работы с готовыми документами предназначен для осознания и усвоения учениками работы с электронными документами с использованием электронных инструментов. 3) Этап построения документа предназначен для формирования приемов построения электронных документов с использованием электронных инструментов.

1 Этап Подготовительный

1.Циклы применяются для повторения нескольких шагов множество раз.

2. Циклы организуются следующими операторами:

For K=Nach to Kon Step Shag

команды

[Exit For]

Next K

3.Условия применимости циклов:

Цикл For применяется в том случае, когда известны начало, конец, шаг или количество повторений цикла.

2 Этап Работа с готовыми программами

Пример программы: Сумма кубов нечет чисел от 1 до n.

s=0

for I = 1 to n step 2

s=s+i^3

next i

lblOutput.text= «s= » & convert.tostr(s)

3 Этап Составление программ

Произв квадратов чет чисел от 1 до n.

14. Методика введения понятия “Элемент управления CheckBox”

3 этапа обучения: 1) Подготовительный этап предназначен для введения терминологии. 2) Этап работы с готовыми документами предназначен для осознания и усвоения учениками работы с электронными документами с использованием электронных инструментов. 3) Этап построения документа предназначен для формирования приемов построения электронных документов с использованием электронных инструментов.

1 Этап Подготовительный

1.Элементы управления предназначены для предоставления пользователю возможности управления ходом работы программы.

2. Элементы управления представлены следующими объектами: CheckBox, Value – значения True и False

Возможен множественный выбор.

2 Этап Работа с готовыми программами

Пример программы: Проект «График функции в полярной системе координат»

Dim picGraph As Graphics

Dim R, G, B As Integer

Private Sub frmGraph_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

picGraph = picDraw.CreateGraphics()

R = 0

G = 0

B = 0

End Sub

Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click

Dim penGraph As New Pen(Color.FromArgb(R, G, B))

End Sub

Private Sub chkRed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRed.CheckedChanged

If chkRed.Checked Then R = 255 Else R = 0

End Sub

По аналогии

If chkGreen.Checked Then G = 255 Else G = 0

If chkBlue.Checked Then B = 255 Else B = 0