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

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

Помогите исправить ошибку!

                    Листинг программы
                
 
                        
                          
                    
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

Решение задачи: «Исправить ошибку в VB»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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