Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Тема: Арифметическое выражение
Пример Разместите на экранной форме четыре текстовых поля. Оставьте имена, данные по умолчанию. Разместите метку Label 1, командную кнопку «Вычислить» и горизонтальную линию. Создать калькулятор вычисляющий значение арифметического выражения.
Рисунок 3.1 – Пример калькулятора, вычисляющего значения арифметического выражения
После создания экранной формы поместите код в поле события Click командной кнопки. Программа VBA Private Sub CommandButton1__Click() PI = 3.14159 A! = Val (TextBox1.Text) B! = Val (TextBox2.Text) X! = Val (TextBox3.Text) Y! = Val (TextBox4.Text) X1! = X!*PI /180 Z1! = Sqr(A!/B!) + 5.68 Z2! = (A!*SIN(X1!)+B*COS(Y!))^2 Z! = Z1!/Z2! Label1.Caption = Cstr(Z!) End Sub Откройте форму Калькулятор. Введите в текстовые поля a, b, x, y – исходные данные. Нажмите кнопку «Вычислить». Появится результат.
Варианты заданий
Практическая работа №4
Тема Табулирование функции Справка Списки Списки позволяют пользователю выбрать данные из некоторого перечня. Они выглядят как небольшие окна, в которых показываются несколько возможных значений и разрешается просматривать весь список, не отображаемый целиком в окне. Списки и комбинированные списки очень похожи внешне, но отличаются по своему действию. Список может содержать, например, перечень файлов каталога. Пользователь может выбрать нужный ему элемент списка с помощью мыши или клавиш перемещения курсора (стрелок). Можно производить поиск, нажимая клавиши с буквами. Курсор перемещается к тому элементу, который начинается с введенной буквы. Первый список, размещенный на форме, называется ListBox 1 (Рисунок 4.1). Рисунок 4.1 – Пример элемента управления Список
На отдельные элементы списка можно ссылаться посредством индекса, указываемого после имени свойства List, например, 3-й элемент в списке с именем MyList обозначается MyList.List (2). Первый же элемент списка – MyList.List(0).
Метод Addltem Элементы списка могут быть добавлены в список или комбинированный список методом Addltem (добавить элемент).
Синтаксис метода Addltem: [имя формы] имя объекта. Addltem элемент [, индекс] где элемент − то, что добавляется в список, индекс − номер добавляемого элемента. По умолчанию элемент добавляется в конец списка. Индекс первого элемента списка равен 0. Например: Country.Addltem «Англия» Country.Addltem «Шотландия» Country.Addltem «Уэльс» Country.Addltem «Северная Ирландия»
Операторы, используемые для заполнения списка, обычно помещаются в процедуру, которая загружает форму, содержащую список.
Свойство Sorted Список имеет свойство Sorted (сортированный). Если ему присвоено значение «T rue», то во время выполнения программы данные в этом списке будут упорядочены в алфавитном порядке; в противном случае элементы в списке будут располагаться в этом порядке, в котором они были добавлены в список. Чтобы, например, проверить значение свойства Sorted, необходимо записать: If [form] {ComboBox | ListBox}.Sorted = true Then… Список допускает просмотр и выбор любого из своих элементов, в том числе и находящихся за пределами видимого окна. Объект управления типа «список» в процессе выбора в нем нужного элемента не расширяется.
Метод Clear Элементы списка могут быть удалены из списка методом Clear. Например: Country.Clear
Пример: Программа табулирования функции производит вычисления значения заданной функции на заданном интервале с заданным шагом . Задана функция , на интервале . Интерфейс c пользователем реализован в виде формы User Form1 (Рисунок 4.2).
Рисунок 4.2 – Интерфейс программы табулирования функции
I 1. Выбрать элемент управления метка. 2. Разместить его на месте. 3. Нажать на кнопку свойства. 4. Набрать рядом с Caption A=.
II То же для B=, dx=, результат=.
III 1. Вид − панель инструментов – рисование. 2. Нарисовать горизонтальную линию с помощью инструмента
IV 1. Выбрать элемент управления Поле. 2. Разместить на листе TextBox1.
V 1. То же для TextBox2, TextBox3.
VI 1. Выбрать элемент управления Кнопка. 2. Разместить его на листе.
3. Набрать рядом с Caption в окне свойств «Вычислить».
VII 1. Выбрать элемент управления список. 2. Разместить его на форме.
VIII 1. Выделить кнопку «Вычислить». 2. Выполнить двойную фиксацию кнопки мыши. 3.Написать программу VBA. Величины A, B, dx вводятся в текстовые окна TextBox1, TextBox2, TextBox3, затем при нажатии кнопки «Вычислить» (щелчок кнопкой мыши) эти числа подставляются в программу, а результат отображается в списке. Программа VBA Private Sub CommandButton1_Click() A!=Val (TextBox1.Text) B!=Val (TextBox2.Text) DX!=Val (TextBox3.Text) ListBox1.Clear X!=A! L1: Y!=X!^2 ListBox1.AddItem CStr(X!) & " " & CStr(Y!) X!=X!+DX! IF X! <=B! Then GOTO L1 End Sub Варианты заданий
dx=0.1 Практическая работа № 5
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2021-04-04; просмотров: 71; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.225.55.151 (0.019 с.) |