Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Лабораторная работа № 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  

 

Вывод:

 

 


mylektsii.ru - Мои Лекции - 2015-2019 год. (0.014 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал