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

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


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

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

10   голосов , оценка 3.6 из 5
Похожие ответы