Главная / Офисные технологии /
Основы офисного программирования и язык VBA / Тест 1
Основы офисного программирования и язык VBA - тест 1
Упражнение 1:
Номер 1
Что по умолчанию входит в каркас документа Power Point?
Ответ:
 (1) библиотека Word 
 (2) библиотека Excel 
 (3) библиотека Power Point 
 (4) библиотека Office 
 (5) библиотека Stdole 
 (6) библиотека VBA 
 (7) Project 
 (8) проект Normal 
Номер 2
Что по умолчанию входит в каркас документа Word?
Ответ:
 (1) библиотека Word 
 (2) библиотека Excel 
 (3) библиотека Power Point 
 (4) библиотека Office 
 (5) библиотека Stdole 
 (6) библиотека VBA 
 (7) Project 
 (8) проект Normal 
Номер 3
Что по умолчанию входит в каркас документа Excel?
Ответ:
 (1) библиотека Word 
 (2) библиотека Excel 
 (3) библиотека Power Point 
 (4) библиотека VBA 
 (5) Project 
Упражнение 2:
Номер 1
Как можно вызывать Object Browser
из редактора VBA?
Ответ:
 (1) нажатием клавиши F2 
 (2) из меню Tools | Macro 
 (3) через пункт меню View 
 (4) нажатием клавиш Alt +F11 
Номер 2
Как можно вызывать редактор VBE?
Ответ:
 (1) нажатием клавиши F2 
 (2) из меню Tools | Macro 
 (3) через пункт меню View 
 (4) нажатием клавиш Alt +F11 
Номер 3
Когда создается каркас документа?
Ответ:
 (1) при нажатии на кнопку "создать каркас" 
 (2) автоматически при создании документа 
 (3) при подключении к документу различных библиотек 
Упражнение 3:
Номер 1
Какие основные, новые свойства, встроенные в объекты Application в Office 2000 присутствуют в приложении Word?
Ответ:
 (1) AnswerWizard
 
 (2) COMAddIns
 
 (3) LanguageSettings
 
 (4) EmailOptions
 
 (5) DefaultWebOptions
 
 (6) MsoDebugOptions
 
Номер 2
Какие основные, новые свойства, встроенные в объекты Application в Office 2000 присутствуют в приложении Access
?
Ответ:
 (1) AnswerWizard
 
 (2) COMAddIns
 
 (3) LanguageSettings
 
 (4) EmailOptions
 
 (5) DefaultWebOptions
 
 (6) MsoDebugOptions
 
Номер 3
Какие основные, новые свойства, встроенные в объекты Application в Office 2000 присутствуют в приложении Power Point ?
Ответ:
 (1) AnswerWizard
 
 (2) COMAddIns
 
 (3) LanguageSettings
 
 (4) EmailOptions
 
 (5) DefaultWebOptions
 
 (6) MsoDebugOptions
 
Упражнение 4:
Номер 1
Одинаково ли организованы методы Activate
, Run
, Quit
в различных приложениях?
Ответ:
 (1) да, так как они предназначены для решения стандартных задач 
 (2) нет, так как разные приложения осуществляют эти операции по-разному 
 (3) это зависит от ситуации 
Номер 2
Из каких методов состоит объект Application
приложения Power Point?
Ответ:
 (1) Activate
 
 (2) Run
 
 (3) Quit
 
 (4) SaveChanges
 
 (5) OnTime
 
 (6) Help
 
Номер 3
Какой общий метод имеют приложения Word и Excel?
Ответ:
 (1) Activate
 
 (2) Run
 
 (3) Quit
 
 (4) SaveChanges
 
 (5) OnTime
 
 (6) Help
 
Упражнение 5:
Номер 1
Какие методы использует приложение Excel для добавления элементов в коллекцию Workbooks?
Ответ:
 (1) Open
 
 (2) Item
 
 (3) Add
 
 (4) Close
 
 (5) Application
 
 (6) Creator
 
 (7) Parent
 
Номер 2
Какие методы использует приложение Excel для удаления элементов из коллекции Workbooks?
Ответ:
 (1) Open
 
 (2) Item
 
 (3) Add
 
 (4) Close
 
 (5) Application
 
 (6) Creator
 
 (7) Parent
 
Номер 3
Какие методы использует приложение Excel чтобы получить доступ к рабочей книге в коллекции Workbooks?
Ответ:
 (1) Open
 
 (2) Item
 
 (3) Add
 
 (4) Close
 
 (5) Application
 
 (6) Creator
 
 (7) Parent
 
Упражнение 6:
Номер 1
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()
Dim N As Long, i As Byte
Dim PathDir As String
PathDir = "e:\O2000\CD2000\Ch1\"
With Workbooks
.Add
.Open (PathDir & "BookThree.xls")
.Open (PathDir & "BookFive.xls")
.Item(2).Close
.Item(3).Close
End With
End Sub
Ответ:
 (1) BookOne.xls
Book1
BookThree.xls 
 (2) BookOne.xls
BookThree.xls 
 (3) BookOne.xls
BookFive.xls 
Номер 2
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()
Dim N As Long, i As Byte
Dim PathDir As String
PathDir = "e:\O2000\CD2000\Ch1\"
With Workbooks
.Open (PathDir & "BookThree.xls")
.Add
.Open (PathDir & "BookFive.xls")
.Add
.Item(5).Close
.Item(4).Close
End With
End Sub
Ответ:
 (1) BookOne.xls
