Преподавание программирования в среде

Вид материала

Программа

Содержание Программный код End Sub Задание на самостоятельное выполнение МассивыТипы и объявление массивов Заполнение массива случайными числами Поиск в массивах минимального значения и его индекса Private Sub Сортировка массива Проект «Сортировка числового массива» Private sub End sub Запустить проект. Щелкнуть по кнопкам Заполнить массив и Сортировать.

Подобный материал:

• Анализировать и сравнивать, 157.08kb.
• Учебная программа курса «основы программирования в среде «Delphi» ( 9 класс, 86.93kb.
• Задачи курса: 1) Приобретение навыков работы в среде системы визуального программирования, 1668.59kb.
• Рабочая программа трудоемкость дисциплины 5 зачетных единиц направление 010400 информационные, 103.17kb.
• Г. Х. Андресена (110 слов) Статья, 242.34kb.
• Тема урока: vba как язык объектно-ориентированного программирования (ооп), 43.71kb.
• Vba относительно легкий язык программирования, 140.81kb.
• Лекция 3 Инструментальное по. Классификация языков программирования, 90.16kb.
• Лекция Языки и системы программирования. Структура данных, 436.98kb.
• Профессор, Dr. Sc. Habil., 1206.7kb.

Задание. Решить квадратное уравнение вводом параметров a,b,c с помощью функции InputBox. Проверку дискриминанта выполнить с помощью оператора условного перехода IF ... Then . . . Else . . . End If

Разместить на форме кнопку command1. Создать событийную процедуру commandl_Click () .

В окне Программный код ввести событийную процедуру целиком:

Private Sub Command1_Click()

Dim a, b, c, d, x1, x2 As Single

a = InputBox("ввведите a:", "ввод ")

b = InputBox("введите b:", "ввод ")

c = InputBox("введите c:", "ввод ")

d = Val(b) 2 - 4 * Val(a) * Val(a)

If d < 0 Then Print "net reschenia" Else x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a): Form1.Print x1, x2

End Sub

Задание на самостоятельное выполнение: Найти периметр и площадь треугольника, стороны которого введем с помощью функции InputBox. Проверку подкоренного выражения проверить с помощью оператора условного перехода IF ... Then . . . Else . . . End If


Массивы


Типы и объявление массивов

Массив является набором переменных одного типа, объединенных одним именем. Массивы бывают одномерные и двумерные.

Массив состоит из пронумерованной последовательности элементов. Номера в этой последовательности называются индексами. Каждый из этих элементов является переменной, т.е. обладает именем и значением, и поэтому массив можно назвать переменной с индексом.

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

Заполнение массива случайными числами

Для генерации последовательности случайных чисел используем функцию RND:

Dim bytA(1 To 100), bytI As Byte

Private Sub Command1_Click()

For bytI = 1 To 10

bytA(bytI) = Int(Rnd * 10)

Next bytI

End Sub

Поиск в массивах минимального значения и его индекса

1. Поместить на форму frm1 кнопку cmd1 и создать для нее событийную процедуру, реализующую заполнение массива случайными числами. Значение минимального элемента будем хранит в переменной bytmin , а его индекс в переменной bytn. Будем считать сначала, что минимальный элемент равен первому элементу массива bytA(1), поэтому присвоим переменной bytmin его значение. Затем в цикле сравним последовательно элементы массива со значением переменной bytmin. Если какой-то элемент окажется меньше, присвоим его значение переменной bytmin, а его индекс – переменной bytn и так до самого последнего элемента. Результат поиска выведем на форму.
   
2. Поместить на форму кнопку cmd2 и создать для нее событийную процедуру:
   

Private Sub Command2_Click()

bytmin = bytA(1)

bytI = 1

For bytI = 2 To 10

If bytA(bytI) < bytmin Then bytmin = bytA(bytI): bytn = bytI

Next bytI

Print "минимальный элемент"; bytmin; "его индекс"; bytn

End Sub

3. Запустить проект.

Результат работы программы:





Сортировка массива

Упорядочим (отсортируем) числовой массив по возрастанию значений его элементов. Пусть мы имеем целочисленный числовой массив, состоящий из 10 элементов и заполненный случайными числами.

Проводим поиск минимального элемента в массиве среди элементов с 1 по 10. Далее меняем найденный минимальный элемент местами с элементом с индексом 1. Проводим поиск минимального элемента среди элементов со 2 по 10 и делаем перестановку.

Повторяем процедуру поиска минимального элемента среди оставшихся неупорядоченных элементов многократно. В результате массив упорядочивается.


Проект «Сортировка числового массива»

1. Поместить на форму frm1 кнопку cmd1и создать для нее событийную процедуру cmd1_Click(), реализующую заполнение массива случайными числами.
   
2. Определить переменные для всего программного модуля и напишем общую процедуру для нахождения минимального элемента массива.
   

Dim bytA(1 To 10), bytmn, byti, bytj, bytk, bytr, bytn as byte

Sub minelement(bytj,bytn as byte)

Bytmin=bytA(byti)

Bytn=byti

For bytj=byti+1 to 10

If bytA(bytj)
Next bytj

End sub

3. Поместить на форму кнопку cmd2 и создать событийную процедуру сортировки cmd2_click(). Для визуализации процесса сортировки выводить в текстовое поле Txtsort.text значения элементов массива.
   

Private sub cmd2_click()

Txtsort.text=«»

For byti=1 to 9

Call minelement(bytj, bytn)

Bytr=bytA(byti)

BytA(byti)=bytA(bytn)

BytA(bytn)=bytr

For bytk=1 to 10

Txtsort.text=txtsort.text+str(bytA(bytk))

Next bytk

Next byti

End sub

4. Запустить проект. Щелкнуть по кнопкам Заполнить массив и Сортировать.
   
5. Самостоятельно разработать проект, в котором реализуется сортировка массива по убыванию.
   

Заключение


Разбор приведенных примеров поможет кодированию. «Примеры учат, навык мастера создает». Следуя этому древнему изречению, пишите программы самостоятельно. Добившись совершенства в Word, Excel, Access, многие, чтобы уйти от монотонности и рутины, стараются максимально автоматизировать свою деятельность. Учиться программированию можно прямо в среде Microsoft Office, в которую встроен специальный редактор Visual Basic for Applications. Поскольку Microsoft Office установлен практически на каждом компьютере, доступ к Visual Basic открыт для всех, и начать работать с ним можно в любой момент.

Например, создавать макросы в Word, Excel, Access и многое другое.

Успехов вам на избранном пути!


Литература

1. Н.Угринович «Информатика и информационные технологии» Учебник для 10-11 классов. М.Бином, Лаборатория знаний
   

2. Занимательное программирование Visual Basic . Книга для детей, родителей и учителей. С.Симонович, Г.Евсеев. М.АСК-ПРЕСС КНИГА. Инфорком –Пресс.2002.