1.1. Таблица свойств

Объект	Свойства	Установки
Командная кнопка I	Name	Command I
	Caption	Расчет
Командная кнопка 2	Name	Command2
	Caption	Очистка
Командная кнопка 3	Name	Command 1
	Caption	Выход

1.2. Процедуры обработки прерываний

Private Sub Commandl_Click()

T(l, 1) = Val(Textl): T(l, 2) = Val(Text2): T(l, 3) = Val(Text3) U(l) = Val(Text4): P(l) = Val(Text5): T(2, 1) = Val(Text6): T(2, 2) = Val(Text7): T(2, 3) = Val(Text8): U(2) = Val(Text9) P(2) = Val(TextlO): T(3, 1) = Val(Textll): T(3, 2) = Val(Textl2) T(3, 3) = Val(Textl3): U(3) = Val(Textl4): P(3) - Val(Textl5) Sigm = Val(Textl6): Tmin = Val(Texti7): Tmax = Val(Textl8) Nr = Val(Textl9)

Call Model5 ' обращение к модулю общего назначения

End Sub

Private Sub Command2_Click()

Text20 = "": Text21 = "": Text22 = "" End Sub

Private Sub Command3_Click()

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

End End Sub

2. Модуль общего назначения Model5.bas

Public T(3, 3) ' массив значений средней выручки для различных

' товаров и ' различных пунктов торговли Public U(3) ' массив значений убытков для различных пунктов

Public Р(3) ' вероятности внеплановых убытков для разных пунктов

Public Tsum(3) As Double

Public Tsum2(3) As Double

Public Mcp(3) Public Gar(3)

Public Sigma(3)

' для различных пунктов

Public i, j, lr. Nr. Tmin, Tmax, Sigm, Eta, TS, z Public Disp, E, k Const R = 1.645

Public Sub Model5()

'обнуление сумм, используемых для расчета МО и СКО: For i = I То 3: Tsum(i) = 0: Tsum2(i) = 0: Next i 'начало цикла случайных реализаций For lr = I To Nr

'начало цикла перебора торговых точек: For i = 1 То 3

Eta = UNR: TS = T(i, J) * (l+Sigm*Eta) Eta = UNR: TS = TS + T(i, 2) * (l+Sigm*Eta) Eta = UNR: TS = TS + T(i, 3) ♦ (l+Sigm*Eta) z = Rnd

If z < P(i) Then I

Eta = UNR: TS = TS - U(i) * (l+Sigm*Eta) End If

Tsum(i) = TSum(i) + TS Tsum2(i) = Tsum2(i) + TS * TS Next i ' конец цикла перебора торговых точек

Next Ir ' конец цикла случайных реализаций

' расчет показателей (МО И СКО) для каждой точки: For i = I То 3

Mcp(i) = Tsum(i) / Nr ' расчет средней прибыли

' расчет дисперсии и СКО прибыли: If Nr > I Then

Disp = (Tsum2(i) - Nr * Mcp(i)*Mcp(i))/{Nr - I) Sigma(i) = Sqr(Disp) Else

Sigma(i) = 0 End If

' минимальная гарантированная прибыль: Gar(i) = Mcp(i) - R * Sigma(i) Next i

' вывод результатов ' расчета: Forml.Text20.Text = Format$(Gar(l), "#####'•) Forml.Text21.Text = Format$(Gar(2), "#####") Forml.Text22.Text = Format$(Gar(3), "#####") End Sub ' конец главной программы

Public Function UNR()

' Функция "Усеченное нормальное распределение" Do

Е = О

For k = 1 То 12

z = Rnd: E = E + z Next k E = E - 6

If E >= Tmin And E <= Tmax Then

UNR = E: Exit Do End If Loop End Function

Приложение 6

Программа

финансовой модели Герца на языке Visual Basic 5.0

1. Стартовая форма frmForml

Макет стартовой формы приведен на рис. 8.1, с. 128.