Код выполнения условий согласно блок-схеме - VB

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

Помогите,я написала программный код к схеме...а в итоге получается какая-то каша!Подскажите,кто может..
Dim a As Single, b As Single, c As Single, d As Single
Dim Z1 As Single, Z2 As Single, Z3 As Single, Z4 As Single
Private Sub Command1_Click()
  a = Val(InputBox("Введите а", "Ввод"))
  b = Val(InputBox("Введите b", "Ввод"))
  c = Val(InputBox("Введите c", "Ввод"))
  d = Val(InputBox("Введите d", "Ввод"))
If a > b Then
 If c < d Then
 Z1 = e ^ 4.6 - 3 * lg * (c - c * d)
 Text5 = "Z1=" & Z1
 Else
 Z3 = (Cos(cd) ^ 2) / (a * (b - c * d))
 Text7 = "Z3=" & Z3
End If
Else
 If c > d Then
 Z4 = 2.5 + b * d
 Text8 = "Z4=" & Z4
 Else
 Z2 = ((b - 1) * a * Sqr(Cos(c * a))) ^ 1 / 4
 Text6 = "Z2=" & Z2
End If
End If
End Sub

Код к задаче: «Код выполнения условий согласно блок-схеме - VB»

textual
Private Sub Form_Load()
    Dim a As Double, b As Double, c As Double, d As Double, z As Double
    a = CDbl(InputBox("Введите а", "Ввод"))
    b = CDbl(InputBox("Введите b", "Ввод"))
    c = CDbl(InputBox("Введите c", "Ввод"))
    d = CDbl(InputBox("Введите d", "Ввод"))
    If a > b Then
        If c < d Then
            z = e ^ 4.6 - 3 * Log(c - c * d)
        Else
            z = (Cos(c * d) ^ 2) / (a * (b - c * d))
        End If
    Else
        If c > d Then
            z = 2.5 + b * d
        Else
            z = ((b - 1) * a * Sqr(Cos(a * c))) ^ (1 / 4)
        End If
    End If
    MsgBox "Ответ z= " & z
End Sub

11   голосов, оценка 4.545 из 5


СОХРАНИТЬ ССЫЛКУ