VB 3. Арифметические вычисления с помощью TextBox (текстовое поле)

Лабораторная работа №3

* Задание: Создайте приложение, которое при нажатии кнопки выводит сумму трех слагаемых.

Инструментарий:

объект свойство name свойство text
форма frmSumma Вычисление суммы
кнопка (button) btnExit Выход
текстовое поле (textbox) txtA 0
текстовое поле (textbox) txtB 0
текстовое поле (textbox) txtC 0
текстовое поле (textbox) txtSumma 0
кнопка (button) btnCount Вычислить

текстовые поля в VB

Выполнение:

  1. Внимание! Называйте все объекты согласно правилам именования объектов, принятых в VB. В скобках будет указан возможный вариант для имени создаваемого объекта.
  2. Создайте новый проект (Вычисление), назовите его форму frmSumma.
  3. Создайте и запрограммируйте на форме кнопку Выход (btnExit) .
  4. Создайте три элемента управления Textbox (txtA, txtB, txtC) для слагаемых. Задайте свойство Text для этих элементов управления, равное 0.
  5. Создайте еще один элемент управления TextBox (txtSumma) (размеры и расположение кнопок см. рис «форма Вычисление_суммы»).
  6. Создайте кнопку Вычислить (btnCount).
  7. Запрограммируйте событие Click для кнопки Вычислить следующим образом:
Private Sub btnCount_Click(…
 txtSumma.Text = Int(txtA.Text) + Int(txtB.Text) + Int(txtC.Text)
End Sub

 Функция Int() возвращает полученную целую часть числа

  1. Запустите приложение, введите значения для слагаемых и посмотрите, что произойдет, если Вы нажмете на кнопку Вычислить.
  2. Сохраните проект.

Дополнительное задание. Измените приложение так, чтобы оно вычисляло сумму квадратов трех чисел.

Контрольное задание. Разработайте приложение, которое вычисляет:

  • площадь треугольника по трем сторонам;
  • площадь прямоугольника по двум сторонам;
  • площадь треугольника по двум сторонам и углу между ними;
  • процент от числа.

Вопросы для самоконтроля.

  1. Какова основная функция элемента управления TextBox?
  2. Какая функция VB округляет числовые значения?

* При использовании материалов обязательна ссылка на источник: Майер С.Ф., «MS Visual Basic 2008» — Учебно-методическое пособие : Южный федеральный университет. – Ростов-на-Дону, 2017. – 92 с.