Изучение основ программирования в Visual Basic

Лабораторная работа 19

Закройте базу данных, выбрав команду менюФайл_Закрыть.

Выполнить запрос, для чего щелкнуть на кнопке пиктографического меню Выполнить или выбрать пункт менюЗапрос_Выполнить.

Ход выполнения работы

1. Создайте новый запрос. Для этого:

· в окне База данных: SESS нажмите кнопку 3апрос;

· в том же окне нажмите кнопку Создать;

· в диалоге Создание запроса щелкните по кнопке Новый запрос;

· на фоне появившегося окна Запрос-выборка: Запрос1 в диалоге Добавление таблицы выбрать таблицу СТУДЕНТ и нажать на кнопку Добавить;

· после появления в окне Запрос-выборка: Запрос1 списка полей таблицы СТУДЕНТ в диалоговом окне Добавление таблицы щелкнуть на кнопке 3акрыть;

· в первую ячейку строки Поле перетащить из списка полей таблицы СТУДЕНТ поле "Фамилия", во вторую — "Имя", в третью — "Отчество" в четвертую — "Дата рождения", в пятую — "Пол";

· в пятую ячейку строки Условие отбора поместить выражение: ="м" и убрать признак вывода на экран информации из этого поля;

· в четвертую ячейку строки Условие отбора поместить выражение: >#31.12.75# и установить признак вывода на экран информации из данного поля.

4. Сохранить запрос, для этого выполнить команду меню Файл _ Сохранить запрос. В появившемся после этих действий окне Сохранение введите имя запроса, например, можно оставить имя "Запрос1", предлагаемое «по умолчанию».

Запуск редактора Visual Basic: выполнить команду «Сервис → Макрос → редактор Visual Basic»

Запуск программы на выполнение: в редакторе Visual Basic:выполнить команду «Run Run → Sub\User Form (или нажать клавишу F5)»

Линейный алгоритм

Задание 1. Вычисление значений алгебраических выражений.

Sub schet()

a = 1

b = 4

S = a * 2 + Sqr(b)

MsgBox (S)

End Sub

Задание 2. Вычисление суммы двух чисел, введенных с клавиатуры

Sub sum()

I = InputBox(“Введите первое число!”)

K= InputBox(“Введите второе число!”)

S = int(I)+int(K)

MsgBox (S)

End Sub

Задание 3. Подсчет площади круга.

Sub okr()

Const Pi = 3.14

R = InputBox("Введите радиус круга в сантиметрах!")

S = Pi * R * R

MsgBox ("Площадь круга = " & S & " см.")

End Sub

Условный алгоритм

Задание 4. Создание диалога компьютера и пользователя.

Sub txt()

aa = InputBox("Любите ли Вы мороженное?")

If aa = "Да" Or aa = "да" Then

MsgBox ("Приятного аппетита!")

Else: MsgBox ("Я съем Вашу порцию!")

End If

End Sub

Задание 5. Проверка результата сложения двух чисел.

Sub sum1()

I = InputBox(“Введите первое число!”)

K= InputBox(“Введите второе число!”)

S = int(I)+int(K)

SV= InputBox(“Введите сумму чисел!”)

If S= int(SV) Then

