" & _
" Исходные данные определяются путем обращения к датчику случайных чисел. Задание:" & vbCrLf & _
" а. Для любого ресурса определить среднее значение его потребления." & vbCrLf & _
" б. Для любого предприятия определить ресурс наибольшего потребления."
End Sub
При выполнении форма выглядит так:
Задание № 5. Процедуры и функции Вариант 7
Условие:
Задача 5.1
а. Составить процедуру нахождения максимального (первого, если их несколько) значения элемента массива В (К) и его номера (К — заданное число).
b. Используя процедуру найти максимальные значения и их номера во 2-ой и 4-й строках массива Y (6,8).
Форма в режиме конструктора выглядит следующим образом:
Элементы экранной формы и их свойства:
Form Name=Form2
Caption="Вариант 7, Задание 5.1″ Label Name=Label1
BackColor=&H00FFFFFF& Label Name= Label2 Label Name= Label3 MSFlexGrid Name=fg1 CommandButton Name=Command1
Caption="Выполнить" CommandButton Name= Command3
Caption="Задание 5.2″ CommandButton Name= Command2
Caption="Выход"
Исходный код формы:
Private Sub Command1_Click ()
Dim data (6, 8) As Integer 'основной массив данных
Dim tmp2(8) As Integer 'массив для передачи в процедуру
Dim tmp4(8) As Integer
fg1.Cols = 9
fg1.Rows = 7
' заполняем массив и таблицу
For i = 1 To 6
For j = 1 To 8
data (i — 1, j — 1) = Int (Rnd () * 50)
fg1.TextMatrix (i, j) = data (i — 1, j — 1)
Next j
Next i
'заполняем массивы
For i = 0 To 8
tmp2(i) = data (1, i)
tmp4(i) = data (3, i)
Next i
' вызываем процедуры
MaxElem tmp2, 2
MaxElem tmp4, 4
End Sub
Private Sub Command2_Click ()
End
End Sub
Private Sub Command3_Click ()
Me.Hide
Form1.Show
End Sub
Private Sub Form_Load ()
Label1.Caption = «А. Составить процедуру нахождения максимального (первого, если «& _
" их несколько) значения элемента массива В (К) и его номера (К — заданное число)." & vbCrLf & _
" В. Используя процедуру найти максимальные значения и их номера во 2-ой и" & _
" 4-й строках массива Y (6,8)."
End Sub
Private Sub Form_Unload (Cancel As Integer)
End
End Sub
Private Sub MaxElem (a () As Integer, ind As Byte)
Dim max As Integer
Dim index As Integer
' перебираем весь массив
For i = 0 To UBound (a)
If a (i) > max Then 'найдя наибольшее значение на текущий момент
max = a (i) 'запоминаем его
index = i 'и индекс его положения
End If
Next i
'выводим результат на форму
If ind = 2 Then
Label2.Caption = «Во 2-й строке максимальное значение в «& index + 1 & «столбце = «& max
ElseIf ind = 4 Then
Label3.Caption = «В 4-й строке максимальное значение в «& index + 1 & «столбце = «& max
End If
End Sub
При выполнении форма выглядит так:
Задача 5.2
Условие А. Составить функцию для вычисления
Y = 1 + 1/Зх + 2/Зх2 + 1/5×3 + 4/5×4 + 1/7×5 + 6/7×6 + …
принимая модуль X больше 1. Суммирование продолжать, пока модуль разности между последующим и предыдущим слагаемыми больше малой заданной величины.
В. Напечатать таблицу значений функции У для аргумента X, изменяющегося от заданного начального значения до заданного конечного c заданным шагом.
Форма в режиме конструктора выглядит следующим образом:
Элементы экранной формы и их свойства:
Form Name=Form1
Caption="Вариант 7, Задание 5.2″ Label Name=Label1
BackColor=&H00FFFFFF& Label Name= Label2
Caption="Точность:" Label Name= Label3
Caption="Шаг Х" Label Name= Label4
Caption="Х от:" Label Name= Label5
Caption="до:" MSFlexGrid Name=fg1 TextBox Name=Text1
Text="0.01″ TextBox Name=Text2
Text="1″ TextBox Name=Text3
Text="2″ TextBox Name=Text4
Text="4″ CommandButton Name=Command1
Caption="Выполнить" CommandButton Name= Command2
Caption="Задание 5.1″ CommandButton Name= Command3
Caption="Выход"
Исходный код формы:
Private Sub Command1_Click ()
Dim cntRows As Integer ' количество строк в таблице
Dim i As Double
'Вычисляем кол-во строк таблицы
cntRows = (Val (Text4.Text) — Val (Text3.Text)) / Val (Text2.Text)
fg1.Clear
fg1.Rows = cntRows + 2
fg1.Cols = 3
'Подписываем шапку в таблице
fg1.TextMatrix (0, 1) = «X»
fg1.TextMatrix (0, 2) = «Y»
'Бежим по таблице и заполняем её значениями
For i = 1 To cntRows
'Подписываем № строки
fg1.TextMatrix (i, 0) = i
'Выводим X
fg1.TextMatrix (i, 1) = Val (Text3.Text) + (Val (Text2.Text)) * (i — 1)
'Используя функцию Y выводим Y
fg1.TextMatrix (i, 2) = Format (Y (Val (Text3.Text) + Val (Text2.Text) * (i — 1), Val (Text1.Text)), «0.0000»)
Next i
End Sub
Function Y (x As Double, t As Double) As Double
Dim st As Double, znam As Double, chisl As Double
Dim, А As Double, B As Double, C As Double, sum As Double
Dim porog As Double
st = 1 'степень X
chisl = 2 'числитель
znam = 3 'знаменатель
porog = t 'точность
a = 1 ' первое слагаемое 1
B = 1 / (znam * x) ' второе слагаемое
' проверяем больше ли разность порога
If Abs (B — a) > porog Then
sum = 1
Else 'если превысило то выходим из функции
Y = 1
Exit Function
End If
'Обнуляем переменные
a = 0
B = 0
C = 1
' цикл до тех пор пока
Do
a = 1 / (znam * x ^ st) 'вычисляем первое слагаемое
st = st + 1 ' увеличиваем степеь X
B = chisl / (znam * x ^ st) 'вычисляем следующее слагаемое
st = st + 1 'увеличиваем степень
znam = znam + 2 'увеличиваем знаменатель и числитель на 2
chisl = chisl + 2
C = Abs (B — a) 'высиляем разность
sum = sum + a + B 'суммируем
Loop While (C > porog) 'разность больше порога
Y = sum 'присваиваем функции значение
End Function
Private Sub Command2_Click ()
Me.Hide
Form2.Show
End Sub
Private Sub Command3_Click ()
End
End Sub
Private Sub Form_Unload (Cancel As Integer)
End
End Sub
При выполнении форма выглядит так:
Заключение
В результате выполнения курсового проекта я ознакомилась с возможностями, назначением и экранным интерфейсом интегрированных сред визуального проектирования на примере Visual Basic 6.х.
Освоила навыки проектирования и программирования собственных приложений для решения поставленных задач.
Углубила знания основ алгоритмизации задач и методов представления информации.
Закрепила и углубление знаний по созданию и обработке баз данных в СУБД MS Access.
Изучила приемы создания, заполнения таблиц и формирования требуемых запросов к базам данных.
Реализовала обмен данных между Visual Basic и СУБД Access и их программную обработку.
1. Конспект лекций по курсу «Компьютерная подготовка» (раздел «Разработка приложений в различных программных средах», лектор Лукина ТА.).
2. В. А. Машурцев, Б. М. Кудрявцев. Алгоритмизация и программирование задач в среде Visual Basic 6.0 для Windows (русифицированная версия). Часть 1. Текст лекций. /ГУУ.-М., 2005, -130 с.
3. В. А. Машурцев, Б. М. Кудрявцев. Методические указания к самостоятельной работе в среде Visual Basic. /ГУУ.-М., 2005, -70 c.
4. И. А. Несмеянов, В. В. Барковский, Л. Б. Венчковский, Т. А. Лукина. Visual Basic 6.0 — интегрированная среда проектирования программных проектов. Учебно-практическое пособие. / ГУУ. — М., 2005/06.-175 с.
5. И. А. Несмеянов, В. В. Барковский, Л. Б. Венчковский, Т. А. Лукина. Visual Basic 6.0 — интегрированная среда проектирования программных приложений. Учебное пособие. / ГУУ. — М., 2008/07.-246 с.
6. И. Д. Древаль, Т. П. Катрич, В. А. Машурцев. Проектирование приложений в интегрированной среде Visual Basic.
Учебное пособие. /ГУУ. — М., 2007. — 198 c.
7. И. А. Несмеянов, В. В. Барковский и др. Использование языка Visual Basic 6.0 при создании программных средств для обработки баз данных. Учебно-практическое пособие. / ГУУ. — М., 2004.-180 с.
8. Т. Н. Ламина, М. Е. Буланая, Т. А. Лукина. Методические указания к практическим занятиям и лабораторным работам (№ 1403) «Проектирование интерфейса пользователя в среде Visual Basic». / ГУУ. — М., 2006.-84 c.
9. М. Е. Буланая, Т. Н. Ламина и др. Методические указания (№ 1019) к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» с использованием языка программирования Visual Basic. / ГУУ. М., 2000. 41 с.
10. М. Е. Буланая, Т. А. Лукина, Р. А. Гусева. Методические указания (№ 106) к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» (с использованием языка программирования Visual Basic. Процедуры и функции). /ГУУ. М., 2001. — 32 с.
11. М. Е. Буланая, В. В. Барковский и др. Методические указания (№ 531) к выполнению лабораторных работ по дисциплине «Компьютерная подготовка» с использованием языка программирования Visual Basic. /ГУУ. М., 2004. 54 с.
12. А. Г. Канаков. Методические указания к практическим занятиям по разделу «Разработка приложений в различных программных средах» на языке Visual Basic. /ГУУ. М., 2003. — 31 с.
13. А. Г. Канаков. Методические указания к выполнению лабораторных и домашних работ по дисциплине «Компьютерная подготовка» на языке Visual Basic. /ГУУ. М., 2004. — 44 с.
14. А. В. Аленичев и др. Практикум по учебной дисциплине «Компьютерная подготовка» в среде Visual Basic 6.0 Часть 1. /ГУУ. М., 2005. — 74 с.
15. А. М. Махонько, Р. А. Юзбашьянц. Методические указания (№ 205) к выполнению лабораторных работ и практических занятий по дисциплине «Разработка и применение пакетов прикладных программ», ГУУ.-М., 2002.-36с.
16. Т. В. Бугреева, И. А. Ильина. Методические указания (№ 243) к выполнению лабораторных работ с применением СУБД Access, вып.
1, ГУУ — М., 2002. — 32 с.
