Составить программу которая решает линейное неравенство - VB
Формулировка задачи:
Помогите составить программу которая решает линейное неравенство
Решение задачи: «Составить программу которая решает линейное неравенство»
textual
Листинг программы
Option Explicit ' ' © FelixMacintosh ' Public Function x$(Optional a, Optional b) Randomize Timer Const q = -10, w = 20, e = ",", r = "." While Not IsNumeric(a): a = InputBox("Введите a:= ", , Fix(q + Rnd * w)): Wend While Not IsNumeric(b): b = InputBox("Введите b:= ", , Fix(q + Rnd * w)): Wend On Error GoTo 2: x = -b / a GoSub 1: x = x & vbCrLf & "Проверка: " & CStr(a) & " * " & x & " + " & _ CStr(b) & " = " & Round(a * x + b, 2) Exit Function 1 Print x: CreateObject("SAPI.SpVoice").Speak "X result " & Replace(Round(x, 2), e, r): Return 2 Print Err.Description: CreateObject("SAPI.SpVoice").Speak Err.Description: x = "?" End Function Private Sub Form_Unload(Cancel As Integer) Cancel = MsgBox("x = " & x & vbCrLf & "Выйти ?", vbYesNo) <> vbYes End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д