Составители:
Рубрика:
152
Form2.Picture1.Print “Y1, Y2”
‘Конец процедуры, выполняемоц при нажатии на Command3 [ГРАФИК]
End Sub
‘Процедура, выполняемая при нажатии на Command1 [СБРОС]
Private Sub Command1_Click()
End
‘Конец процедуры, выполняемой при нажатии на Command1 [СБРОС]
End Sub
Form2
‘Процедура, выполняемая при нажатии на Command1 [ВОЗВРАТ]
Private Sub Command1_Click()
Form2.Hide
Form1.Show
End Sub
‘Конец процедуры, выполняемой при нажатии на Command1 [ВОЗВРАТ]
Module1
‘Описание исходных данных и массивов,
‘доступных из любой процедуры и формы
Public Nmin As Single, Nmax As Single
Public DN As Single, M As Single
Public R1(200) As Single, R2(200) As Single
Public Y1(200) As Single, Y2(200) As Single
Public N(200) As Integer
