Автор Тема: Помогите с VB.  (Прочитано 3440 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Spanchebob

  • Новичок
  • *
  • Сообщений: 1
    • Просмотр профиля
Помогите с VB.
« : 14 Ноября 2010, 15:08:22 »
Условие задачи:
1.W1 = yx,      W2=  √y+1 - +1 тоже под корнем            , если y ≤ 0
  W1 = 0,      ввести W2                                       , если 0 < y ≤ 2c
  W1 = Lgy,      W2 = Lny                                       , если y > 2c

Объясните пожалуйста как решать, заранее спасибо.

Private Sub Command1_Click()
Dim x As Single, y As Single, c As Single
Dim W1 As Single, W2 As Single
y = Val(Text1.Text)
c = Val(Text2.Text)
If y > 2 * c Then
W1 = Log(y) / Log(10)
W2 = Log(y)
Else
If y <= 0 Then
W1 = y ^ x
W2 = Sqr(y + 1)
End If
Print "W1=" & Format(W1, "0.00") & " W2=" & Format(W2, "0.00")
End If
End Sub

Вот алгоритм, укажите ошибки если возможно, что где исправить, а лучше чтобы я понял как это делать, если не сложно.
« Последнее редактирование: 14 Ноября 2010, 15:11:25 от Spanchebob »