Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 125 - 131
§4.16. Массивы






Содержание урока

4.16.1. Заполнение массивов
4.16.2. Поиск элемента в массивах

Проект «Поиск в массиве»

Создание графического интерфейса проекта на языках Visual Basic .NET, Visual С#, Visual J# и Turbo Delphi

Создание обработчика события на языке Visual Basic .NET

Запуск проекта на языках Visual Basic .NET, Visual C#, Visual J# и Turbo Delphi

Компьютерный практикум

4.16.3. Сортировка числовых массивов
4.16.4. Сортировка строковых массивов

4.16.2. Поиск элемента в массивах


Создание обработчика события на языке Visual Basic .NET


2.


Dim A(9) , I, Max As Byte
Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear()
ListBox2.Items.Clear()
'Заполнение массива Randomize()

For I = 0 To 9
A(I) = Int(Rnd() * 100)
ListBox1.Items.Add(I)
ListBox2.Items.Add(A(I))
Next I
'Поиск максимального элемента Max = 0 A (Max) = A (0)
For I = 1 To 9
If A (I) > A (Max) Then A (Max) = A (I) : Max = I Next I
Label1.Text = Max Label2.Text = A(Max)
End Sub


Следующая страница Запуск проекта на языках Visual Basic .NET, Visual C#, Visual J# и Turbo Delphi



Cкачать материалы урока







Наверх