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

 

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

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 создает новый овал.

Синтаксис