Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 22

Тяжелая Контрольная

18.12.2010, 20:29. Показов 1075. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Преподша дала задание по VB, а я его вообще не знаю. Она сказалы мы его поверхостно проходим, а сама тяжелое задание дала(для меня точно тяжелое=)).
Помогите плиз! Вот оно:

1. Что называется макросом?
2. Что произойдет после выполнения следующего макроса?
Sub Макрос1()
With Selection.Font
.FontStyle = "Bold"
End With
End Sub
3. Назовите 2 типа процедур VBA?
4. Как можно проверить больше, чем одно условие в операторе If/Then?
5. Какие два метода следует использовать для возвращения отдельной ячейки?
6. Переписать процедуру, которая выводит на экран информацию об операционной среде и пользователе объекта Excel Application) с ис-пользование инструкции With.. .End With
Sub Show Systemlnfo()
'Обращаясь к различным свойствам главного приложения,
'отображает информацию о вашем компьютере

MsgBox "Главное приложение: " & vbCr & _
Application.Name & " v" & Application.Version & _
", Build " & Application.Build & vbCr & vbCr & _
"Папка библиотеки: " & Application.LibraryPath & _
vbCr & vbCr & "Пользователь: " & Application.UserName & vbCr & _
" " & Application.OrganizationName

MsgBox "Операционная система:" & _
Application.OperatingSystem & vbCr & vbCr & _
"Мышь подключена: " & _
Application.МоuseAvaitable & vbCr & vbCr & _
"Всего памяти: " & Application.MemoryTotal & _
vbCr & "Используется памяти: " & Application.MemoryUsed & _
vbCr & "Свободно памяти: " & Application.MemoryFree
End Sub

7. Создать диалоговое окно с полем редактирования (окно должно быть пустым при всяком появлении окна на экране). Создать процедуру, которая принимает вводимый в это окно текст и помещает его а ячейку активного рабочего листа при нажатии кнопки ОК, но не вносит никаких изменений в лист, если выбрана кнопка ОТМЕНА.
8. В чем различие между типами данных Integer и Long?
9. В чем различие между функциями VBA и функциями Excel?
10. Что дает ключевое слово End, размещенное в отдельной строке процедуры? Что при этом происходит со значениями переменных?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.12.2010, 20:29
Ответы с готовыми решениями:

FileSystemObject – тяжелая артиллерия VB6 (статья)
FSO – тяжелая артиллерия VB6 Введение в объектную модель FSO Новая особенность для VB6 - модель объекта ( FSO ) Объектная...

контрольная
Всем добрый вечер, хотя он нефига не добрый. Завтро зачет а у мене нет еще допуска даже... Требуется помощь в решении 2-х задач. Каму не...

Контрольная по информатике...)))
Помогите решить контрольную по информатике - программирование в Визуал Бейсике... Сестра сосвсем замучила... задачи в приложении))) ...

4
Живу от Клика до Клика
 Аватар для CJ_Sashok
35 / 35 / 5
Регистрация: 01.06.2010
Сообщений: 157
18.12.2010, 20:54
Google тебе в руки))
0
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 22
18.12.2010, 22:33  [ТС]
Цитата Сообщение от CJ_Sashok Посмотреть сообщение
Google тебе в руки))
Согласна) На некоторые вопросы можно погуглить,
А вот например вопрос номер 2 и подобные
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
18.12.2010, 23:02
Цитата Сообщение от Konfetkadetka Посмотреть сообщение
Sub Макрос1()
With Selection.Font
.FontStyle = "Bold"
End With
End Sub
выделеный текст - жирнным

Цитата Сообщение от Konfetkadetka Посмотреть сообщение
Как можно проверить больше, чем одно условие в операторе If/Then
If a>b and a>c or a>d Then
.....
End If





Цитата Сообщение от Konfetkadetka Посмотреть сообщение
Sub Show Systemlnfo()
'Обращаясь к различным свойствам главного приложения,
'отображает информацию о вашем компьютере
MsgBox "Главное приложение: " & vbCr & _
Application.Name & " v" & Application.Version & _
", Build " & Application.Build & vbCr & vbCr & _
"Папка библиотеки: " & Application.LibraryPath & _
vbCr & vbCr & "Пользователь: " & Application.UserName & vbCr & _
" " & Application.OrganizationName
MsgBox "Операционная система:" & _
Application.OperatingSystem & vbCr & vbCr & _
"Мышь подключена: " & _
Application.МоuseAvaitable & vbCr & vbCr & _
"Всего памяти: " & Application.MemoryTotal & _
vbCr & "Используется памяти: " & Application.MemoryUsed & _
vbCr & "Свободно памяти: " & Application.MemoryFree
End Sub
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Show Systemlnfo()
'Обращаясь к различным свойствам главного приложения,
'отображает информацию о вашем компьютере
With Application
MsgBox "Главное приложение: " & vbCr & _
.Name & " v" & .Version & _
", Build " & .Build & vbCr & vbCr & _
"Папка библиотеки: " & .LibraryPath & _
vbCr & vbCr & "Пользователь: " & .UserName & vbCr & _
" " & .OrganizationName
 
MsgBox "Операционная система:" & _
.OperatingSystem & vbCr & vbCr & _
"Мышь подключена: " & _
.МоuseAvaitable & vbCr & vbCr & _
"Всего памяти: " & .MemoryTotal & _
vbCr & "Используется памяти: " & .MemoryUsed & _
vbCr & "Свободно памяти: " & .MemoryFree
End With
End Sub
Цитата Сообщение от Konfetkadetka Посмотреть сообщение
7. Создать диалоговое окно с
Visual Basic
1
2
3
4
Private Sub CommandButton1_Click()
p = InputBox("--")
If p <> "" Then ActiveCell = p
End Sub


Цитата Сообщение от Konfetkadetka Посмотреть сообщение
В чем различие между типами данных Integer и Long?
Integer целое От -32 768 до 32 767
Long длинное целое От -2 147 483 648 до 2 147 483 647
1
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 22
19.12.2010, 10:03  [ТС]
Спасибо огромное!!)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.12.2010, 10:03
Помогаю со студенческими работами здесь

Тяжелая GIF анимация
Всем привет,у меня есть гифка размером в 70 мб и из-за веса билдер Embarcadero RAD Studio XE2 не хочет билдить :D программу.Можно как нить...

Очень тяжелая ситуация
https://www.cyberforum.ru/bsod/thread1533685.html#post8090105 Это начало А теперь поясню сообственно проблему, из за неоднократных BSOD я...

Тяжелая работа с файлами
Есть задание: написать программу на С/С++/C++1x и STL, которая читает текстовый файл, удаляет заданное слово в каждой строке, сортирует ...

Слишком тяжелая программа.
Я написала небольшую игру. Всего в три уровня. Но один только exe файл весит 14 мега. А весь solution полностью - около 34 мега. Все...

тяжелая цепь массой М
Тяжелая цепь имеет массу М и длину L. Часть ее лежит на горизонтальной подставке, а часть (длиной l0) свисает вниз. Найти зависимость...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru