Почему не роботает.? - VB

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

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

Помогите! Вопрос жизни и смерти(
зарание спасибо, очень нужно

Решение задачи: «Почему не роботает.?»

textual
Листинг программы
Dim z
Sub Prl3()
 z = 0.2
 x = -3
 y = -2
 Max = a(x)
 Min = b(y)
 Do While (x + 0.13 <= 4)
 x = x + 0.13
 If a(x) > Max Then Max = a(x)
 Loop
 Do While (y + 0.17 <= 2)
 y = y + 0.17
 If b(y) < Min Then Min = b(y)
 Loop
 MsgBox (Max + Min)
  'msgBox (Max & "   " & Min)
 End Sub
 Function a(x)
 a = ((1 + x) * (x + z) * (x ^ 2 + 4)) / (Exp(-x - z) + (1 / (x ^ 2 + 4)))
 End Function
 Function b(y)
 b = (y + Cos(y - 2)) / (y ^ 4 / (2 + (Sin(z)) ^ 2))
 End Function
 
Private Sub Command1_Click()
Prl3
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 3.833 из 5