4Листинг программы

Form1.

Первоначальные переменные:

Public a As Single, e As Single, b As Single, d As Single

Public Function f(x) As Single

f = 0.35 * x - 3.8 + 3 * Sin(Sqr(x))

End Function

Public Function fn(x) As Single

fn = (3.8 - 3 * Sin(Sqr(x))) / 0.35

End Function

Для решение уравнения:

Private Sub Решение_Click()

Dim x0 As Double

Dim y As Double

Dim x As Double

Dim z As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

e = Val(Text3.Text)

x0 = a

Do

y = fn(x0)

z = Abs(y – x0)

x0 = y

Loop Until z <= e

Text5.Text = y

End Sub

Для создания меню:

Справка->О программе

Private Sub Программа_Click()

MsgBox "Решение нелинейного уравнения и построение графика функций f = 0.35 * x -3.8 + 3*Sin(Sqr(x)). Разработчик Акчурин А.А."

End Sub

График

Private Sub График_Click()

Form1.Hide

Form2.Show

End Sub

Выход

Private Sub Выход_Click()

Form1.Hide

End Sub

Form2.

Для построение графика:

Private Sub График_Click()

Dim x As Single

Dim y As Single

Dim bytI As Integer

Picture1.Scale (-1, 3)-(4, -3)

Picture1.Line (-1, 0)-(4, 0)

For bytI = -3 To 3

Picture1.PSet (bytI, 0)

Picture1.Print bytI;

Next bytI

Picture1.Line (0, 3)-(0, -3)

For bytI = -9 To 9

Picture1.PSet (0, bytI)

Picture1.Print bytI;

Next bytI

Picture1.Line (-1, 0)-(4, 0)

Picture1.Line (0, 3)-(0, -3)

For x = 2 To 3 Step 0.01

y = 0.35 * x - 3.8 + 3 * Sin(Sqr(x))

Picture1.PSet (x, y), vbRed

Next

End Sub

Для создания меню:

Вернуться

Private Sub Вернуться_Click()

Form2.Hide

Form1.Show

End Sub

Выход

Private Sub Выход_Click()

Form2.Hide

End Sub

5Заключение

В ходе работы с Visual Basic, я приобрел необходимые знания в информатике, получил практические навыки работы на персональном компьютере и разработке пользовательских приложений с использованием языков программирования высокого уровня и современных компьютерных технологий обработки информации, а также навыков в составлении текстовой документации.

6Список литературы

1. “Численные методы” Бахвалов Н.С.-630с.-М: 1975

2. “Visual Basic 6.0. Учебный курс.” С.Браун.-353с.-Питер:2007

3. “Линейная алгебра” Ильин В. А., Позняк Э. Г.-296с. - М. Наука. Физматлит, 1999

4. “Visual Basic .NET. Справочник программиста” Дэн Рамел.

5. Тархов С. В. Основы программирования в среде разработки приложений Microsoft Visual Basic 6.0. –Уфа: каф. Информатики УГАТУ, 2003.

6. Выгодский М. Я. Справочник по высшей математике C. 478-482. –М.: НАУКА, 1973.

7. Дьяконов В. Maple 7 Учебный курс -666с. –Спб: ПИТЕР, 2002.

8. Франк, Шульц, Титц. Справочник школьника и студента Математика. –М: ДРОФА, 1999