Задание 6

Задание 1

Все делать строго по инструкции (стр. 19 – 22, задание 1.1). Выделять текст ДО записи макроса.

Задание 2

Все делать строго по инструкции (стр. 22 – 23, задание 1.2)

Задание 3

Все делать строго по инструкции (стр. 41 – 42, задание 2.1)

Задание 4

Все делать строго по инструкции (стр. 42 – 43, задание 2.2, выполнять все до тестирования функции). Тестировать: вызвать с помощью СTRL+G окно отладки. Внизу в новом окне прописать ?TotalCost(Сумма).

Задание 5

Инструкция на странице (стр. 43), НО:

1. Обязательно нужно сначала выполнить задание 4, без него функция работать не будет.

2. В «Возможном варианте решения» пишем:

Sub DisplayTotalCost()

' Exercise 2

Dim dblTotalCost As Double

Dim dblPrice As Double

dblPrice = InputBox("пожалуйста, введите цену")

dblTotalCost = TotalCost(dblPrice)

If dblTotalCost < 50 Then

MsgBox "Стоимость" & Str(dblTotalCost) & vbCrLf & "Это меньше допустимой", vbCritical

Else

MsgBox "Стоимость" & Str(dblTotalCost) & vbCrLf & "Такая стоимость допускается", vbExclamation

End If

End Sub

Выделенные строки в оригинале разбиваются на две, на самом деле это одна строка, а знак _ означает что там не абзац, а пробел.

3. Тестируем через кнопку плей на панели инструментов.

Задание 6

Инструкция на стр. 43 – 44 (задание 2.4 ), НО как и в задании 5 одну строку нужно объединить. Код выглядит так:

Function GetSum() As Integer

'Exercise 3 - get integers until sum > 25

Dim intUserData As Integer

Dim intSum As Integer

intSum = 0

Do While intSum <= 25

intUserData = InputBox("Пожалуйста, введите целое число", "ввод пользователя", 0)

intSum = IntSum + intUserData

loop

GetSum = intSum

End Function

Тестировать лучше с помощью СTRL+G (вызов окна отладки). Внизу в новом окне прописать: ?GetSum

Затем нажать Enter. В появившемся окне прописать число. Если оно меньше 25 - окно возникнет снова, если больше – исчезнет.