Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Dim Temp (1 To 30) As SingleСодержание книги
Поиск на нашем сайте
Dim Day As Integer Dim X (10), Y (10) Если минимальное значение индекса не указано, то оно считается равным 0. Пример Программа «Неравномерный шаг» производит вычисление значений составной функции , при задании аргумента в виде одномерного массива. Задача функции , для следующих значений количество чисел одномерного массива X Интерфейс с пользователем реализован в виде формы UserForm1 (Рисунок 8.1.).
Рисунок 8.1. - Окно формы UserForm1 Программа VBA Sub CommandButton1_Click() Dim X (6) For I=1 To 6 X (I)=InputBox(“ Введите X(I)”) Next I M$=" " For I =1 To 6 M$=M$+CStr(X (I))+Chr(10) Next I MsgBox M$ ListBox1.Clear For I =1 To 6 IF X (I) < 0 Then Y= -X (I) / (1+X (I)^2) Else Y=X (I) / (1+X (I) ^2) EndIF ListBox1.AddItem CStr(X(I))+” “+CStr(Y) Next I End Sub
Варианты заданий
Практическая работа № 9 Тема Рисование геометрических фигур
Справка Приводимые далее графические объекты и методы реализованы в Visual Basic Application MS Excel 2013. Рисование выполняется на листах Excel. Синтаксис и семантика графических объектов и методов MS VBA 2013, устанавливаемого отдельно отличаются от приведенных ниже.
Объект Line Описание – линейный графический объект на диаграмме или рабочем листе
Объект Lines Описание – коллекция объектов Line
Метод Add Применяется к Lines Описание - создает новую Line. Синтаксис – object.Add (x1, y1, x2, y2) Элементы Add метод имеет следующий квалификатор object и поименованные аргументы: Object – обязательный. Line – объект. X 1, Y 1 – обязательные. Определяет позицию первой координаты объекта, в точках (1/72 дюйма), относительно верхнего левого угла ячейки A1 или верхнего левого угла диаграммы. X 2, Y 2 - обязательные. Определяет позицию второй координаты объекта, в точках относительно верхнего левого угла ячейки A1 или верхнего левого угла диаграммы.
Пример применения метода Add Этот пример создает новую линию со стрелкой направленной в верхний левый угол. Обратите внимание на порядок точек – точка со стрелкой во второй координате With ActiveSheet.Lines.Add (80, 80, 10, 10) . ArrowHeadStyle=xlOpen . Border.LineStyle=x1Dot End with
Метод Delete Применяется к Lines, Ovals, Rectangles Описание – удаляет объект Синтаксис – object Delete Элементы Object – обязательный. Объект, к которому применяется этот метод
Пример применения метода Delete Этот пример удаляет овал номер 1 с активного листа ActiveSheet. Ovals (1). Delete
Объект Oval Описание – овальный графический объект, на диаграмме или рабочем листе (Рисунок 8.2.).
Рисунок 8.2. - Овальный графический объект
Объект – Ovals Описание – коллекция объектов oval
Метод Add Применяется к Ovals, Rectangles Описание – создает новый рисованный объект, используя координаты в точках (1/72 дюйма). Тип объекта зависит от коллекции в которой вы вызвали Add. Например, Rectangles. Add создает новый прямоугольник, Ovals. Add создает новый овал. Синтаксис
|
||||||||||||||||||||||||||
Последнее изменение этой страницы: 2021-04-04; просмотров: 112; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.116.88.132 (0.006 с.) |