Подсчитать среди трех чисел а, b и с количество пар взаимно противоположных чисел - VBA

@nastenaky · Регистрация: 20.09.2016

Author24 — интернет-сервис помощи студентам

Напишите в среде Excel макрос, который среди трех чисел а, b и с должен подсчитывать:Количество пар взаимно противоположных чисел. Сразу оговорюсь, что я чайник

Visual Basic

Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
Dim k As Integer
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
k = 0
If a>0 or a<0  Then k = k + 1
If b>0 or b<0 Then k = k + 1
If c>0 or c<0  Then k = k + 1
Label4.Caption = "Количество пар взаимно противоположных чисел. РАВНО:" & k
End Sub

Пытаюсь использовать этот макрос выдает ошибку

~~Shersh~~ · 04.10.2016, 15:54

Visual Basic

1
2
3

If a=-b Then k = k + 1
If a=-c Then k = k + 1
If c=-b Then k = k + 1

@mihey1993 · 05.10.2016, 14:46

Еще, как вариант, можно так:

Visual Basic

1	k = -(a + b = 0) - (a + c = 0) - (b + c = 0)

	05.10.2016, 14:46

Подсчитать среди трех чисел а, b и с количество пар взаимно противоположных чисел - VBA

Решение