MsgBox ("Правильно!”)

Else: MsgBox ("Неправильно!”)

End If

End Sub

Задание 6. Нахождение меньшего из двух чисел.

Sub min()

I = InputBox(“Введите первое число!”)

K= InputBox(“Введите второе число!”)

If I> K Then

MsgBox (K)

Else: MsgBox (I)

End If

End Sub

Задание 7. Нахождение большего из трех чисел.

sub max()

I = InputBox(“Введите первое число!”)

K = InputBox(“Введите второе число!”)

N = InputBox(“Введите третье число!”)

If ((I > K) And (I > N)) Then

MsgBox (I)

ElseIf ((K > I) And (K > N)) Then

MsgBox (K)

Else: MsgBox (N)

End If

End Sub

Задание 8. Создать тест из трех вопросов.

Sub vopr()

pro = 0

I = InputBox(“Сколькими способами можно расставить в ряд три разных кресла?”)

If I = 6 Then

MsgBox ((“Верно”)

pro = 1

Else: MsgBox ((“Неверно”)

End If

I = InputBox("Сколькими способами можно расставить на полке в ряд четыре разные чашки?")

If I = 24 Then

MsgBox (“Верно”)

pro = pro + 1

Else: MsgBox(“Неверно”)

End If

I = InputBox("Сколькими способами можно рассадить пятерых гостей на пяти стульях?")

If I = 120 Then

MsgBox (“Верно”)

pro = pro + 1

Else: MsgBox (“Неверно”)

End If

MsgBox (“Ваша отметка - ”& pro)

End Sub

Циклический алгоритм

Задание 9. Подсчитать сумму целых чисел от 1 до 10.

sub max()

Sum=0

For sch=1 To 10

Sum=Sum+ sch

Next sch

MsgBox (“Сумма=”& Sum)

End Sub

Задание 10. Подсчитать произведение целых положительных чисел от 1 до N. Число N вводится с клавиатуры.

sub max()

Pr=1

N = InputBox(“Введите целое положительное число!”)

For sch=1 To N

Pr=Pr*sch

Next sch

MsgBox (“Произведение=”&Pr)

End Sub

Задание 11. Подсчитать сумму целых положительных чисел от К до N. Числа К и N вводятся с клавиатуры.

sub max()

K = InputBox(“Введите первое целое положительное число!”)

N = InputBox(“Введите второе целое положительное число!”)

Sum=0

If K<N Then

S=1

Else: S=-1

End If

For sch=K To N Step S

Sum=Sum+ sch

Next sch

MsgBox (“Сумма=”& Sum)

End Sub

Задание 12. С клавиатуры вводится семь чисел. Подсчитать сумму положительных чисел, введенных с клавиатуры.

sub max()

Sum=0

For sch=1 To 7

K = InputBox(“Введите число!”)

If K>0 Then

Sum=Sum+ K

End If

Next sch

MsgBox (“Сумма = ”& Sum)

End Sub

Задание 13. С клавиатуры вводится десять чисел. Подсчитать количество нулей, введенных с клавиатуры.

sub max()

Kol=0

For sch=1 To 10

K = InputBox(“Введите число!”)

If K=0 Then

Kol=Kol+ 1

End If

Next sch

MsgBox (“Количество нулей = ”& Kol)

End Sub

Задание 13. С клавиатуры вводится числа, до тех пор, пока не введено число 13.. Подсчитать количество отрицательных чисел, введенных с клавиатуры.

sub max()

Kol=0

K = InputBox(“Введите число!”)

Do While K<>13

If K<0 Then

Kol=Kol+ 1

End If

K = InputBox(“Введите число!”)

Loop

MsgBox (“Количество отрицательных чисел = ”& Kol)

End Sub

Задание 14. С клавиатуры вводится числа, до тех пор, пока не введено число 777. Подсчитать количество чисел 7 и 77, введенных с клавиатуры.

Вариант 1

sub max()

Kol=0

K = InputBox(“Введите число!”)

Do While K<>777

If K=7 or K=77 Then

Kol=Kol+ 1

End If

K = InputBox(“Введите число!”)

Loop

MsgBox (“Количество чисел 7 и 77 = ”& Kol)

End Sub

Вариант 2

sub max()

Kol=0

Do

K = InputBox(“Введите число!”)

If K=7 or K=77 Then

Kol=Kol+ 1

End If

Loop While K<>777

MsgBox (“Количество чисел 7 и 77 = ”& Kol)

End Sub

Задание 15. С клавиатуры вводится буквы русского алфавита, до тех пор, пока не введена буква а. Подсчитать количество букв Я и я, введенных с клавиатуры.

Вариант 1

sub max()

Kol=0

K = InputBox(“Введите букву русского алфавита!”)

Do Until K = “а”

If K=”Я” or K=”я” Then

Kol=Kol+ 1

End If

K = InputBox(“Введите число!”)

Loop

MsgBox (“Количество букв Я и я = ”& Kol)

End Sub

Вариант 2

sub max()

Kol=0

Do

K = InputBox(“Введите букву русского алфавита!”)

If K=”Я” or K=”я” Then

Kol=Kol+ 1

End If

Loop Until K = “а”

MsgBox (“Количество букв Я и я = ”& Kol)

End Sub

Дата добавления: 2015-06-26