Показать сообщение отдельно
Старый 23.10.2016, 15:17   #2 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Можно так...

Код:
Option Explicit
Dim x As Single, y As Single, z As Single

Private Sub cmdD_Click()
    x = Val(txtX)
    y = Val(txtY)
    z = Val(txtZ)
    If x + y > z And y + z > x And z + x > y Then
        label.Caption = "YES"
    Else
        label.Caption = "NO"
    End If
End Sub
Изображения
 
iks2 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070