Написать программу и вычислить в Visual Basic - VB

Узнай цену своей работы

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

Написать программу и вычислить: Значение X выдать с клавиатуры. c=1,2; q=7.05 Если Если X=1,2

Решение задачи: «Написать программу и вычислить в Visual Basic»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim x, c, q, lnq, R, DI As Double
x = 1.2
c = 1.2
q = 7.05
lnq = 1.95302761682418
x = Val(Replace(InputBox("Введите х", "Ввод данных", 1.2), ",", "."))
If R = q * (1 + x) ^ 0.5 And R = (c + (lnq) / x) Then
DI = R ^ 3 - (c / (3 * q)) ^ 0.5
MsgBox ("Значение функции = " + Str(DI))
End If
End Sub

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

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