что не так? Visual basic (см внутри)

Question

как убрать эти ошибки и что не так прописано? программа для вычисления по формуле, предусмотрев, чтобы не было 0 в знаменателе

код: Private Sub Command1_Click() Dim x, y As Single x = chislo.Text If x = 2 Then result.Caption = "нельзя делить на 0" If chislo.Text = Empty Then result.Caption = "введи число" y = (x - 1) / (x - 2) result.Caption = y End Sub при попытке закрыть if (end if) пишет "end if without block if" смысл во второй проверке - преподаватель, грозный и беспощадный

Виктория Окшина · Accepted Answer

Все дело в том, что после проверки все равно идет попытка выполнить действие. 
Соответственно происходит ошибка. 
Если пользователь ввел неправильные данные, 
надо покидать процедуру не выполняя никаких математических расчетов. 
 
Private Sub Command1_Click() 
Dim x As Single 
 
x = Val(chislo.Text) 
If x = 2 Then 
result.Captiоn = "Нельзя делить на 0" 
Exit Sub 
End If 
 
' В принципе, вся эта конструкция теряет смысл, 
' так как ранее использована функция Val() 
' Даже если юзер введет "фывапро" или ничего не введет, то 
' функция вернет "0". 
' Это все можно заремарить или просто удалить 
If chislo.Text = Empty Then 
result.Captiоn = "Введи число" 
Exit Sub 
End If 
 
result.Captiоn = (x - 1) / (x - 2) 
 
End Sub 
 
Немного "пригладим код" и получим 
 
Private Sub Command1_Click() 
Dim x As Single 
 
x = Val(chislo.Text) 
If x = 2 Then 
result.Captiоn = "Нельзя делить на 0" 
Else 
result.Captiоn = (x - 1) / (x - 2) 
End If 
 
End Sub 
 
P.S. Скриншотики, это очень хорошо, но они такие мелкие, что без микроскопа не рассмотреть...

Azamjon · Answer

Вероятно, вы пытаетесь присвоить числовой переменной текстовое значение.

Людмила · Answer

Деление на 0. О да!

Нуфер Евгений · Answer

надо сделать так, чтобы с клавиатуры нельзя было нажать 2, это реально. иначе программа делит на 0

Лёха Гайван · Answer

плохо виден код. вроде иф не закрыт, поэтому ругается.

Руслан · Answer

по скольку видно иф не закрыт а так лучше написать было код и разобрались бы быстрее

Елена Добрынина · Answer

Подряд идут два IF вот редактор и "запутался". Лучше использовать полную конструкцию, даже если она в одну строку получится. 
Ну а вообще, смотрим логику: если ввели 2, то что имеем? Выводим в result "нельзя делить на 0" и благополучно дальше считаем.. . Надо сделать так: 
If x = 2 Then 
 result.Captiоn = "нельзя делить на 0" 
 exit sub 
end if 
Кстати, а какой смысл во второй проверке? Ну не ввел человек число. Может, он решил, что х=0. Математически это возможно...