Контроль введенных данных в InputBox - VB

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

Пишу программу в бейсике. Мне нужно чтобы при вводе правильного ответа выводилось "Верно", а неправильного "Неверно". А у меня ВСЕГДА программа выводит что ответ верный... Где ошибка?

                    Листинг программы
                
Private Sub Command1_Click()
B = Val(InputBox("Введи ответ"))
A = Земля
If A = B Then Label4.Caption = "Верно"
If A <> B Then Label4.Caption = "Неверно"
End Sub

Решение задачи: «Контроль введенных данных в InputBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
B = InputBox("Введи ответ")
A = "Земля"
If A = B Then
Label4.Caption = "Верно"
Else
 Label4.Caption = "Неверно"
End If

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

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

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

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

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