Почему не роботает.? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д