BookThree.xls
Book1 
 (2) BookOne.xls
BookThree.xls 
 (3) BookOne.xls
BookFive.xls 
Номер 3
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()
Dim N As Long, i As Byte
Dim PathDir As String
PathDir = "e:\O2000\CD2000\Ch1\"
With Workbooks
.Open (PathDir & "BookThree.xls")
.Open (PathDir & "BookFive.xls")
.Add
.Item(2).Close
.Item(3).Close
End With
End Sub
Ответ:
 (1) BookOne.xls
Book1
BookThree.xls 
 (2) BookOne.xls
BookThree.xls 
 (3) BookOne.xls
BookFive.xls 
Упражнение 7:
Номер 1
Какое свойство коллекции Sheets
приложения Excel возвращает родительский объект?
Ответ:
 (1) Visible
 
 (2) Application
 
 (3) HPageBreak
и VPageBreak
 
 (4) Copy
 
 (5) Parent
 
 (6) Count
 
Номер 2
Какое свойство коллекции Sheets
приложения Excel служит для обозначения видимости объекта?
Ответ:
 (1) Visible
 
 (2) Application
 
 (3) HPageBreak
и VPageBreak
 
 (4) Copy
 
 (5) Parent
 
 (6) Count
 
Номер 3
Какое свойство коллекции Sheets
приложения Excel возвращает горизонтальную и вертикальную разбивку листа на страницы?
Ответ:
 (1) Visible
 
 (2) Application
 
 (3) HPageBreak
и VPageBreak
 
 (4) Copy
 
 (5) Parent
 
 (6) Count
 
Упражнение 8:
Номер 1
Какие имена книг останутся в коллекции Documents
приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()
Dim N As Long, I As Byte
Dim PathDir As String
PathDir = "e:\O2000\CD2000\Ch1\"
With Documents
.Add
.Add NewTemplate:=True
.Open (PathDir & "DocThree")
.Open (PathDir & "DocFive")
.Item(1).Close
.Item(2).Close
End With
End Sub
Ответ:
 (1) DocFive.doc
DocThree.doc
Document1 
 (2) DocThree.doc
Document1
Dex1.dot 
 (3) DocFive.doc
Template1
Dex1.dot 
Номер 2
Какие имена книг останутся в коллекции Documents
приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()
Dim N As Long, I As Byte
Dim PathDir As String
PathDir = "e:\O2000\CD2000\Ch1\"
With Documents
.Add NewTemplate:=True
.Add
.Open (PathDir & "DocFive")
.Open (PathDir & "DocThree")
.Item(2).Close
.Item(3).Close
End With
End Sub
Ответ:
 (1) DocFive.doc
DocThree.doc
Document1 
 (2) DocThree.doc
Document1
Dex1.dot 
 (3) DocFive.doc
Template1
Dex1.dot 
Номер 3
Какие имена книг останутся в коллекции Documents
приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()
Dim N As Long, I As Byte
Dim PathDir As String
PathDir = "e:\O2000\CD2000\Ch1\"
With Documents
.Add NewTemplate:=True
.Open (PathDir & "DocThree")
.Open (PathDir & "DocFive")
.Item(3).Close
End With
End Sub
Ответ:
 (1) DocFive.doc
DocThree.doc
Document1 
 (2) DocThree.doc
Document1
Dex1.dot 
 (3) DocFive.doc
Template1
Dex1.dot 
Упражнение 9:
Номер 1
Какое свойство коллекции Sections
приложения Word позволяют установить характеристики страницы одновременно для всех разделов коллекции?
Ответ:
 (1) Application 
 (2) Creator 
 (3) PageSetup 
 (4) Add 
 (5) Delete 
Номер 2
Какое свойство коллекции Sections
приложения Word позволяет добавить новый раздел в документ?
Ответ:
 (1) Application 
 (2) Creator 
 (3) PageSetup 
 (4) Add 
 (5) Delete 
Номер 3
Какой метод коллекции Sections
приложения Word используется для удаления раздела из коллекции?
Ответ:
 (1) Application 
 (2) Creator 
 (3) PageSetup 
 (4) Add 
 (5) Delete 
Упражнение 10:
Номер 1
Какие свойства имеют коллекции Characters
, Words
, Sentences
приложения Word?
Ответ:
 (1) Application
 
 (2) Count
 
 (3) Item
 
 (4) Creator
 
 (5) First
 
 (6) Last
 
 (7) Parent
 
 (8) все перечисленные 
Номер 2
Какие методы имеют коллекции Characters
, Words
, Sentences
приложения Word?
Ответ:
 (1) Application
 
 (2) Count
 
 (3) Item
 
 (4) Creator
 
 (5) First
 
 (6) Last
 
 (7) Parent
 
 (8) все перечисленные 
Номер 3
Какой из циклов будет работать правильно?
Ответ:
 (1) With Documents
For i = 1 To .Count
Debug.Print .Item(i)
Next i
End With 
 (2) For Each doc In Documents
Debug.Print doc
Next doc 
 (3) With Documents
For i = .Count To 1
Debug.Print .Item(i)
Next i
End With