Контрольная работа: Паутинообразная модель фирмы

False

Команднаякнопка 3 Name Caption CmdExit Выход

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

Private Sub cmdExit_Click()

End

End Sub

Private Sub cmdGrafic_Click()

Line (600, 3500)-(6600, 3500)

Line (600, 3500)-(600, 1500)

My = 1000

X1 = 600: Y1 = 3500 - P(1) * My

Dx = 100

S = 0: For j = 1 To Tk: S = S + P(j): Next

Pcp = S / Tk

CurrentX = 500: CurrentY = 1500: Print "P"

CurrentX = 6500: CurrentY = 3500: Print "T"

CurrentX = 650: CurrentY = 3300 - Pcp * My

Print "Pcp"

Xk = 600 + Tk * Dx: Ycp = 3500 - Pcp * My

'Form1.ForeColor = 98765

Line (X1, Ycp)-(Xk, Ycp)

For j = 1 To Tk - 1

X2 = X1 + Dx: Y2 = 3500 - P(j) * My

Line (X1, Y1)-(X2, Y2)

X1 = X2: Y1 = Y2

Next j

End Sub

Private Sub cmdRashet_Click()

A = Val(Text1): B = Val(Text2): C = Val(Text3)

E = Val(Text4): Ro = Val(Text5): Su = Val(Text6)