Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Мария Твердова
0 / 0 / 0
Регистрация: 13.06.2017
Сообщений: 26
1

Исправить ошибку в VB

16.06.2017, 09:26. Просмотров 152. Ответов 4
Метки нет (Все метки)

Помогите исправить ошибку!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = InputBox("Введите первое число")
b = InputBox("Введите второе число")
If a > b Then
Print 1
Else
If b > a Then
Print 2
Else
If a = b Then
Print 0
End If
End If
End If
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2017, 09:26
Ответы с готовыми решениями:

Исправить ошибку For without Next
Выбор типа решетки в конструкции 1 Select Case tru(i) 2 Case 1 '...

Исправить ошибку в задачи VB
Помогите исправить ошибку, пожалуйста! С клавиатуры вводится одномерный массив,...

Исправить ошибку в коде
Помогите исправить ошибку. Расчет суммы вклада по истечении установленного...

исправить ошибку в макросе
Уважаемые программисты!помогите пожалуйста исправить ошибку в программном...

Исправить ошибку в проекте
Посмотрите пожалуйста задачку, в чем может быть ошибка. Ошибка выскакивает при...

4
vice4
28 / 28 / 4
Регистрация: 07.06.2017
Сообщений: 161
16.06.2017, 09:40 2
Что Вы хотите исправить - программа отрабатывает заложенный в нее алгоритм.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
    Dim a As Integer, b As Integer
    a = InputBox("Введите первое число")
    b = InputBox("Введите второе число")
    If a > b Then
        Print 1
    Else
        If b > a Then
            Print 2
        Else
            If a = b Then
                Print 0
            End If
        End If
    End If
End Sub
0
Мария Твердова
0 / 0 / 0
Регистрация: 13.06.2017
Сообщений: 26
16.06.2017, 10:03  [ТС] 3
Цитата Сообщение от vice4 Посмотреть сообщение
Что Вы хотите исправить - программа отрабатывает заложенный в нее алгоритм.
Ой я перепутала задачку) Вот эта
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("Введите первое число")
b = InputBox("Введите второе число")
c = InputBox("Введите третье число")
If a = b = c Then
Print 3
End If
If a = b Or a = c Or b = c Then
Print 2
End If
If a <> b <> c Then
Print 0
End If
End Sub
0
vice4
28 / 28 / 4
Регистрация: 07.06.2017
Сообщений: 161
16.06.2017, 10:28 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
    Dim a As Integer, b As Integer, c As Integer
    a = InputBox("Введите первое число")
    b = InputBox("Введите второе число")
    c = InputBox("Введите третье число")
    If a = b And b = c Then
        Print 3
    Else
        If a = b Or a = c Or b = c Then
            Print 2
        Else
            Print 0
        End If
    End If
End Sub
1
_shark
147 / 151 / 25
Регистрация: 11.10.2016
Сообщений: 500
16.06.2017, 17:17 5
еще такой вариант:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, v As Integer
    a = InputBox("Введите первое число")
    b = InputBox("Введите второе число")
    c = InputBox("Введите третье число")
 
    v = 0
    If (a = b) Or (a = c) Then v = 1
    If b = c Then v = v + 1
    If v <> 0 then v = v + 1
    Print v
End Sub
0
16.06.2017, 17:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2017, 17:17

Не могу исправить ошибку
Код удален Выделяет мне вот ети строки Private Declare Function CopyFile Lib...

Помогите исправить ошибку
Dim x As Integer Dim i As Integer Dim n As Integer Private Sub...

Помогите исправить ошибку в коде
Dobroi no4i vsem, rebiata pleese pomogite...4to nado ispravit??u menea ne idet...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru