посмотрите!

[Annaa]

1. Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае:числа a и b выражают длины катетов одного прямоугольного треугольника, с и d — другого. Эти треугольники являются подобными.
Вот сделанная :Public Sub ПодобныеТреугольники()
Dim a1 As Single, b1 As Single, c1 As Single, a2 As Single, b2 As Single, c2 As Single
a1 = InputBox("Введите первый катет первого треугольника")
b1 = InputBox("Введите второй катет первого треугольника")
c1 = Sqr(a1 ^ 2 + b1 ^ 2)
a2 = InputBox("Введите первый катет второго треугольника")
b2 = InputBox("Введите второй катет второго треугольника")
c2 = Sqr(a2 ^ 2 + b2 ^ 2)
If a1 / c1 = a2 / c2 Then
MsgBox ("треугольники подобны")
Else
MsgBox ("Треугольники не являются подобными")
End If
End Sub

помогите внедрить в неё переменную типа Boolean ! и убрать условие

[Teslenko_EA]

Здравствуйте Annaa.
"..и убрать условие.." - не возможно, т.к. без проверки нельзя выполнить ветвление.

Код: Выделить всё

'If a1 / c1 = a2 / c2 Then
Dim b as Boolean, s$
b = (a1 / c1 = a2 / c2)
s =  Iif(b,"треугольники подобны", "Треугольники не являются подобными")
MsgBox s
...

Евгений.
P.S. "..помогите внедрить.." - зов о помощи в пустоту, для увеличения вероятности получения помощи не забывайте обращаться к участникам форума которым адресуете вопрос, не знаете как - можете просто поздороваться.