Помогите решить вторую задачу по информатике , с помощью Бейсика

Question

Помогите решить вторую задачу по информатике , с помощью Бейсика

---

Comments

Если бы я знал как решать , я бы тогда не просил

---

Все попытки решить без успешны

---

Нужно написать программу к этой задаче , составить флажок и каждое действие расписать , особенно нужен флажок , как его составить

---

Нужно написать программу в письменном виде Private Sub CommandButton1_Click() Dim a, b, x As SingleDim s As Stringa = TextBox1.Text

---

b = TextBox2.TextIf (a = 0) And (b <> 0) Then s = "нет решения"If (a = 0) And (b = 0) Then s = "бесконечное множество решений" If a <> 0 Then s = "х =" + (Str(Round(-b / a, 3)))Label2.Caption = sEnd Sub. Вот так надо , только для второй задачи на картинке

Answer 1

Во вложении файл формата MS Excel 2003

---

Скачать вложение Excel (XLS)