Разработка приложения для расчетов ОМД с использованием массивов данных, массивов элементов управления и циклических конструкций различного вида, страница 2

End If

q_m(i) = Q_b(i) / M_Aver

D_m(i) = (4 * q_m(i) / Pi) ^ 0.5:

Label6(i).Caption = Format(D_b(i), "#.##")

Label7(i).Caption = Format(D_m(i), "#.##")

Label8(i).Caption = Format(Q_b(i), "#.##")

Label9(i).Caption = Format(q_m(i), "#.##")

Label10(i).Caption = Format(M_s(i), "#.##")

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

For i = 1 To 15

List1.AddItem i

Next i

End Sub

Private Sub List1_Click()

List1.Enabled = False

n = List1.ListIndex

For i = 1 To n

'Копирование поля номера перехода

Load Label5(i)

Label5(i).Top = Label5(i - 1).Top + Label5(i - 1).Height + 16

Label5(i).Left = Label5(i - 1).Left

Label5(i).Visible = True

'Копирование поля диаметра до перехода

Load Label6(i)

Label6(i).Top = Label6(i - 1).Top + Label6(i - 1).Height + 16

Label6(i).Left = Label6(i - 1).Left

Label6(i).Visible = True

'Копирование поля диаметра после перехода

Load Label7(i)

Label7(i).Top = Label7(i - 1).Top + Label7(i - 1).Height + 16

Label7(i).Left = Label7(i - 1).Left

Label7(i).Visible = True

'Копирование поля площади до перехода

Load Label8(i)

Label8(i).Top = Label8(i - 1).Top + Label8(i - 1).Height + 16

Label8(i).Left = Label8(i - 1).Left

Label8(i).Visible = True

'Копирование поля площади после перехода

Load Label9(i)

Label9(i).Top = Label9(i - 1).Top + Label9(i - 1).Height + 16

Label9(i).Left = Label9(i - 1).Left

Label9(i).Visible = True

'Копирование поля коэффициента суммарной вытяжки

Load Label10(i)

Label10(i).Top = Label10(i - 1).Top + Label10(i - 1).Height + 16

Label10(i).Left = Label10(i - 1).Left

Label10(i).Visible = True

'Увеличение высоты окна и сдвиг кнопок

Command1.Top = Command1.Top + Label5(0).Height + 15

Command2.Top = Command2.Top + Label5(0).Height + 15

Form1.Height = Form1.Height + Label5(0).Height + 15

Next i

End Sub