Private Sub Command1_Click()
n = InputBox("Введите число n!")
x = 2 * Cos(n + 4): Label7.Caption = CStr(x)
c = (2 * n + 1) ^ 2: Label8.Caption = CStr(c)
If 1 + Sin(n * x ^ c) = 0 Or Cos(c * x) = 0 Then MsgBox "Невозможно проверить условие вычисления Z!": End
If x ^ (-1.4) = (1 / Cos(c * x)) / (1 + Sin(n * x ^ c)) Then z = Sin(x * x + c) ^ (1 / 3) Else MsgBox "Невозможно вычислить Z по верхней формуле!"
If x + 0.5 > 0 And Cos(Log(x + 0.5)) <> 0 And Sin(Log(x + 0.5)) <> 0 And c <> 0 Then z = (Exp(x + c) + Log(Abs(21 * c)) / 2.303) / (Sin(Log(x + 0.5)) / Cos(Log(x + 0.5))) Else MsgBox "Невозможно вычислить Z!": End
Label9.Caption = CStr(z)
MsgBox "Результаты работы программы № 2.1" + vbCrLf + vbCrLf + "X=" + CStr(x) + vbCrLf + "C=" + CStr(c) + vbCrLf + "Z=" + CStr(z)
End Sub
Код программы действителен, если всегда будет значение при которых "Невозможно вычислить Z по верхней формуле!", но если ввести условие, при которых будет считаться по верхней формуле, программа продолжит вычисление и по нижней. Моя проблема заключается в том, что не могу правильно расставить Else и End If. Всегда выдает ошибку. Помогите, кто понял) Заранее благодарен!
Примечание:
Спасибо!
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.