https://pastein.ru/t/0T

  скопируйте уникальную ссылку для отправки

Загрузка данных


v = Val(TxtZv.Text) :	p = Val(TxtZp.Text):	m = Val(TxtZm.Text)
'переведем массу в кг
If nm = 0 Then m = m / 1000000 :	If nm = 1 Then m = m / 1000
'переведем объем в куб дм
If nv = 0 Then v = v / 1000000 :	If nv = 1 Then v = v / 1000
Select Case s
Case 1 'определяем массу
    m = p * v
Select Case nm
        Case 0 'мг
            m = m * 1000000
        Case 1 'г
            m = m * 1000
        End Select
    TxtZm.Text = m
Case 2  'определяем объем
    v = m / p
Select Case nv
        Case 0 'куб мм
        v = v * 1000000
        Case 1 'куб см
        v = v * 1000
    End Select
TxtZv.Text = v
Case 3 'определяем плотность
     p = m / v
     TxtZp.Text = p
End Select