Составить программу которая решает линейное неравенство - 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