Даны две переменные, если значения равны, то присвоить каждому значению ноль - VB

Формулировка задачи:

Задача следующая. Даны две переменные, если значения равын, то присвоить каждому значению ноль, а если не равны, то сложить их и присвоить.

Private Sub CommandButton1_Click() 
Dim x As Integer 
Dim z As Integer 
If x <> z Then 
F = x + z 
TextBox1.Text = F 
TextBox2.Text = F 
ElseIf x = z Then 
TextBox1.Text = 0 
TextBox2.Text = 0 
End If 
End Sub

PS Работает только приравнивание к нулям. Что делать?

Решение задачи: «Даны две переменные, если значения равны, то присвоить каждому значению ноль»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
    Dim x As Integer, z As Integer
    
       x = TextBox1.Text
       z = TextBox2.Text
       
    If x <> z Then
       x = x + z
       z = x
    ElseIf x = z Then
       x = 0
       z = 0
    End If
    
    TextBox1.Text = x
    TextBox2.Text = z
End Sub
                        

Оцени полезность:

5 голосов , оценка 3.4 из 5

Похожие ответы