Страницы: 1
RSS
Вычисление системы уравнений в VBA.
 
не получается решить. Помогите пожалуйста!
 
Где файл, в котором не получается?
 
я его не начинала делать, потому что не поняла.
 
Так начните...
 
так я и обратилась сюда за помощью, чтобы мне хотя бы начали.
 
Вы обратились, чтобы сделали вместо Вас. А здесь помогают...
 
вот как у меня получилось и всё равно ошибок много выдаёт.
Изменено: ekaterina3belova - 26.05.2013 21:36:08
 
Sub pr1() - аргументы нужно помещать в скобки (или вообще не писать :))
ElseIf - слитно
MsgBox - слитно
 
спасибо. но он выдаёт ошибку в As Single
 
Поправили как vikttur, советовал?
Код
Sub pr1()
Dim X, y
X = Val(InputBox("x="))
If X > 7.5 Then
y = e ^ 3 * X / a
ElseIf X <= 6.5 Then
y = lg * X
Else
y = 2 ^ X
End If
MsgBox "y =" & y
End Sub
Согласие есть продукт при полном непротивлении сторон
 
X >= 6.5

Проверок бы навесить для X, для a:
Код
    If X < 6 Or X > 8 Then
        MsgBox "Низзя!!!"
        Exit Sub
    End If
Страницы: 1
Читают тему
Наверх