Файловый архив студентов. Файловый архив студентов.
1312 вуза, 5265 предмета.
/ Регистрация
FAQ Обратная связь Вопросы и предложения
Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Омский государственный аграрный университет им. П. А. Столыпина
Предмет:
[НЕСОРТИРОВАННОЕ]
Файл:
Практикум по VBA(реценц последний).doc
Скачиваний:
9
Добавлен:
01.04.2025
Размер:
2.47 Mб
Скачать
☆
►Содержание►

      1. Создание процедуры подпрограммы с использованием ввода исходных данных и вывода результатов на рабочий лист ms Excel Ход выполнения задания:

  1. Создать документ Excel в папке своей группы под своей фамилией.

  2. Сформировать на рабочем листе таблицу по предложенному образцу:

  1. Запустить редактор Visual Basic, используя команду Сервис МакросРедактор Visual Basic.

  2. Создать процедуру Пример_1, имеющую тип Sub.

  1. Ввести в окне редактирования кода программу

Public Sub Пример_1()

Dim t1, t2, t3, v1, v2, v3, S, S1, S2, S3 As Single

t1 = Cells(2, 1).Value

t2 = Cells(2, 2).Value

t3 = Cells(2, 3).Value

v1 = Cells(2, 4).Value

v2 = Cells(2, 5).Value

v3 = Cells(2, 6).Value

S1 = t1 * v1

S2 = t2 * v2

S3 = t3 * v3

S = S1 + S2 + S3

Cells(2, 7).Value = S

End Sub

  1. Запустить программу на выполнение, используя команду RunRun Sub/UserForm или кнопку на панели инструментов .

  2. Перейдите на рабочий лист MS Excel.

  3. Проверить результат выполнения программы, полученный в ячейке G2 (S = 8,25).

  4. Сохранить и закрыть документ MS Excel.

      1. Создание формы пользователя в редакторе Visual Basic Ход выполнения задания:

  1. Создать документ Excel в папке своей группы под своей фамилией.

  2. Переименовать пустой лист, дав ему имя Занятие по VBA.

  3. Запустить редактор Visual Basic, используя команду Сервис МакросРедактор Visual Basic.

  4. Добавить в проект форму, выполнив команду меню InsertUserForm.

  5. Разместить в окне редактирования формы управляющие элементы (12 элементов Надпись (Label), 6 элементов Поле (TextBox) и 1 элемент Кнопка (CommandButton)), как показано на рис. 13. Для вывода значения общего пути пешехода будет использоваться элемент Надпись, так как это значение не вводится, оно вычисляется.

Рис. 13. Диалоговое окно для расчета общего пути пешехода

  1. Установить свойства элементов управления в соответствии с таблицей 1 приложения 1, используя окно Properties (Свойства), нажав кнопку .

  2. Щелкнуть дважды по кнопке Общий путь и в появившемся окне кода написать процедуру обработки события Click, приведенную ниже, но учесть, что имена ваших элементов могут быть другими:

Private Sub CommandButton4_Click()

t1 = TextBox1.Text

v1 = TextBox4.Text

S1 = t1 * v1

Label8.Caption = "S1 = " & S1 & " км - путь по равнине"

t2 = TextBox2.Text

v2 = TextBox5.Text

S2 = t2 * v2

Label9.Caption = "S2 = " & S2 & " км - путь в гору"

t3 = TextBox3.Text

v3 = TextBox6.Text

S3 = t3 * v3

Label10.Caption = "S3 = " & S3 & " км - путь под гору"

S = S1 + S2 + S3

Label11.Caption = " S=S1+S2+S3=" & S & " км "

End Sub

  1. Написать процедуру обработки события Click для надписи Выход.

Private Sub Label12_Click()

UserForm1.Hide ‘скрывает форму UserForm1

End Sub

или

Private Sub Label12_Click()

End

End Sub

  1. Сохранить программы.

  2. Перейти на лист Занятие по VBA (не закрывая редактора VB). Выведите панель Элементы управления на экран (ВидПанели инструментовЭлементы управления). Вставьте на лист Занятие по VBA кнопку для вывода диалогового окна Линейный вычислительный процесс. Измените надпись на кнопке (свойство Caption – Задача1), используя соответствующую кнопку панели Элементы управления или пункт Свойства контекстного меню кнопки (режим конструктора должен быть включен).

  3. Щелкнуть дважды по кнопке Задача1 и в появившемся окне кода напишите процедуру обработки события Click:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

  1. Перейти на лист Занятие по VBA и запустите программу, щелкнув на кнопке Задача1.

  2. Проверить корректность работы программы, при необходимости отладить её.

  3. Сохранить и закрыть документ MS Excel.

Приложение 1

Элемент

Свойство

Значение свойства

Обрабатываемое событие

UserForm1

  1. Name

  2. Caption

  3. StartUpPosition

  4. Height

  5. Width

  1. Ваша фамилия;

  2. Линейный вычислительный процесс;

  3. 2-CenterScreen;

  4. 350;

  5. 500.

нет

Label1

  1. Caption

  2. Font(шрифт)

  3. Height (высота)

  4. Left (отступ слева)

  5. TextAlign (выравнивание текста в элементе)

  6. Top (размещение элемента по высоте)

  1. Задача 1

  2. шрифт: Times New Roman; начертание: жирный, размер: 18;

  3. 30

  4. 120

  5. 2-fmTextAlignCenter,

  6. 15.

