Очень срочно) нужно составить программу на языке Basic. Помогите, пожалуйста) задания в...

Вот сам программный код. Назначишь его кнопке на форме.
Dim e As Double
Dim l As Double
Dim dn As Double
Dim dv As Double
Dim c As Double
Dim otv As String
e = 4.7
dn = 0.5
dv = 0.4
For l = 1 To 3
c = (0.241 * e * l + 0.08 * dn) / Log(dn / dv) * Log(10)
otv = otv & Chr(13) & "l=" & l & " C=" & c
Next l
MsgBox otv

Dim x As Double
Dim y As Double
x = InputBox("Введите х")
If x < 0 Then
y = -x
Else:
If x > 1 Then
  y = x ^ 2 - Sin(pi * x ^ 2)
   Else: y = x ^ 2 - x
   End If
End If
MsgBox y

Очень срочно) нужно составить программу ** языке Basic. Помогите, пожалуйста) задания в...