[
Private Sub cmdTinh_Click()
If txtT < (txtDD / 6) Then
txtP = 2 * txtT * txtS * txtE * txtW / (txtDD - 2 * txtT * txtY)
Else
txtP = 2 * txtT * txtS * txtE * txtW / (txtd + 2 * txtC + 2 * txtT * (1 - txtY))
End If
End Sub
]
Mọi người xem giúp mìnhđoạn code này với...