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