База ответов ИНТУИТ

Основы офисного программирования и язык VBA

<<- Назад к вопросам

Какие строки окажутся в файле после работы программы
Width #1,2Str = "Здравствуйте"Print #1, "Саша", "Женя", Str

(Отметьте один правильный вариант ответа.)

Варианты ответа
СаЖеЗд
СашаЖеня Здравствуйте
(Верный ответ)
СашаЖеня Зд
Похожие вопросы
Какие строки окажутся в файле после работы программы
Width #1,3Str = "сосна"Print #1, "сон", "сан", Str
Какие строки окажутся в файле после работы программы
Width #1,3Str = "почтальон Печкин"Print #1, "это", "я", Str
Какие имена книг останутся в коллекции Documents приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents    .Add NewTemplate:=True    .Open (PathDir & "DocThree")    .Open (PathDir & "DocFive")    .Item(3).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Documents приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents    .Add    .Add NewTemplate:=True    .Open (PathDir & "DocThree")    .Open (PathDir & "DocFive")    .Item(1).Close    .Item(2).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Documents приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents    .Add NewTemplate:=True    .Add    .Open (PathDir & "DocFive")    .Open (PathDir & "DocThree")    .Item(2).Close    .Item(3).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks    .Add    .Open (PathDir & "BookThree.xls")    .Open (PathDir & "BookFive.xls")    .Item(2).Close    .Item(3).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks    .Open (PathDir & "BookThree.xls")    .Add    .Open (PathDir & "BookFive.xls")    .Add    .Item(5).Close    .Item(4).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks    .Open (PathDir & "BookThree.xls")    .Open (PathDir & "BookFive.xls")    .Add    .Item(2).Close    .Item(3).CloseEnd WithEnd Sub
Какой оператор используют для чтения данных из файлов последовательного доступа, если данные в файле записаны оператором Print#?
Какой пункт меню добавится после исполнения этого кода программыSet mySpell = CommandBars("Головное меню").Controls("?").Controls.Add(Id:=18)