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

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

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

2. Элементы управления представлены следующими объектами:

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

Пример программы:

Проект «Обучение английскому»

- объект ImageList

Public Class frmEnglish

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub rdbCat_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbCat.CheckedChanged

picEnglish.Image = imlEnglish.Images(0)

End Sub

Private Sub rdbDog_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbDog.CheckedChanged

picEnglish.Image = imlEnglish.Images(1)

End Sub

Private Sub rdbHourse_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbHourse.CheckedChanged

picEnglish.Image = imlEnglish.Images(2)

End Sub

End Class

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

Самостоятельное составление программ и решение задач.

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

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

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

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

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

Цикл While (Until) применяется когда известно условие выхода из цикла.

Очень часто данный вид цикла приводит к зацикливанию, поэтому рекомендуется сохранить программу перед запуском.

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

Пример программы:

Проект «Пирамида»

Public Class frmPiramid

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

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

Dim SOsn, Shag, X0, Y0, Dlina As Long

Dim picGraphics As Graphics

picGraphics = picPiramid.CreateGraphics()

Dim rnd As New Random()

X0 = picPiramid.Width / 2

Y0 = picPiramid.Height / 2

SOsn = Convert.ToInt32(txtSOsn.Text)

Shag = Convert.ToInt32(txtShag.Text)

Dlina = Math.Sqrt(SOsn)

Do

Dim RndBrush = New SolidBrush(Color.FromArgb(rnd.NextDouble * 255, rnd.NextDouble * 255, rnd.NextDouble * 255))

picGraphics.FillRectangle(RndBrush, Convert.ToInt16(X0 - Dlina / 2), Convert.ToInt16(Y0 - Dlina / 2), Dlina, Dlina)

Dlina = Dlina - Shag

Loop While Dlina > 0

End Sub

End Class

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

Самостоятельное составление программ и решение задач.

16.Методика введения понятия “Строки”

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

1.Строки предназначены для хранения набора символов. Строковая величина представляет собой одномерную таблицу. Строковая переменная содержит текст в кодировке Unicode длиной до 2³¹ (более 2 миллиардов!) символов. Объявление строковой переменной:
Dim Stroka As String
Stroka= “информатика”

2.Для работы со строковой переменной используются следующиефункции:

Chr(Cod) – символ по коду (Chr(232) символ “и”, Chr(10)+Chr(13) конец строки и перевод каретки);

ASC(Stroka) – код первого символа в строке (для символа “и” - 232;

3.Для работы со строковой переменной используются следующие свойства и методы:

Stroka.Length – длина строки; (длина 11 символов)

Symbol= Stroka.Substring(Nachalo, Dlina) – вырезка из переменной; (Simvol= Stroka.Substring(2,5) – “форма”). Нумерация символов начинается с 0.

Stroka.Substring(Nachalo, Dlina)= Symbol – замена части символов; (Stroka.Substring(4,1)= “л” – “инфолматика”)

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

Пример программы:

Количество символов

Public Class frmSymbol

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click

Dim k, i As Integer, S, Text As String

k = 0

S = txtSymbol.Text

Text = rtbText.Text

For i = 0 To Text.Length - 1

If Text.Substring(i, 1) = S Then k = k + 1

Next i

lblResult.Text = "K= " + Convert.ToString(k)

End Sub

End Class

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

Самостоятельное составление программ и решение задач.

17. Методика введение понятия о табличной величине и способах обработки табличной информации

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

1.Табличные величины предназначены для хранения большого количества однотипных данных под одним именем. Табличная величина характеризуется 3 параметрами: имя, тип и индекс. Табличная величина может быть одномерной и многомерной.

2.Табличная величина в Visual Basic называется массивом. Для задания массива служит команда
Dim ИмяМассива (Количество элементов N) As Тип.

Границы стандартно задаются: 0 до N-1.

3.Динамический массив задается следующим образом:

Dim Massiv() as Integer

…………………………

ReDim Massiv(Количество элементов N)

или c сохранением уже введенных значений элемента массива

ReDim Preserve Massiv(Количество элементов N)

Для освобождения памяти, занятой динамическим массивом служит команда:

Erase Massiv

4.Способы заполнения массива данными:

1 способ

Dim A() As Integer = {2, 4, 2, 8, 4, 2, 12, 32, 65, 92}

2 способ

Dim A(10) As Integer

Dim Rnd = New Random()

For i = 0 To 9

A(i) = Rnd.Next(101) - 50

Next

3 способ (на примере чисел Фибоначчи)

Dim A(10) As Integer

A(0) = 1

A(1) = 1

For i = 2 To 9

A(i) = A(i - 2) + A(i - 1)

Next

5.Вывод данных из массива в объект:

1 способ

lblVivod.Text = ""

For i = 0 To 9

lblVivod.Text = lblVivod.Text + Convert.ToString(A(i)) + " "

Next

2 способ

lstVivod.Items.Clear()

For i = 0 To 9

lstVivod.Items.Add(Convert.ToString(i) + " - " + Convert.ToString(A(i)))

Next

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

Обработка массивов

1.Найти сумму элементов массива

Dim Summa As Integer

Summa = 0

For i = 0 To 9

Summa = Summa + A(i)

Next i

lblSumma.Text = "Сумма=" & Summa

2.Найти количество таких элементов массива, которые больше заданного числа F

Dim K As Integer = 0, F As Integer = 20, j As Integer

For j = 0 To N - 1

If A(j) > F Then K = K + 1

Next j

lblResult.Text = "Количество=" & K

3.Найти номер (индекс) максимального элемента

Dim j As Integer

Dim IndMax As Integer = 0

For j = 1 To N - 1

If A(IndMax) < A(j) Then IndMax = j

Next j

lblMax.Text = "Индекс максимального элемента равен " + Convert.ToString(IndMax)

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

Самостоятельное составление программ и решение задач.

18. Методика введение понятия о методах сортировки табличной информации

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

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

СОРТИРОВКА ОБМЕНОМ (методом "пузырька")

Идея метода заключается в том, что последовательно сравниваются пары соседних элементов массива. Если они располагаются не в том порядке, то совершаем перестановку, меняя местами пару соседних элементов. После одного такого прохода на последнем месте номер N окажется максимальный элемент ("всплыл" первый "пузырек"). Следующий проход должен рассматривать элементы до предпоследнего и так далее. Всего требуется N-1 проход. Вычислительная сложность сортировки обменом O(N*N).

СОРТИРОВКА ВЫБОРОМ

Идея метода заключается в том, что находится максимальный элемент массива и меняется местами с последним элементом (с номером N). Затем, максимум ищется среди элементов с первого до предпоследнего и ставится на N-1 место, и так далее. Необходимо найти N-1 максимум. Можно искать не максимум, а минимум и ставить его на первое, второе и так далее место. Также применяют модификацию этого метода с одновременным поиском максимума и минимума. В этом случае количество шагов внешнего цикла N div 2.

Вычислительная сложность сортировки выбором - величина порядка N*N, что обычно записывают как O(N*N). Это объясняется тем, что количество сравнений при поиске первого максимума равно N-1. Затем N-2, N-3, и так далее до 1, итого: N*(N-1)/2.

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

Обработка массивов

1.Сортировка методом «пузырька»

Private Sub SortPuz(ByVal p As Long, ByVal M() As Integer)

Dim i As Long, j As Long, temp As Integer

For i = 0 To p - 1

For j = 0 To p - i

If M(j) > M(j + 1) Then

temp = M(j)

M(j) = M(j + 1)

M(j + 1) = temp

End If

Next j

Next i

End Sub

2.Сортировка выбором

Private Sub SortVibor(ByVal p As Long, ByVal M() As Integer)

Dim i As Long, Max As Long, temp As Integer

For i = 0 To p - 1

Max = IndMax(p - i + 1, M)

temp = M(Max)

M(Max) = M(p - i + 1)

M(p - i + 1) = temp

Next i

End Sub

Private Function IndMax(ByVal p As Long, ByVal M() As Integer) As Long

Dim i As Long

IndMax = 0

For i = 1 To p

If M(i) > M(IndMax) Then IndMax = i

Next i

End Function

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

Самостоятельное составление программ и решение задач.