prosdo.ru
добавить свой файл
1
Группа _______ Фамилия И. О. ___________________________


1. За период от заданной начальной даты Дата1 до заданной конечной даты Дата2 выручка магазина составлял S грн. Определить среднедневную выручку этого магазина.

Результаты решения представить в следующем виде:

а) таблица структуры данных

Реквизиты

Имена переменных

Типы данных

Начальная дата

DtmDataN

Date

Конечная дата

DtmDataOcon

Date

Общая выручка

SngObs

Single

Cреднедневная выручка

SngResult

Single

б) эскиз экранной формы


2. Экономико-математическая модель Вычисление периода реализации продукции

T = Дата2 - Дата1


где Дата2 – заданная конечная дата;

Дата1 – заданная начальная дата;

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

S – выручка магазина в заданном периоде времени;

Р – среднедневная выручка.

Среднедневная выручка Р магазина в заданном периоде времени Т вычисляется по формуле:


Р=S/T где S – выручка магазина в заданном периоде времени; Р – среднедневная выручка магазина; T – Количество дней в промежутке от заданной начальной даты до заданной конечной даты.

в) таблица основных свойств элементов управления на форме

Элементы управления

Наименования свойств

Значение

UserForm1

FrmСредняяВыручка

Ананченко Анна,МЭО,206.02.Аппарат вычесления среднедневной выручки.

Label1

LblDataN

Дата Начала

Label2

LblDataOcon

Дата окончания

Label3

LblObs

Общая Выручка

TextBox1

TxtData1

-

TextBox2

TxtDataOcon

-

TextBox3

TxtObs

-

TextBox4

TxtData2

-

TextBox5

TxtRez

-

CommandButten1

CmdВычесление

Вычесление


г) программный код решения задачи

Private Sub cmdВычесление_Click()

Dim DtmDataN As Date

Dim DtmDataOcon As Date

Dim SngObs As Single

Dim SngResult As Single

SngObs = CSng(TxtObs.Text)

DtmDataN = CDate(txtDataN.Text)

DtmDataOcon = CDate(TxtDataOcon.Text)

SngResult = SngObs / (DtmDataOcon - DtmDataN)

TxtRez = SngResult

TxtRez = Format(SngResult, "# ##0.00")

If SngResult > 100 Then LblSoob = "Хороший результат.Поощрить работников магазина."

End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub TxtRez_Click()

End Sub

Private Sub UserForm_Click()

End Sub

3. Алгоритм решения задачи




T= Дата2 - Дата1


P=S/T


Хорошая работа. Поощрить работников магазина.

2. Как в среде VBA используется оператор выбора Select Case. Запишите пример.

Разветвляющийся вычислительный процесс можно реализовать в VBA также с помощью оператора выбора Select Case. При этом количество ветвей может быть довольно большим. Для такого случая стандартом на графическое представление алгоритмов предусмотрена конструкция, представленная на рис. 3.4.









1

2

3

4

5

n



Рис. 3.4. Блок-схема фрагмента алгоритма,
обеспечивающего несколько выходов

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

Синтаксис оператора Select Case имеет следующий вид:
Select Case <Выражение>

Case <1-ое значение выражения>

Группа операторов 1

Case <2-ое значение выражения>

Группа операторов 2

. . .

Case Else

Группа операторов N

End Select,
где <Выражение> может быть выражением любого типа (символьного, целого, вещественного, строкового и т. д.).

<Значение выражения> в операторе Case может быть:

а) конкретным значением:


Case 1: Оп.1

Case 2, 3: Оп.2

б) диапазоном значений:

Case 1 To 15 Оп.1

Case 16 To 31 Оп.2

в) с применением операторов отношений (=, <, >, <=, >=, <>)

Case Is < 15 Оп.1

Case Is >=15 Оп.2

Преимуществом такого способа организации разветвлений является его наглядность, информативность и компактность самого оператора