Вычислить значение функции - VB (61973)
Формулировка задачи:
Добрый вечер. Помогите студенту-новачку написать программу. Только начали изучать язык. Много чего непонимаю. Буду благодарен за помощь!!!
Решение задачи: «Вычислить значение функции»
textual
Листинг программы
- Option Explicit
- Dim W As Double, Z As Double
- Private Sub Command1_Click()
- Z = InputBox("Z =", , -0.8)
- Select Case Z
- Case Is > 0
- W = Z ^ 3
- Case Is >= -2
- W = Z ^ 5 - 4 * Z
- Case Else
- W = Z + Sin(Z)
- End Select
- MsgBox (" W =" & W)
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
