Программирование на BASIC / Visual Basic / Лабораторные работы1 / Лабораторные по информатике по VB(преподаватель- Хамзина Е.А.) / лабораторная по информатике3

Федеральное агентство по образованию.

Государственное общеобразовательное учреждение высшего профессионального

образования.

Уфимский Государственный Авиационный Технический Университет.

Кафедра информатики.

Отчет по лабораторной работе №3

По теме: «Разработка приложений с разветвляющимися алгоритмами»

Выполнил:

Студент группы МКС-120

Ноготков П.А.

Проверила старший

преподаватель:

Хамзина Е.А.

Уфа-2007

Цель работы:

Целью работы является изучение возможностей разработки приложений с разветвляющимися алгоритмическими структурами

Задания:

Задание первого уровня сложности:

Даны два числа. Вычислить их сумму, разность, произведение и частное.

Код программы: Private Sub Command1_Click()

If Option1.Value Then X = Val(Text1) + Val(Text2)

If Option2.Value Then X = Val(Text1) - Val(Text2)

If Option3.Value Then X = Val(Text1) * Val(Text2)

If Option4.Value Then X = Val(Text1) / Val(Text2)

If Check1.Value Then Picture1.Print Format(X, "#.000") Else Picture1.Print X

End Sub

Private Sub Command2_Click()

End

End Sub

Объект	Свойство	Значение
Form1 Command1 Command2 Frame1 Frame2 Frame3 Frame4 Label1 Label2 Option1 Option2 Option3 Option4 Check1	Caption BackColour Caption Caption BackColour Caption Caption Caption Caption BackColour Caption Caption BackColour Caption Caption Caption Caption BackColour Caption BackColour	Задание1 &H00C0FFC0& Вычислить! Выход Ввод данных Выбор операции над числами Вывод результата Выбор округления Введите число A Введите число B Сложение Вычитание Умножение Деление Округлять до тысячных

Задание второго уровня сложности:

Заданы три положительных числа a, b и с. Определить являются ли они последовательно стоящими элементами арифметической прогрессии. Если являются, то определить разность прогрессии.

Код программы: Private Sub Command1_Click()

A = Text1

B = Text2

C = Text4

d = B - A

x = C - B

If d = x Then Picture2.Print "Числа A,B,C являются прогрессией.Разность прогрессии d равна"; d Else Picture2.Print "Числа A,B,C не являются последовательно стоящими элементами арифметической прогрессии"

End Sub

Private Sub Command2_Click()

End

End Sub

Объект	Свойство	Значение
Form1 Label1 Label2 Label3 Command1 Command2	Caption Caption Caption Caption BackColour Caption Caption	Задание2 Введите число A Введите число B Введите число C Вычислить Выход

Вывод:

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

Вопросы к лабораторной работе:

1. Какие операторы используются для организации условного перехода?

2. Какие логические отношения могут использоваться в операторах условного перехода?

3. Что такое логическое выражение?

4. Какие логические операции могут использоваться в логических выражениях?

5. В каких случаях используется Конструкция Select Case?

6. Для чего используется объект Ключ?

7. Для чего используется объект Переключатель?