Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Лабораторная работа № 16
|
|
Тема: «Синтаксис языка VBA»
Цель работы: изучение интерфейса VBA, некоторых его объектов, их свойств и методов.
Порядок выполнения работы:
1. У каких элементов управления есть свойство Caption?
2. Для чего используется свойство Enabled?
3. Какое свойство задаёт текст всплывающих подсказок у элементов управления?
4. Перечислите элементы, расположенные на форме.
 |
5. Дайте пояснения к инструкциям кода приложения, которое позволяет вычислить значения функции
на заданном интервале (а, b) с заданным шагом h и вывести результат вычислений в список.
Рисунок - Окно приложения
Таблица
| Private Sub UserForm_Initialize() UserForm1.Caption = " Табулирование" ListBox1.Enabled = False End Sub Private Sub CommandButton1_Click() If Not IsNumeric(TextBox1.Text) Then MsgBox " Ошибка при вводе начала интервала", _ vbExclamation, " Проверка" TextBox1.SetFocus Exit Sub End If a = CDbl(TextBox1.Text) If Not IsNumeric(TextBox2.Text) Then MsgBox " Ошибка при вводе конца интервала", _ vbExclamation, " Проверка" TextBox2.SetFocus Exit Sub End If b = CDbl(TextBox2.Text) If Not IsNumeric(TextBox3.Text) Then MsgBox " Ошибка при вводе шага", _ vbExclamation, " Проверка" TextBox3.SetFocus Exit Sub End If h = CDbl(TextBox3.Text) i = 1 With ListBox1 .ColumnCount = 2 .AddItem " x" .List(0, 1) = " y" For x = a To b Step h .AddItem x .List(i, 1) = x ^ 2 i = i + 1 Next x End With End Sub Private Sub CommandButton2_Click() UserForm.Hide End Sub |
Вывод: