Rem Назначение значений элементу Список

ListBox1.List = Array (3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)

Rem Установка минимального и максимального значения Счетчику

SpinButton1.Min = 0

SpinButton1.Max = 1000

ToggleButton1.Caption = «В начале периода»

Для процедуры обработки события Change элемента TextBox3 запишите следующий программный код, который присваивает значение элементу Счетчик, взятое из текстового поля TextBox3, предварительно преобразовав его из символьного типа данных в целое число.

Private Sub TextBox3_Change()

If TextBox3.Text = “” Then Exit Sub

SpinButton1.Value = CInt(TextBox1.Text)

End Sub

Для процедуры обработки события Change элемента SpinButton1 запишите программный код, который выводит в текстовое поле значение Счетчика.

Private Sub SpinButton1_Change()

TextBox3.Value = SpinButton1.Value

End Sub

Для расчета величины постоянных периодических выплат в Visual Basic есть специальная функция Pmt, которая имеет следующий синтаксис:

Pmt (Ставка, Кпер, Нз, [Бз [, Тип]]),

где Ставка – процентная ставка за период;

Кпер – количество периодов выплат для погашения кредита;

Нз – сумма, которую нужно погасить;

Бз – баланс наличности, который нужно достичь после последней выплаты;

Тип – признак того, когда производится выплата (0 – в конце периода, 1 – в начале периода платежа).

Процедура обработки события Click элемента CommandButton1 имеет следующий код:

Private Sub CommandButton1_Click()

Dim Ставка, Нз As Double

Dim Кпер As Integer

Dim Тип As Byte

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

Нз = TextBox1.Value – TextBox1.Value * TextBox2.Value / 100

Label12.Caption = Нз

Rem Выбираем из списка значение процентной ставки

Ставка = ListBox1.Value / 100

Rem Изменяем ставку, если период выплат – месяц

If OptionButton1.Value = True Then Ставка = Ставка / 12

Rem С помощью счетчика определяем количество периодов

Кпер = TextBox3.Value

Rem Определяем, когда производятся платежи (в начале или конце периода)

If ToggleButton1.Value = True Then Тип = 1 Else Тип = 0

Rem Рассчитываем и выводим все остальные величины

Label4.Caption = Int(Pmt(Ставка, Кпер, -Нз,,Тип))

Label6.Caption = Label4.Caption * Кпер

Label8.Caption = Label6.Caption – Label12.Caption

End Sub

Параметр Нз берется со знаком минус, так как эта сумма была отдана банком.

Для процедуры обработки события Click элемента CommandButton2 наберите следующий код:

End

Введите данные для расчета и проверьте, правильно ли выполняются вычисления (Рис. 26).

 

 

Приложения

Индивидуальное задание по теме «Создание функции пользователя»

Вариант 1

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

где П₁, П₀ – платежи населения соответственно в планируемом и отчетном годах;

Сд – скорость обращения, дни.

2. Разработайте функцию пользователя для расчета общей стоимости товаров по формуле:

где C – общая стоимость товаров;

K_i – количество i-го товара;

Ц_i – цена i-го товара.

Вариант 2

1. Разработать функцию пользователя для расчета численности производственных рабочих для предприятия по формуле

где Q – план выпуска продукции;

Н – дневная норма выработки продукции;

Т – число рабочих дней в году на одного рабочего.

2. Разработайте функцию пользователя для расчета средней арифметической взвешенной величины x по формуле:

где - средняя арифметическая взвешенная величины x;

x_i – i-е значение величины;

m_i – частость i-го значения.

Вариант 3

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

где Q – план выпуска продукции;

P – средняя бригадная расценка по продукции;

S_n – сумма премии;

S_д – сумма дополнительной заработной платы.

2. Разработайте функцию пользователя для расчета товарных запасов на конец квартала по формуле:

где N_i – товарные запасы i-го товара на начало квартала;

P_i – поступление i-го товара;

O_i – количество i -го товара, отпущенного за квартал.

Вариант 4

1. Разработать функцию пользователя для расчета плановой прибыли по формуле

где Q – количество реализованной продукции;

I – оптовая цена за единицу продукции;

z - полная себестоимость единицы продукции.

2. Разработайте функцию пользователя для расчета объема незавершенного производства по формуле:

где Q – объем незавершенного производства, % к товарному выпуску;

Q_i - объем незавершенного производства i-го товара, нормо-часы;

b_i – товарный выпуск i -го товара, нормо-часы.

Вариант 5

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

где R – плановый размер премии;

К – коэффициент значимости;

А – плановое задание;

а – фактическое выполнение;

Т – твердая надбавка к окладу.

2. Разработайте функцию пользователя для расчета максимального товарного запаса склада по формуле:

где Q – максимальный товарный запас склада;

O_i – годовой объем складского товарооборота i–й товарной группы;

q_i – товарный запас i–й товарной группы, дни оборота;

K – коэффициент неравномерности образования товарного запаса, равный 1,25;

C_i – средняя стоимость одного вагона i–й товарной группы.

Вариант 6

1. Разработать функцию пользователя для расчета необходимого количества оборудования по формуле

где Q – объем информации;

V – техническая скорость устройства;

К – коэффициент использования оборудования;

t – время работы.

2. Разработайте функцию пользователя для расчета средней квадратической величины по формуле:

где x_i – значение i–го фактора.

Вариант 7

1. Разработать функцию пользователя для расчета необходимого количества однотипного оборудования по формуле

где Q – максимальный суточный объем работ;

П – норма выработки;

К – коэффициент использования оборудования;

Д – число рабочих дней в году;

С – сменность работы.

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

,

где х_i – значения дискретной случайной величины,

p_i – вероятности.

Вариант 8

1. Разработать функцию пользователя для расчета экономии торговых расходов при внедрении самообслуживания по формуле

где И1, И2 – средний уровень издержек обращения магазинов соответственно до и после внедрения самообслуживания;

Т – товарооборот магазинов самообслуживания.

2. При поступлении в вуз абитуриенты, получившие «двойку» на первом экзамене, ко второму не допускаются. Зная оценки за первый экзамен в группе абитуриентов, разработать функцию пользователя, определяющую, сколько человек не допущено ко второму экзамену.

Вариант 9

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

где Q – расход товаров за отчетный период;

О – остаток товаров на конец отчетного периода;

t – средний период хранения товаров;

n – норма естественной убыли для данного товара, %;

Т – срок хранения, для которого установлена норма убыли.

2. У вас есть доллары. Вы хотите обменять их на рубли. Есть информация о стоимости купли-продажи в банках города. Разработать функцию пользователя, определяющую, самый выгодный курс обмена.

Вариант 10

1. Разработать функцию пользователя для расчета площади общетоварных складов для конкретного экономического района по формуле

где N – норма на один день товарных запасов относительно розничного товарооборота;

W – численность населения района, тыс. чел.;

m₁ – норматив запасов для экономического района;

m₂ – норматив запасов для розничной сети экономического района.

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

Вариант 11

1. Разработать функцию пользователя для расчета величины снижения трудоемкости за счет механизации по формуле

где Р₁, Р₂ – число работающих до внедрения механизации и после;

П – количество работающих в данный период;

В₁, В₂ – масса продаваемых товаров до внедрения механизации и после.

2. Пригодность детали оцениваются по размеру, который должен соответствовать интервалу (10,8; 11,2). Разработать функцию пользователя, определяющую количество бракованных деталей в партии.

Вариант 12

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

где i – годовая процентная ставка;

g – налог на прибыль, выраженный в процентах;

h – годовой темп инфляции, вычисляемый по формуле:

где h_m – месячный темп инфляции.

2. Разработать функцию пользователя для расчета среднемесячной заработной платы работников участка.

Вариант 13

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

где R – процент уценки;

Q – количество товара;

Z – цена товара.

2. Разработать функцию пользователя для расчета чистой текущей стоимости периодических выплат и поступлений по формуле:

где NPV – чистая текущая стоимость периодических выплат и поступлений;

r – средняя цена капитала;

n – количество выплат и поступлений;

P_i – значения выплат и поступлений.

Вариант 14

1. Разработать функцию пользователя для расчета коэффициента ликвидности по формуле:

где ОА – оборотные активы;

РБП – резервы будущих периодов;

КО – краткосрочные обязательства;

ДБП – доходы будущих периодов;

РПР – резервы предстоящих расходов и платежей.

2. Разработать функцию пользователя для расчета чистой текущей стоимости нерегулярных переменных выплат и поступлений по формуле:

где XNPV – чистая текущая стоимость нерегулярных переменных выплат и поступлений;

r – ставка процента;

n – количество выплат и поступлений;

P_i – значения выплат и поступлений.

d₁ – дата первой операции;

d_i – дата i-ой операции.

Вариант 15

1. Разработать функцию пользователя для расчета нормы прибыли по инвестиционному проекту по формуле:

где НП – норма прибыли;

ДИ – доход, предполагаемый к получению по инвестиционному проекту за один год;

Т – продолжительность периода реализации проекта;

СП – затраты на выполнение проекта.

2. Даны проценты роста курса доллара в течение n месяцев. Разработать функцию пользователя, определяющую курс доллара через n месяцев, если его первоначальное значение составляло х рублей.

Вариант 16

1. Разработать функцию пользователя для расчета коэффициента обеспеченности собственными средствами по формуле:

где СС – собственные средства;

СОС – стоимость основных средств;

СПВА – стоимость прочих внеоборотных активов;

ОСП – оборотные средства предприятия.

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

 

Индивидуальное задание по теме «Создание формы пользователя»

Вариант 1

Разработать форму пользователя для расчета прироста денег у населения по формуле

где П₁, П₀ – платежи населения соответственно в планируемом и отчетном годах;

Сд – скорость обращения, дни.

Вариант 2

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

где Q – план выпуска продукции;

Н – дневная норма выработки продукции;

Т – число рабочих дней в году на одного рабочего.

Вариант 3

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

где Q – план выпуска продукции;

P – средняя бригадная расценка по продукции;

S_n – сумма премии;

S_д – сумма дополнительной заработной платы.

Вариант 4

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

где Q – количество реализованной продукции;

I – оптовая цена за единицу продукции;

z - полная себестоимость единицы продукции.

Вариант 5

Разработать форму пользователя для расчета размера премии по формуле

где R – плановый размер премии;

К – коэффициент значимости;

А – плановое задание;

а – фактическое выполнение;

Т – твердая надбавка к окладу.

Вариант 6

Разработать форму пользователя для расчета необходимого количества оборудования по формуле

где Q – объем информации;

V – техническая скорость устройства;

К – коэффициент использования оборудования;

t – время работы.

Вариант 7

Разработать форму пользователя для расчета необходимого количества однотипного оборудования по формуле

где Q – максимальный суточный объем работ;

П – норма выработки;

К – коэффициент использования оборудования;

Д – число рабочих дней в году;

С – сменность работы.

Вариант 8

Разработать форму пользователя для расчета экономии торговых расходов при внедрении самообслуживания по формуле

где И1, И2 – средний уровень издержек обращения магазинов соответственно до и после внедрения самообслуживания;

Т – товарооборот магазинов самообслуживания.

Вариант 9

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

где Q – расход товаров за отчетный период;

О – остаток товаров на конец отчетного периода;

t – средний период хранения товаров;

n – норма естественной убыли для данного товара, %;

Т – срок хранения, для которого установлена норма убыли.

Вариант 10

Разработать форму пользователя для расчета площади общетоварных складов для конкретного экономического района по формуле

где N – норма на один день товарных запасов относительно розничного товарооборота;

W – численность населения района, тыс. чел.;

m₁ – норматив запасов для экономического района;

m₂ – норматив запасов для розничной сети экономического района.

Вариант 11

Разработать форму пользователя для расчета величины снижения трудоемкости за счет механизации по формуле:

где Р₁, Р₂ – число работающих до внедрения механизации и после;

П – количество работающих в данный период;

В₁, В₂ – масса продаваемых товаров до внедрения механизации и после.

Вариант 12

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

где i – годовая процентная ставка;

g – налог на прибыль, выраженный в процентах;

h – годовой темп инфляции, вычисляемый по формуле:

где h_m – месячный темп инфляции.

Вариант 13

Разработать форму пользователя для расчета стоимости товара после уценки по формуле

где R – процент уценки;

Q – количество товара;

Z – цена товара.

Вариант 14

Разработать форму пользователя для расчета коэффициента ликвидности по формуле:

где ОА – оборотные активы;

РБП – резервы будущих периодов;

КО – краткосрочные обязательства;

ДБП – доходы будущих периодов;

РПР – резервы предстоящих расходов и платежей.

Вариант 15

Разработать форму пользователя для расчета нормы прибыли по инвестиционному проекту по формуле:

где НП – норма прибыли;

ДИ – доход, предполагаемый к получению по инвестиционному проекту за один год;

Т – продолжительность периода реализации проекта;

СП – затраты на выполнение проекта.

Вариант 16

Разработать форму пользователя для расчета коэффициента обеспеченности собственными средствами по формуле:

где СС – собственные средства;

СОС – стоимость основных средств;

СПВА – стоимость прочих внеоборотных активов;

ОСП – оборотные средства предприятия.

 

Индивидуальное задание по теме «Файлы последовательного доступа»

Вариант 1

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

Счет-фактура

Номенклатурный номер	Наименование товара	Единица измерения	Розничная цена	Сумма	Скидка
%	Сумма
						?

Вариант 2

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

Платежная ведомость

Отработано дней	Табельный номер	ФИО	Начислено	Удержано	К выдаче	Роспись
					?

Вариант 3

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

Сводка о выполнении плана выпуска продукции

Код	Наименование продукции	Единица измерения	План выпуска	Фактически выпущено	% выполнения плана
					?

Вариант 4

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