- •Лабораторный практикум
- •2 Часть
- •Visual Basic. Основы программирования
- •Дмитров 2012
- •Содержание
- •Предисловие
- •Данные, Выражения, Функции Данные вVisualBasic
- •Типы данных
- •Константы
- •Переменные
- •Область видимости переменных
- •Присвоение значения переменной
- •Выражения и функции Арифметическое выражение
- •Логическое выражение
- •Строковое выражение
- •Встроенные математические функции
- •Финансовые функции
- •Функции обработки строк
- •Функции даты и времени
- •Системные функции
- •Функции преобразования типов
- •Функции для работы с графикой
- •Лабораторно-практические работы Общие рекомендации по выполнению работ
- •Лабораторно-практическая работа №1
- •Лабораторно-практическая работа № 2
- •2 Часть
- •Лабораторно-практическая работа № 3
- •Лабораторно-практическая работа № 4
- •Лабораторно-практическая работа № 5
- •Лабораторно-практическая работа №6
- •Лабораторно-практическая работа №7
- •Лабораторно-практическая работа №8
- •2 Часть
- •Лабораторно-практическая работа №9
- •Лабораторно-практическая работа № 10
- •Задания для самостоятельного выполнения
Лабораторно-практическая работа № 3
Тема: Ввод, вывод и присвоение в программе
Цель работы: получить навыки разработки приложений для вычислительных задач
Порядок выполнения
Расположите на форме следующие объекты и измените для них свойства:
-
Объект
Свойство
Значение
Рамка
Caption
Введите X и Y
Текстовое окно
Name
TxtX
Text
(отсутствует)
Текстовое окно
Name
TxtY
Text
(отсутствует)
Линейка прокрутки
Name
HSX
Max
1000
Min
0
Линейка прокрутки
Name
HSY
Max
100
Min
0
Рамка
Caption
Результат
Метка
Name
LblResult
Caption
(отсутствует)
Командные кнопки
Name
Caption
CmdPlus
+
Name
Caption
CmdMinus
-
Name
Caption
CmdDel
/
Name
Caption
CmdMul
*
Для текстовых окон и метки установите выравнивание по центру (свойство Alignment)
Для всех объектов, кроме прокруток, увеличьте размер шрифта (свойство Font)
Приведите свою форму в соответствии с образцом.
В разделе общих объявлений набрать
Dim X,Y As Integer
В окне кода процедуры обработки события Change для объекта HSX набрать:
TxtX.Text = HSX.Value
а для объекта HSY набрать
TxtY.Text = HSY.Value
В окне кода процедуры обработки события Click для объекта CmdРlus набрать
x = Val(TxtX.Text)
y = Val(TxtY.Text)
LblResult.Caption = x + y
Загрузите программу и проверьте работу кнопки «+» (ввод значений для X и Y выполните двумя способами: с клавиатуры и с помощью прокруток)
Остановите программу. Напишите программный код для остальных командных кнопок (самостоятельно)
Добавьте на форму несколько командных кнопок для вычисления следующих значений:
Sin ( X ) + Cos ( Y ); ; Tg ( X )2 - | Y |
Результат показать преподавателю.
Лабораторно-практическая работа № 4
Тема: Встроенные функции
Цель работы: получить навыки использования математических функций
Порядок выполнения
Откройте новый проект, расположите на форме следующие объекты и измените для них свойства:
-
Объект
Свойство
Значение
Рамка
Caption
Случайное число от 0 до10
Текстовое окно
Name
TxtX
Text
(отсутствует)
Рамка
Caption
Sin(X)
Метка
Name
LblSin
Caption
(отсутствует)
BorderStyle
1
Командная кнопка
Name
Caption
CmdResult
Вычислить
Рамка
Caption
Cos(X)
Метка
Name
LblCos
Caption
(отсутствует)
BorderStyle
1
Рамка
Caption
Tn(X)
Метка
Name
LblTan
Caption
(отсутствует)
BorderStyle
1
Рамка
Caption
Квадратный корень
Метка
Name
LblSqr
Caption
(отсутствует)
BorderStyle
1
Рамка
Caption
X^2
Метка
Name
Lbl_2
Caption
(отсутствует)
BorderStyle
1
Приведите свою форму в соответствие с образцом
В окне кода процедуры обработки события Click для объекта CmdResult набрать:
x = Rnd * 10
txtX.Text = x
LblSin.Caption = Sin(x)
LblCos.Caption = Cos(x)
LblTan.Caption = Tan(x)
LblSqr.Caption = Sqr(x)
Lbl_2.Caption = x ^ 2
Загрузите программу и проверьте ее работу
Самостоятельно измените форму и программный код для:
изменения интервала случайного числа от 0 до 50
получения целого случайного числа от 10 до 100
определения остатка от деления числа Х на 2
6. Результат показать преподавателю.