Тяжелая Контрольная - VB
Формулировка задачи:
Преподша дала задание по 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, размещенное в отдельной строке процедуры? Что при этом происходит со значениями переменных?
Решение задачи: «Тяжелая Контрольная»
textual
Листинг программы
Private Sub CommandButton1_Click()
p = InputBox("--")
If p <> "" Then ActiveCell = p
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д