Курсовая работа: Визуализация численных методов

3. Виды, формы

3.1 Начальная форма

3.2 Конечная форма

4. Программа для решения дифференциального уравнения в Visual Basic

Dim y(9) As Single

Dim YE(9) As Single

Dim YR(9) As Single

Dim YT(9) As Single

Dim l(9) As Single

Private x0 As Single

Private Function fun(a As Single, b As Single) As Single

f = (b + 2) / (a + 1)

fun = f

End Function

Private Sub Command1_Click()

x0 = Val(Text1.Text)

xk = Val(Text2.Text)

y0 = Val(Text3.Text)

h = Val(Text4.Text)

N = (xk - x0) / h

MSFlexGrid1.Rows = N + 2

MSFlexGrid1.TextMatrix(0, 0) = "x"

MSFlexGrid1.TextMatrix(0, 1) = "YE"

MSFlexGrid1.TextMatrix(0, 2) = "YR"