нет

Label2

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. t1(ч)

  2. шрифт: Times New Roman; начертание: жирный, размер: 16;

  3. 20

  4. 20

  5. 2-fmTextAlignCenter

  6. 50

  7. 50

нет

Label3

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. t2(ч)

  2. шрифт: Times New Roman; начертание: жирный, размер: 16;

  3. 20

  4. 20

  5. 2-fmTextAlignCenter

  6. 50

  7. 85

нет

Label4

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. t3(ч)

  2. шрифт: Times New Roman; начертание: жирный, размер: 16;

  3. 20

  4. 20

  5. 2-fmTextAlignCenter

  6. 50

  7. 120

нет

Label5

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. v1(км/ч)

  2. шрифт: Times New Roman; начертание: жирный, размер: 16;

  3. 20

  4. 170

  5. 2-fmTextAlignCenter

  6. 80

  7. 50

нет

Label6

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. v2(км/ч)

  2. шрифт: Times New Roman; начертание: жирный, размер: 16;

  3. 20

  4. 170

  5. 2-fmTextAlignCenter

  6. 85

  7. 80

нет

Label7

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. v3(км/ч)

  2. шрифт: Times New Roman; начертание: жирный, размер: 16;

  3. 20

  4. 170

  5. 2-fmTextAlignCenter

  6. 85

  7. 120

нет

Label8

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. Путь по равнине

  2. шрифт: Times New Roman; начертание: жирный, размер: 11;

  3. 20

  4. 350

  5. 2-fmTextAlignCenter

  6. 120

  7. 50

Выводит результат значения пути по равнине

Label9

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. Путь в гору

  2. шрифт: Times New Roman; начертание: жирный, размер: 11;

  3. 20

  4. 350

  5. 2-fmTextAlignCenter

  6. 120

  7. 85

Выводит результат значения пути в гору

Label10

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. Путь под гору

  2. шрифт: Times New Roman; начертание: жирный, размер: 11;

  3. 20

  4. 350

  5. 2-fmTextAlignCenter

  6. 120

  7. 120

Выводит результат значения пути под гору

Label11

  1. Font

  2. Height

  3. Left

  4. TextAlign

  5. Width

  6. Top

  1. шрифт: Times New Roman; начертание: жирный, размер: 11;

  2. 40

  3. 200

  4. 2-fmTextAlignCenter

  5. 120

  6. 200

Выводит результат значения общего пути пешехода

Label12

  1. Caption

  2. Font

  3. Height

  4. Left

  5. TextAlign

  6. Width

  7. Top

  1. Выход

  2. шрифт: Times New Roman; начертание: жирный, размер: 20;

  3. 30

  4. 230

  5. 2-fmTextAlignCenter

  6. 65

  7. 250

Click – Выход из программы

TextBox1

  1. Font

  2. Height

  3. Left

  4. TextAlign

  5. Width

  6. Top

  1. шрифт: Times New Roman; начертание: жирный, размер: 14;

  2. 20

  3. 90

  4. 2-fmTextAlignCenter

  5. 40

  6. 50

нет

TextBox2

  1. Font

  2. Height

  3. Left

  4. TextAlign

  5. Width

  6. Top

  1. шрифт: Times New Roman; начертание: жирный, размер: 14;

  2. 20

  3. 90

  4. 2-fmTextAlignCenter

  5. 40

  6. 85

нет

TextBox3

  1. Font

  2. Height

  3. Left

  4. TextAlign

  5. Width

  6. Top

  1. шрифт: Times New Roman; начертание: жирный, размер: 14;

  2. 20

  3. 90

  4. 2-fmTextAlignCenter

  5. 40

  6. 120

нет

TextBox4

  1. Font

  2. Height

  3. Left

  4. TextAlign

  5. Width

  6. Top

  1. шрифт: Times New Roman; начертание: жирный, размер: 14;

  2. 20

  3. 270

  4. 2-fmTextAlignCenter

  5. 40

  6. 50

нет

TextBox5

  1. Font

  2. Height

  3. Left

  4. TextAlign

  5. Width

  6. Top

  1. шрифт: Times New Roman; начертание: жирный, размер: 14;

  2. 20

  3. 270

  4. 2-fmTextAlignCenter

  5. 40

  6. 85

нет

TextBox6

  1. Font

  2. Height

  3. Left

  4. TextAlign

  5. Width

  6. Top

  1. шрифт: Times New Roman; начертание: жирный, размер: 14;

  2. 20

  3. 270

  4. 2-fmTextAlignCenter

  5. 40

  6. 120

нет

CommandButton

  1. Caption

  2. Font

  3. Height

  4. Left

  5. Top

  6. Width

  1. Общий путь

  2. шрифт: Times New Roman; начертание: жирный, размер: 16;

  3. 30

  4. 195

  5. 150

  6. 120

Выполняет вычисления и выводит результаты значений: пути по равнине, пути в гору, пути под гору, общего пути пешехода
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]
Помощь Обратная связь Вопросы и предложения Пользовательское соглашение Политика конфиденциальности