Решение линейных уравнений с средствами Visual Basic - VB
Формулировка задачи:
Помогите пожалуйста, сделать на Visual Basic решение линейных уравнений (на графике определить приближенное решение системы уравнений и уточнить решение аналитически в функции)
Если есть добрые люди помогите. Век благодарен буду
Решение задачи: «Решение линейных уравнений с средствами Visual Basic»
textual
Листинг программы
Option Explicit Dim a1!, b1!, c1!, a2!, b2!, c2! Dim X!, Y!, y1!, y2! Private Sub cmdD_Click() a1 = Val(txt1.Text) b1 = Val(txt2.Text) c1 = Val(txt3.Text) a2 = Val(txt4.Text) b2 = Val(txt5.Text) c2 = Val(txt6.Text) pic.Scale (-10, 10)-(10, -10) pic.DrawWidth = 3 pic.Line (0, -10)-(0, 10) pic.Line (-10, 0)-(10, 0) pic.ForeColor = vbRed y1 = (c1 - a1 * -10) / b1 y2 = (c1 - a1 * 10) / b1 pic.Line (-10, y1)-(10, y2) y1 = (c2 - a2 * -10) / b2 y2 = (c2 - a2 * 10) / b2 pic.Line (-10, y1)-(10, y2) End Sub Private Sub pic_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) pic.ToolTipText = "X =" + Str(X) + " Y =" + Str(Y) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д