Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Задание 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), НО:
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
Выделенные строки в оригинале разбиваются на две, на самом деле это одна строка, а знак _ означает что там не абзац, а пробел.
Задание 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 - окно возникнет снова, если больше – исчезнет.
Задание 7
Следовать инструкции на странице 54 – 55, задание 3.1. Заставка появляется, но не исчезает сама, только если ее убрать в ручную. Почему – так и не разобралась. Обязательно сохранить макрос для этой книги, а не для всех документов или шаблонов.
Задание 8
Инструкция на странице 55 – 57, задание 3.2. Если выполнять все по инструкции – работает.
Задание 9
Инструкция на странице 57 – 58, задание 3.3. Тут обязательно обратить внимание на следующее: Обязательно все кнопки нужно переименовать. Где переименовывать я обозначила на рисунке:
Имена:
Для списка с регионами: IstRegion
Для переключателей: OptB1, OptB2, OptB3
Для кода покупателя: TxtId
Для фамилии покупателя: TxtName
Для кнопки ОК: CmdOK
Для кнопки Cancel: CmdCancel
Можно не переименовывать, но тогда придется менять в коде программы названия всех этих окошек на те, которые стоят по умолчанию.
Общие рекомендации: