Объектно-ориентированный язык программирования Visual Basic. Практикум

Практическая работа №1

Программирование алгоритмов линейной и разветвляющейся структуры

Продолжительность 2 часа

1. Вопросы (задачи) подлежащие исследованию

Изучить структуру проекта на языке Visual Basic (VB). Изучить алгоритм линейной и разветвляющейся структуры. Разработать алгоритм в соответствии с заданным. Составить программу решения задачи.

2. Краткие теоретические или справочно-информационные материалы

Список операций отношения

Список основных логических операций

Формат однострочной записи условного оператора If

If Условное выражение Then оператор 1 [Else Оператор 2] где Условное выражение – любое логическое выражение.

Формат многострочной записи оператора If.

If Условное выражение Then. Последовательность операторов 1 [Else последовательность операторов 2]

End If

Формат аператора Select Case Select Case Выражение

Case Значение 1 Последовательность операторов 1 Case Значение 2

13

Последовательность операторов 2 ……..

Case Значение (№-1) Последовательность операторов (№-1)

[Case Else Последовательность операторов №] End Select

3. Порядок проведения работы

Постановка задачи.

Создать проект, в котором вводится любое число в диапазоне от1 до 999 и определяется количество цифр в числе.

Загрузите VB 6.0 (стандартный).

Разместите на FORM 1 командную кнопку и задайте свойство caption ='' Пуск''.

Щелкните 2 раза по кнопке и войдите в окно программного кода. Введите текст программы:

Private Sub Command 1_Click() Dim vvod As String

Dim x As Integer, y As Integer, e As String, w As String

Vvod=InputBox (''Ввести число от 1 до 999'', ''Количество цифр'', ''1'',

2000,2000) X=Vale (vvod)

If x<10 Then Y=1 E=''одной''

Else If x<100 Then Y=2

E=''двух'' Else Y=3 E=''трех'' End If

If y=1 Then w=цифры ''Else w=''цифры'' MsgBox ''Ваше число''+ vvod+chr(13)+ ''состоит из''+ e+'' ''+w (0+64), ''Результат''

End Sub

Запустите программу для исполнения клавишей F5.

14

Ввести в окно сообщения данные. Чтобы проверить правильность работы программы , необходимо проверить работу приложения при вводе одно –двух - и трехзначных чисел.

Сохранить проект в своей папке.

На форме FORM 1 разместите четыре текстовых поля

text 1, text 1, text 3, text 4, а также командную кнопку и задайте свойство

Caption=`` Функция ``.

Используя элемент Label (этикетка) сделайте надписи над текстовыми полями : A, B, Y, R.

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

An+b, если an<1 R= { sinaN, если aN=1

e (в степени –an)sinaN, если aN1

Private Sub_ command 2_Click()

Dim A As Double, B As Double.

Dim N As Double, R As Double

A=Val(text1.text)

B=Val(text2.text)

N=Val(text3.text)

If A*N<1 then R=A*N+B

If A*N=1 then R=sin(A*N)

If A*N<1 then R=Exp (-A*N)*cos(A*N)

Text4.text=str(R)

End Sub

Запустите программу на выполнение клавишей F5. Сохраните созданный объект в своей папке.

4. Контрольные вопросы

Перечислить действия, реализуемые при выполнении условного оператора. Какие величины используются в языке VB 6.0.

Указать старшинство выполнения операций при вычислении арифметического выражения.

Какие имена переменных допустимы в программе.

Указать имена стандартных функций для вычисления √x , enx , |x| , e в степени x, cosx, sinx, tgx.

15

Практическая работа №2

Программирование алгоритмов циклической структуры

Продолжительность 2 часа

1. Вопросы (задачи) , подлежащие исследованию

Изучить алгоритм вычислительных процессов циклической структуры. Разработать алгоритм табулирования функции, определенной в задании. Составить программу решения задачи.

Изучить организацию итерационных процессов. Изучить приемы программирования. Разработать алгоритм решения задач. Составить программу решения задач.

2. Краткие теоретические или справочно-информационные материалы

Формат оператора Go to метка, где метка, с которой продолжается выполнение программы

Формат оператора For....Next

For Счетчик= Начало To конец [Step шаг] [Операторы цикла]

[Exit For] Next[счетчик]

Здесь счетчик числовая переменная, используемая как счетчик цикла. Начало - начальное значение счетчика; Конец – конечное значение счетчика

Шаг – шаг изучения значения счетчика, по умножению на 1.

Exit For - используется для немедленной остановки цикла. Форматы операторов с проверкой условия в начале цикла

Do while условие Тело цикла

[exit do] loop

Do Until условие Тело цикла

[exit do] loop

16

while условие тело цикла wend

Форматы операторов с проверкой условия в конце цикла

Do

Тело цикла

[exit do]

loop while условие do

тело цикла

[ Exit Do ]

loop Until условие

3. Порядок проведения работы

ЗагрузитьVB 6.0 (стандартный), разместите на Form 1 кнопку и зайдите в свойство Caption= ``Функция 1`` .

Щелкните 2 раза по кнопке и войдите в окно программного кода

Введите текст программы для вычисления значения y=x^2*e^-x на интервале (a,b) c шагом h

Private sub command 1_click()

Dim a As single, b as single, h as single Dim x as single, f as single

a= val(inputbox(‗‘Введите начало диапазона ‘‘)) b=val(inputbox(‗‘Введите конец диапазона‘‘)) h=val(inputbox(‗‘Введите шаг изменения x‘‘))

End sub

Запустите программу на выполнение клавишей F5.

Ввести в окне сообщения данные и проанализировать результат. Сохраните проект в своей папке.

На форме Form1 разместите четыре текстовых поля:

17

Text.1,text2,text3,text4, а также командную кнопку и задайте свойство caption=‖ Функция2‖

Используя элемент label (этикетка) сделайте надписи над текстовыми полями; Значение х, вычисления s, сумма ряда, число членов ряда.

Щелкните 2 раза по кнопке и введите программный код для вычисления значения суммы бесконечного ряда .

Private sub command 2_click() Dim x as double, EPS as double

Dim a as double, s as doubke, N as integer x= val(text1.text)

y= val(text2.text) A=x

S=0

N=1

Do while ABS(x)<EPS A=-A*x*x/((2*n-2)*(2*n-1)) N=N+1

S=S+A Loop

Text3.text-str(s)

Text4.text=str(n) d sub

4. Контрольные вопросы

Что такое итерационный циклический процесс?

Отличия итерационного циклического процесса от цикла с заданным числом повторений.

Каковы условия сходности метода итераций Каково условие выхода из цикла при вычислении суммы членов

бесконечного ряда?

Почему при вычислении значения текущего члена an используется простая переменная , а не индексированная?

18

Практическая работа №3

Обработка одномерных массивов

Продолжительность 2 часа

1. Вопросы (задачи), подлежащие исследованию

Изучить способы описания размеров массивов на VB 6.0. Ввод и вывод массивов.

Реализация на VB 6.0 приемов накопления суммы и произведения. Разработать алгоритмы наибольшего и наименьшего.

Составить программные коды поставленных задач.

2. Краткие теоретические или справочно-информативные материалы

Visual Basic различает три вида структурных данных: массивы, структуры и коллекции.

Данные удобно хранить в таблицах. Различают линейные и прямоугольные таблицы.

В программирование понятию «таблица» соответствует понятие «массив». Массив – упорядоченная последовательность однотипных величин,

имеющих общее имя.

Линейной таблице соответствует одномерный массив, прямоугольной таблице – двумерный массив.

Структурный массив – это объединение под одним именем нескольких ячеек памяти.

Массив – одна из таких структур.

При объявлении массива оператор объявления должен включать следующую информацию: имя массива, тип данных, размерность, количество элементов.

Например:

Poblic Mas(2 To 9) As String

Массивы, которые содержат строго определенное количество элементов, называются массивами с фиксированной границей.

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

Для объявления динамического массива не указывается размерность, например:

Dim Mas( ) As String

19

Количество элементов в объявленном массиве и его размерность в процессе выполнения программы можно переопределить с помощью ключевого слова ReDim, например

Dim Mas( ) As String

Dim N As Integer

N=9

ReDim Mas(N)

3. Порядок проведения работы

Загрузите VB 6.0 (стандартный)

Расположите объекты на форме в соответствии с рисунком

Способы заполнения массива

Размерность Исходный массив

Случайные числа

Заполнение массива

Максимальный элемент

84

Номер максимального элемента

5

Поиск максимального элемента

Для выбора способа заполнения массива используйте комбинированное окно ComboBox.

Значения свойств объектов, которые определяют внешний вид приложения, установите по своему желанию.

20

Значения свойств Caption меток, кнопок и рамок установите в соответствии с рисунком

Установите значения свойств объектов в соответствии с таблицей.

Щелкните два раза по кнопке «заполнение массива» и войдите в окно программного кода.

Наберите текст программного кода для заполнения массива разными способами.

Dim a( ) As String Dim i, n As Integer Dim k As String

Dim Max As String, nMax As Integer Dim ListIndex As Integer

Private Sub CmdМассив_Click( ) n = Val(txtN.Text)

Redim a (1 to n)

21