Курсовая работа
«Создание проектов решения вычислительных задач на Visual Basic Вариант 24 с исходниками и пояснительной запиской»
- 13 страниц(ы)
- 712 просмотров
Автор: navip
Окно проекта 3
Задача №1 5
Задача №2 7
Задача №3 12
Задача №4 14
Список литературы 17
Для создания создания формы с краткой информацией о приложении (титульный лист) был использован стандартный шаблон проекта «Standart Exe»(Рисунок 1).
Рисунок 1 – титульный лист.
На главном окне приложения размещается меню, созданное с использованием кнопок «Command Button» (Рисунок 2).
Рисунок 2 – Главное окно приложения.
Задача №1 «Сумма ряда»
1.1 Постановка задачи
Вычислить значение суммы ряда S. Сравнить полученное значение с точным решением Y, вычислив абсолютную и относительную погрешности.
1.2 Схема алгоритма
Рисунок 3 – Схема алгоритма
1.3 Исходный текст программы
1.4 Экранная форма программы с примером решения задачи
Рисунок 4 – Экранная форма программы
Задача №2 «Массивы»
1.1 Постановка задачи
Дан двумерный массив (матрица) размером NxN.
1. Определить количество элементов, имеющих нечетные значения.
2. Найти произведение максимального элемента массива и заданного числа
L.
3. Найти произведение элементов под главной диагональю.
1.2 Схема алгоритма
Рисунок 5 – схема алгоритма
1.3 Исходный текст программы
1.4 Экранная форма программы с примером решения задачи
Рисунок 6 - Экранная форма программы
Для ввода значений переменных n (количество строк), m (количество столвцов), A_min и A_max) границы значений элементов массива, L (заданное число) используются текстовые поля (объект TextBox). Для ввода элементов массива (матрицы) использован генератор случайных чисел (Rnd). Для вывода элементов массива использовано окно списка (объект List).
Результаты решения задачи выводятся:
- Количество элементов имеющих нечетное значение (Text box);
- Произведение максимального элемента массива и заданного числа L (Text box);
- Произведение элементов под главной диагональю (Text box).
Задача №3 «Строки»
1.1 Постановка задачи
Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.
1.2 Схема алгоритма
Рисунок 7 – Схема алгоритма
1.3 Исходный текст программы
1.4 Экранная форма программы с примером решения задачи
Рисунок 8 – Экранная форма программы
Задача №4 «Графика»
1.1 Постановка задачи
Построить график функции Y=1/(x2-3*x+2) на отрезке [-8, 2]
1.2 Схема алгоритма
Рисунок 9 – Схема алгоритма
1.3 Исходный текст программы
1.4 Экранная форма программы с примером решения задачи
Рисунок 10 – Экранная форма программы
VERSION 5.00
Begin VB.Form Form3
Caption = "Маликов А.С., ЭМ-111, Вариант 25"
ClientHeight = 5010
ClientLeft = 4485
ClientTop = 2925
ClientWidth = 5100
LinkTopic = "Form3"
ScaleHeight = 5010
ScaleWidth = 5100
Begin VB.CommandButton Command1
Caption = "Вычислить"
Height = 495
Left = 480
TabIndex = 14
Top = 4320
Width = 3975
End
Begin VB.PictureBox Picture4
Height = 375
Left = 2880
ScaleHeight = 315
ScaleWidth = 1515
TabIndex = 9
Top = 3720
Width = 1575
End
Begin VB.PictureBox Picture3
Height = 375
Left = 2880
ScaleHeight = 315
ScaleWidth = 1515
TabIndex = 8
Top = 3240
Width = 1575
End
Begin VB.PictureBox Picture2
Height = 375
Left = 2880
ScaleHeight = 315
ScaleWidth = 1515
TabIndex = 7
Top = 2760
Width = 1575
End
Begin VB.PictureBox Picture1
Height = 375
Left = 2880
ScaleHeight = 315
ScaleWidth = 1515
TabIndex = 6
Top = 2280
Width = 1575
End
Begin VB.TextBox Text3
Height = 375
Left = 2880
TabIndex = 3
Top = 1440
Width = 1575
End
Begin VB.TextBox Text2
Height = 375
Left = 2880
TabIndex = 2
Top = 960
Width = 1575
End
Begin VB.TextBox Text1
Height = 375
Left = 2880
TabIndex = 0
Top = 480
Width = 1575
End
Begin VB.Label Label7
Caption = "Относительная погрешность"
Height = 375
Left = 480
TabIndex = 13
Top = 3720
Width = 2295
End
Begin VB.Label Label6
Caption = "Абсолютная погрешность"
Height = 375
Left = 480
TabIndex = 12
Top = 3240
Width = 2295
End
Begin VB.Label Label5
Caption = "Точное значение"
Height = 375
Left = 480
TabIndex = 11
Top = 2760
Width = 2295
End
Begin VB.Label Label4
Caption = "Сумма ряда"
Height = 375
Left = 480
TabIndex = 10
Top = 2280
Width = 2175
End
Begin VB.Label Label3
Caption = "Значение переменной q"
Height = 375
Left = 480
TabIndex = 5
Top = 1440
Width = 2175
End
Begin VB.Label Label2
Caption = "Значение переменной а"
Height = 375
Left = 480
TabIndex = 4
Top = 960
Width = 2055
End
Begin VB.Label Label1
Caption = "Число членов ряда"
Height = 375
Left = 480
TabIndex = 1
Top = 480
Width = 2175
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
n = Val(Text1)
a = Val(Text2)
q = Val(Text3)
s = 0
For k = 0 To n
s = s + a * q ^ k
Next
y = a / (1 - q)
z = y - s
d = z / y * 100
Picture1.Print Format(s, "00.00000")
Picture2.Print Format(y, "00.00000")
Picture3.Print Format(z, "00.00000")
Picture4.Print Format(d, "00.00000"); " %"
End Sub
VERSION 5.00
Begin VB.Form Form4
Caption = "Маликов А.С., ЭМ-111, Вариант 25"
ClientHeight = 6180
ClientLeft = 120
ClientTop = 450
ClientWidth = 9315
LinkTopic = "Form4"
ScaleHeight = 6180
ScaleWidth = 9315
StartUpPosition = 3 'Windows Default
Begin VB.ListBox List1
Height = 3765
ItemData = "задача 2.frx":0000
Left = 240
List = "задача 2.frx":0002
TabIndex = 18
Top = 2040
Width = 4815
End
Begin VB.CommandButton Command1
Caption = "Вычислить"
Height = 735
Left = 5280
TabIndex = 17
Top = 5160
Width = 3735
End
Begin VB.TextBox Text9
Height = 375
Left = 5280
TabIndex = 16
Top = 4560
Width = 3735
End
Begin VB.TextBox Text8
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6120
TabIndex = 14
Top = 3000
Width = 2775
End
Begin VB.TextBox Text7
Height = 285
Left = 5280
TabIndex = 12
Top = 2400
Width = 3615
End
Begin VB.Frame Frame1
BackColor = &H8000000E&
Caption = "Данные"
Height = 1575
Left = 240
TabIndex = 0
Top = 240
Width = 8895
Begin VB.TextBox Text5
Height = 375
Left = 6240
TabIndex = 10
Top = 960
Width = 495
End
Begin VB.TextBox Text4
Height = 375
Left = 4320
TabIndex = 8
Top = 960
Width = 495
End
Begin VB.TextBox Text3
Height = 375
Left = 3240
TabIndex = 6
Top = 960
Width = 495
End
Begin VB.TextBox Text2
Height = 375
Left = 5400
TabIndex = 4
Top = 360
Width = 735
End
Begin VB.TextBox Text1
Height = 405
Left = 2400
TabIndex = 1
Top = 360
Width = 735
End
Begin VB.Label Label5
BackColor = &H8000000E&
Caption = " L"
Height = 495
Left = 5880
TabIndex = 9
Top = 960
Width = 495
End
Begin VB.Label Label4
BackColor = &H8000000E&
Caption = "до"
Height = 255
Left = 3960
TabIndex = 7
Top = 960
Width = 495
End
Begin VB.Label Label3
BackColor = &H8000000E&
Caption = "Границы значений элементов от"
Height = 375
Left = 360
TabIndex = 5
Top = 960
Width = 2655
End
Begin VB.Label Label2
BackColor = &H8000000E&
Caption = "Количество столбцов"
Height = 255
Left = 3480
TabIndex = 3
Top = 360
Width = 1815
End
Begin VB.Label Label1
BackColor = &H8000000E&
Caption = "Количество строк"
Height = 255
Left = 480
TabIndex = 2
Top = 360
Width = 1575
End
End
Begin VB.Label Label8
Caption = "Произведение элементов под главной диагональю"
Height = 375
Left = 5280
TabIndex = 15
Top = 3960
Width = 3615
End
Begin VB.Label Label7
Caption = "Max * L ="
Height = 375
Left = 5280
TabIndex = 13
Top = 3120
Width = 735
End
Begin VB.Label Label6
Caption = "Количество нечетных элементов"
Height = 255
Left = 5280
TabIndex = 11
Top = 2040
Width = 3495
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim am(50, 50) As Integer
Private Sub Command1_Click()
List1.Clear
n = Val(Text1)
m = Val(Text2)
am_min = Val(Text3)
am_max = Val(Text4)
l = Val(Text5)
p = Val(Text6)
k = 0
q = 1
For i = 0 To n - 1
For j = 0 To m - 1
am(i, j) = am_min + Int(Rnd * (am_max - am_min))
stra = stra + Str(am(i, j))
Next
List1.AddItem stra
stra = ""
Next
List1.AddItem " "
For i = 0 To n - 1
For j = 0 To m - 1
If (am(i, j) / 2) <> Fix(am(i, j) / 2) Then k = k + 1
Next
Text7 = k
Next
Max = am(1, 1)
For i = 0 To n - 1
For j = 0 To m - 1
If am(i, j) > Max Then Max = am(i, j)
Next
Text8 = Max * l
Next
For i = 0 To n - 1
For j = 0 To m - 1
If i = j Then q = q * am(i, j)
Next
Text9 = q
Next
End Sub
VERSION 5.00
Begin VB.Form Form5
Caption = "Маликво А.С., ЭМ-111, Вариант 24"
ClientHeight = 1425
ClientLeft = 120
ClientTop = 450
ClientWidth = 9885
LinkTopic = "Form5"
ScaleHeight = 1425
ScaleWidth = 9885
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Вычислить"
Height = 375
Left = 4440
TabIndex = 4
Top = 720
Width = 5175
End
Begin VB.PictureBox Picture1
Height = 255
Left = 3600
ScaleHeight = 195
ScaleWidth = 555
TabIndex = 3
Top = 840
Width = 615
End
Begin VB.TextBox Text1
Height = 285
Left = 1320
TabIndex = 0
Top = 360
Width = 8295
End
Begin VB.Label Label2
Caption = "Количество элементов перед двоеточием"
Height = 255
Left = 120
TabIndex = 2
Top = 840
Width = 3255
End
Begin VB.Label Label1
Caption = "Строка"
Height = 255
Left = 120
TabIndex = 1
Top = 360
Width = 975
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim str1 As String
Dim retval
Private Sub Command1_Click()
Picture1.Cls
str1 = Text1
retval = Split(str1, ":")
Picture1.Print Len(retval(0))
End Sub
1. Ананьев А., Федоров А. Самоучитель Visual Basic 6.0. BHV-Санкт-Петербург, 2008 г. 624 стр.
2. Культин Н. Visual Basic. Освой на примерах. БХВ – Петербург 2008 г., 284 стр.
3. Лукин С.Н. Visual Basic. Самоучитель для начинающих. Диалог-МИФИ, 2008 г., 544 стр.
4. Минасов Н.С., Тархов С.В. Методические указания по выполнению курсовой работы по дисциплине Информатика «Создание проектов решения вычислительных задач на Visual Basic для студентов очно-заочного отделения», Уфа 2012
| Тема: | «Создание проектов решения вычислительных задач на Visual Basic Вариант 24 с исходниками и пояснительной запиской» | |
| Раздел: | Информатика | |
| Тип: | Курсовая работа | |
| Страниц: | 13 | |
| Цена: | 900 руб. |
Закажите авторскую работу по вашему заданию.
- Цены ниже рыночных
- Удобный личный кабинет
- Необходимый уровень антиплагиата
- Прямое общение с исполнителем вашей работы
- Бесплатные доработки и консультации
- Минимальные сроки выполнения
Мы уже помогли 24535 студентам
Средний балл наших работ
- 4.89 из 5
написания вашей работы
Не подошла эта работа?
Воспользуйтесь поиском по базе из более чем 40000 работ
-
Дипломная работа:
Сравнительные особенности лексики британских качественных и популярных газет в системе обучения
66 страниц(ы) 2019 338
-
Дипломная работа:
Особенности связной речи у детей старшего дошкольного возраста с общим недоразвитием речи iii уровня
81 страниц(ы) 2022 360
-
Дипломная работа:
Особенности перевода детской литературы с русского языка на английский
52 страниц(ы) 2015 2465
-
ВКР:
Образ главного героя в повести «таң җиле» ф.садриева
66 страниц(ы) 2022 768
-
Дипломная работа:
56 страниц(ы) 2019 396
-
Дипломная работа:
Влияние нефтедобывающей промышленности на окружающую среду
101 страниц(ы) 2017 458
-
Дипломная работа:
Разработка мобильного приложения для мониторинга сервера
60 страниц(ы) 2022 277
-
Дипломная работа:
46 страниц(ы) 2022 315
-
Дипломная работа:
ЕГЭ как институт образовательного права
74 страниц(ы) 2014 2030
-
ВКР:
Татар телендә тәм белдерүче сыйфатлар
58 страниц(ы) 2022 279
682 автора
помогают студентам
23 задания
за последние сутки
10 минут
среднее время отклика
-
Дипломная работа:
Уровни моделирования содержания текстовых задач на движение при изучении курса математики начальной школы
73 страниц(ы) -
Курсовая работа:
Бухгалтерский учет расчетов с поставщиками и подрядчиками в ооо
64 страниц(ы) -
Дипломная работа:
Изучение текстовых задач на уроках математики в начальных классах
87 страниц(ы) -
ВКР:
Обучение решению нестандартных задач по алгебре
94 страниц(ы) -
Дипломная работа:
Решение краевой задачи для одного дифференциального уравнения эллиптического типа
32 страниц(ы)
