0 / 0 / 0
Регистрация: 11.04.2012
Сообщений: 12
1

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

06.12.2012, 20:23. Показов 1177. Ответов 2

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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
Работает только приравнивание к нулям. Что делать?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2012, 20:23
Ответы с готовыми решениями:

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимал
Пожалуйста, помогите сделать! (visual basic) Даны две переменные целого типа: A и B. Если их...

Даны две переменные/ Если их значения не равны, присвоить каждой большее из этих значений
Даны две переменные целого типа: A и В. Если их значения не равны, то присвоить каждой переменной...

Даны две переменные. Если их значения не равны, то присвоить каждой большее из этих значений
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной...

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из э
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной...

2
es geht mir gut
11270 / 4752 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
06.12.2012, 20:35 2
присвоить им какие то значения

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
0
0 / 0 / 0
Регистрация: 11.04.2012
Сообщений: 12
06.12.2012, 20:43  [ТС] 3
Спасибо большое) Забыл присвоить)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2012, 20:43
Помогаю со студенческими работами здесь

Даны две переменные целого типа: А и В. Если их значения не равны, то присвоить каждой переменной сумму этих з
Даны две переменные целого типа: А и В. Если их значения не равны, то присвоить каждой переменной...

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной...

Если значения переменных не равны, то присвоить им максимальное из значений, иначе присвоить им ноль
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной...

Даны две переменные A и B. Если их значения различны, то присвоить каждой переменной наименьшее из этих значений
Даны две переменные целого типа A и B. Если их значения различны, то присвоить каждой переменной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru