Лабораторная работа № 4-5

«Использование оператора бесспорного перехода»

Цель работы:исследование структуры оператора бесспорного перехода и особенности его использования.

Задания для лабораторной работы:

1. С клавиатуры вводятся числа a, b, c, d. Подсчитать значение выражения (a+b)/(c+d). Если c+d=0, вынудить юзера повторить ввод.

Листинг программка

Sub pyat()

Dim a, b, c, d, v As Double

a Лабораторная работа № 4-5 = InputBox("vvedite chislo a")

a = CDbl(a)

b = InputBox("vvedite chislo b")

b = CDbl(b)

10 c = InputBox("vvedite chislo c")

c = CDbl(c)

d = InputBox("vvedite chislo d")

d = CDbl(d)

If c + d = 0 Then

MsgBox "Povtorite zanovo vvod, t.k c+d=0"

GoTo 10

End If

v = (a + b) / (c + d Лабораторная работа № 4-5)

MsgBox (v)

End Sub

Тестирование:

Ввод: a=2, b=2, c=2, d=2

Вывод:

Рис 1. Тестирование номер 1

Ввод: a=3,b=4,c=2,d=-2

Вывод:

2. Написать программку, проверяющую корректность ввода даты (формат ввода: дд.мм.гг):

- введено необходимое количество знаков;

- дд и мм являются числами;

- 1 £ дд £ 31;

- 1£ мм £12.

В случае неверного ввода вынудить юзера Лабораторная работа № 4-5 повторить ввод. Если ввод прошел удачно, то введенная дата должно выдаваться в окне сообщения в виде перечня:

Денек: дд;

Месяц: мм;

Год: гг.

Листинг программка

Sub Shest()

Dim A, B, C As Integer

40 A = InputBox("Vvedite den")

A = CDbl(A)

If A >= 1 And A <= 31 Then

Else: GoTo 40

End If

50 B = InputBox("Vvedite mesyac Лабораторная работа № 4-5")

B = CDbl(B)

If B >= 1 And B <= 12 Then

Else: GoTo 50

End If

C = InputBox("Vvedite god")

C = CDbl(C)

MsgBox "den: " & A & vbNewLine & "mesyac: " & B & vbNewLine & "god: " & C

End Sub

Тестирование:

Ввод: A=12,B=11,C=2018

Вывод:

Рис 2. Тестирование даты

Ввод: A=12,B=13,C=2018

Вывод:

Рис 2. Тестирование даты 2

Контрольные вопросы:

1. Что такое оператор бесспорного Лабораторная работа № 4-5 перехода, и зачем он употребляется?

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

2. Как смотрится синтаксис оператора бесспорного перехода?

Ответ Лабораторная работа № 4-5: Синтаксис оператора:

GoTo , где – случайное имя, отвечающее стандартным правилам именования.

3. Какие бывают функции проверки типов, и что они инспектируют?

Ответ:

Имя функции Выполняемая проверка
IsArray () Является ли массивом
IsData () Является ли датой
IsEmpty () Была ли описана аннотацией Dim
IsError () Является ли кодом ошибки
IsNull () Является ли пустым значением
IsNumeric () Является ли числовым Лабораторная работа № 4-5 значением
IsObject () Является ли объектом

4. Какие есть функции обработки строк, и как смотрится их синтаксис?

Ответ: Len ()

Возвращает длину строчки, т.е. количество знаков в строке.

Mid (, [, ])

Возвращает подстроку строчки , начиная с знака, номер которого , длиной в обозначенное . Если последний аргумент не задан, то функция вернет Лабораторная работа № 4-5 подстроку, включающую в себя знаки с обозначенного аргументом до конца начальной строчки.

5. В чем достоинства перед оператором условного перехода?

Ответ: Вместе с оператором условного перехода, позволяющим организовать выполнение той либо другой группы операторов зависимо от результатов проверки условия, время от времени применяется и оператор бесспорного перехода. Оператор безусловногоперехода задает переход на Лабораторная работа № 4-5 строчку снутри процедуры, помеченную меткой.

Вывод: в процессе проделанной лабораторной работы было исследовано структура оператора бесспорного перехода, синтаксис: GoTo , также исследовал функции обработки строк и их синтаксис, функции проверки типов и их синтаксис, решил задачки с внедрением оператора бесспорного перехода goto и исследовал особенности его работы.


laboratornij-praktikum-3.html
laboratornij-praktikum-ne-predusmotren-ugresha.html
laboratornij-praktikum-uchebno-metodicheskij-kompleks-disciplini-en-f-02-informatika-kod-i-nazvanie-disciplini.html