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 Этап Составление программ
Самостоятельное составление программ и решение задач.
19. Методика введение понятия о табличной величине и способах обработки табличной информации
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}
|
Индекс |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
|
Значение |
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)