Тема: Выполнение арифметических действий

Справка

Метки

     Для предоставления пользователю в окне некоторого текста, Visual Basic предлагает воспользоваться несколькими элементами управления. Простейшим из которых является метка Label, позволяющая отобразить одну или несколько строк текста (Рисунок 1.1).

Пиктограмма элемент управления Label

 

     

Рисунок 1.1 − Элемент управления Label

 

     Для помещения элемента управления из ToolBox на форму достаточно лишь выбрать пиктограмму элемента в ToolBox, перевести указатель мыши на нужное место формы, нажать левую кнопку мыши и, не отпуская её, отметить область, в которую будет размещен элемент управления; или дважды щелкнуть мышкой по соответствующей пиктограмме − элемент появится в середине текущей формы.

     Затем можно его перемещать в нужное место и задавать нужные размеры. Для простоты идентификации свойство Caption вновь созданный метки совпадет со свойством Name (имя элемента управления) и имеет значение LabelX, где X − порядковый номер данного типа элемента управления на данный форме. Для другой формы может также существовать метка Label 1.

     Переместим элемент управления Label 1, зададим значение свойства Caption в окне свойств, равное строке Hello World! изменим, если это необходимо, размеры метки и запустим программу на выполнение, не забыв изменить Caption формы с безликого Form 1 на «Простейшая программа с Label».

     Для придания программе более эстетического вида можно установить рамку вокруг метки. Для этого достаточно в свойствах Label установить свойство Borderstyle в значение Fixed Single ( Рисунок 1.2):

Рисунок 1.2 – Установка рамки вокруг метки

Метки могут быть использованы для отображения небольшого текста или результатов простых вычислений (Рисунок 1.3).

Рисунок 1.3 – Использование метки

Командные кнопки

Чтобы создать командную кнопку, щелкните по значку с изображением кнопки на панели инструментов.

Первая кнопка, размещаемая на форме, будет иметь заголовок CommandButton 1, CommandButton 2 и т.д. (Рисунок 1.4).

Заголовок можно изменить, установив в соответствующем окне свойств значение свойства с именем Caption.

 

Рисунок 1.4 – Командная кнопка

 

Текстовые окна

Текстовые окна используются для отображения или ввода текста длиной до 3200 символов. Первое текстовое окно, размещаемое на форме, будет называться TextBox1 (Рисунок 1.5).

Рисунок 1.5 – Текстовые окна

Пользователь может выполнять под текстом обычные операции редактирования: вырезать или удалять, вставлять фрагменты, если только свойству Enabled текстового окна не присвоено False.

Содержимое текстового окна определяется свойством Text. Формат текстового окна может также определяться значениями других свойств, например BorderStyle и ScrollBars (Рисунок 1.6).

 

Рисунок 1.6 – Определение формата текстового окна

Замечание: Чтобы в окне появились линии прокрутки, его свойству MultiLine (Многострочный текст) должно быть присвоено значение True.

 

Пример:

Программа «Сложение» производит сложение двух чисел. Интерфейс c пользователем реализован в виде формы Form 1 (Рисунок 1.7).

Рисунок 1.7 – Пример программы сложения

 

Два числа вводятся в окна Text Box 1 и Text Box 2, затем при нажатии кнопки «Сложение» (щелчком по ней мыши). Эти два числа складываются, а результат отображается на месте метки Label 1.

 

Программа

 

VBA

Private Sub Command Button 1_Click ()

T1! = Val (TextBox1.Text)

T2! = Val (TextBox2.Text)

T3! =T1!+T2!

Label1.Caption=CStr(T3!)

End Sub

 

где Val – функция, конвертирующая текстовую строку в число;

Cstr – функция, конвертирующая число в текстовую строку.

 

Варианты заданий

Варианты	Содержание
1-5	Программа вычитание
6-10	Программа деления
11-15	Программа умножения

 

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

 

Тема: Простейшие формулы

Пример

Программа «Определение прибыли» производит вычисление прибыли от сдачи СМР (строительно-монтажных работ) по объекту № 1.

Прибыль Р определяется по формуле: P = S + K - C,

где S = 12450 р. − сметная стоимость СМР;

К = 1560 р. − компенсация заказчик;

С = 16280 р. − себестоимость СМР.

Интерфейс с пользователем реализован в виде формы UserForm 1 (Рисунок 2.1).

 

Рисунок 2.1 – Программа «Определение прибыли»

 

Величины S, K, C вводятся в окна TextBox 1, TextBox 2, TextBox 3. Затем при нажатии кнопки «Вычислить» (щелчок кнопкой мыши) эти числа подставляют в формулу, а результат отображается на месте метки Label 5.

Программа

VBA

Private Sub CommandButton1_Click()

S! =Val (TextBox1.Text)

K! =Val (TextBox2.Text)

C! =Val (TextBox3.Text)

P! =S!+K!-C!

Label5.Caption= CStr (P!)

End Sub

 

Варианты заданий

Вариант 1

Рассчитать объем павильона для трех значений высот и радиуса

H(м)	3	4	8
R(м)	5	7,5	15

Вариант 2

Определить коэффициент оборачиваемости средств К по трем СМУ при следующих исходных данных

Номер СМУ	Сумма оборотных средств F (тыс. руб.)	Объем работ Q (тыс. руб.)
1 2 3	500 300 500	2000 1500 2500

Вариант 3

Определить, сколько материала S (м²) потребуется на крышу цветочного павильона при следующих значениях исходных данных

R(м)	h (м)
5 7 10	4 4 5

Вариант 4

Определить рентабельность R работы трех СМУ в процентах

При следующих данных

Номер СМУ	Прибыль P (тыс. руб.)	Объем работ Q (тыс. руб.)
1 2 3	600 400 800	2000 1500 2500

R=

 

Вариант 5

Определить объем зала цирка

V=

Для трех значений

H	5	6	7 m
R	40	42	50 m

 

Вариант 6

Определить производительность работ по трем СМУ при следующих исходных данных

Номер СМУ	Число работающих N	Объем работ (тыс. руб.)
1 2 3	120 80 140	2000 1500 2500

(тыс. руб.)

 

Вариант 7

Определить площадь S поверхности спортивного комплекса и его объем

S=2 R²

V=

Для трех значений R: R=15 m, 20 m, 25 m

 

Вариант 8

Определить фондоотдачу FO по трем СМУ при следующих исходных данных

 

Номер СМУ	Средняя стоимость основных производственных фондов F(тыс. руб.)	Объем работ Q(тыс. руб.)
1 2 3	450 300 620	2000 1500 2500

FO=

 

Вариант 9

Определить объем спортивного сооружения

V=4  для трех параметров

a	5	7	10м
b	15	18	25м
c	4	4	5м

 

Вариант 10

Определить количество рабочих R, необходимых для выполнения СМР при следующих исходных данных

 

План СМР (руб.) Р	Средняя выработка (руб.)	Количество раб. дней К
11850 22508 18974	30 45 60	20 22 23

 

Вариант 11

Вычислить объем элеватора

для трех значений R и r

R	20	15	25м
r	10	7	15м

 

Вариант 13

Определить, сколько материала пойдет на поверхность выставочного павильона

Для трех значений параметров:

a	15	25	28
b	10	18	22

 

Вариант 14

Определить рентабельность R отдачи СМР за год по трем объектам строительства при следующих исходных данных:

Прибыль (тыс. руб.) Р	Стоимость (тыс. руб.) S
40 64 80	500 800 1000

 

Вариант 15

Определить объем складского помещения для тех значений R, L, H

R	5	7	8 m
L	15	20	22 m
H	3	3	3,5 m

V=pR^2L/2+2HLR

 

 

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