Программирование на BASIC / Visual Basic / Контрольная работа по Visual Basic1 / Пояснительная записка(вариант11)
.docМинистерство образования и науки Российской Федерации
Уфимский государственный авиационный технический университет
Кафедра информатики
Пояснительная записка
к контрольной работе
«Решение задач на языке программирования Visual Basic»
Вариант №11
Выполнил: студент
Проверила:
Уфа 2006
Содержание
«Линейные алгоритмы»
-
Постановка задачи
Даны два числа. Вычислить их сумму, разность, произведение и частное
-
Блок-схема
-
Исходные данные для отладки и тестирования программы
В качестве исходных данных будем выбирать произвольные значения первого и второго числа и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 1.
-
Исходный текст программы
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2)
summa = a + b
raz = a - b
proiz = a * b
chast = a / b
Text3 = summa
Text4 = raz
Text5 = proiz
Text6 = chast
End Sub
-
Экранная форма разработанного проекта
Рис. 1. Экранная форма программы
«Разветвляющиеся алгоритмы»
-
Постановка задачи
Даны три числа a, b, c. Определить какое из них равно d. Если ни одно не равно d, то найти max(d-a,d-b,d-c).
-
Блок-схема
-
Исходные данные для отладки и тестирования программы
В качестве исходных данных будем выбирать произвольные целые числа a, b, c, d и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 2.
-
Исходный текст программы
Private Sub Command1_Click()
Picture1.Cls
a = Val(Text1): b = Val(Text2): c = Val(Text3): d = Val(Text4)
If (a = d) Or (b = d) Or (c = d) Then
If (a = d) Then Picture1.Print "A=D"
If b = d Then Picture1.Print "B=D"
If c = d Then Picture1.Print "C=D"
Else
m1 = d - a
m2 = d - b
m3 = d - c
Max = m1
If m2 > Max Then Max = m2
If m3 > Max Then Max = m3
Picture1.Print "max(d-a,d-b,d-c)=", Max
End If
End Sub
-
Экранная форма разработанного проекта
Рис. 2. Экранная форма программы
«Циклические алгоритмы»
-
Постановка задачи
Найти минимальный элемент в таблице a[1..20] вещественных чисел
-
Блок-схема
-
Исходные данные для отладки и тестирования программы
В качестве исходных данных будем выбирать количество элементов и сами элементы таблицы. Эти данные можно просмотреть в рабочем окне программы на рис. 3.
-
Исходный текст программы
Dim A(20) As Double
Private Sub Command1_Click()
Picture1.Cls
b = Split(Text1, " ")
Min = Val(b(0))
For i = 1 To Text2 - 1
A(i) = Val(b(i))
If A(i) < Min Then Min = A(i)
Next i
Picture1.Print Min
End Sub
-
Экранная форма разработанного проекта
Рис. 3. Экранная форма программы
«Одномерные массивы»
-
Постановка задачи
Вычислить количество отрицательных элементов в массиве.
-
Блок-схема
-
Исходные данные для отладки и тестирования программы
В качестве исходных данных будем выбирать количество элементов массива, сами элементы массива и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 4.
-
Исходный текст программы
Dim M(50) As Double
Private Sub Command1_Click()
Picture1.Cls
k = 0
a = Split(Text2, " ")
For i = 0 To Text1 - 1
M(i) = Val(a(i))
If M(i) < 0 Then k = k + 1
Next i
Picture1.Print k
End Sub
-
Экранная форма разработанного проекта
Рис. 4. Экранная форма программы