Dim Temp (1 To 30) As Single

↑

▷ Содержание

⇐ ПредыдущаяСтр 9 из 10Следующая ⇒

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

Варианты заданий

1	2
3	4
5	6
7	8
9	10
11	12
13	14
15

Практическая работа № 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 создает новый овал.

Синтаксис

Познавательные статьи:



Техника нижней прямой подачи мяча

Комплекс физических упражнений для развития мышц плечевого пояса

Стандарт Порядок надевания противочумного костюма

Общеразвивающие упражнения без предметов