Sub CommandButton1_Click()

Dim X(7)

For I=1 To 7

X(I)=Val(InputBox(“Введите Х(I)”))

Next I

M$=” “

For I=1 To 7

M$=M$+CStr(X(I))+Chr(10)

Next I

MsgBox M$

K=0

For I=1 To 7

IF X(I)<0 THEN

K=K+1

ENDIF

Next I

MsgBox “K=”+Cstr(K)

End Sub

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

Вариант
1	- 4.8	-6.4	3.6	-1.3	-2.1	2.3	-5.8	0.0
2	3.7	-5.4	3.6	-8.7	7.1	6.0	7.6	5.4
3	- 1.7	-1.7	3.1	9.2	5.7	-6.9	0.0	-0.4
4	- 0.7	-0.8	-4.2	-7.3	-6.8	5.6	-6.6
5	- 9.6	2.1	7.6	8.7	1.7	0.5	2.5	3.1
6	8.5	0.6	-2.2	9.8	0.1	5.9	-0.3	2.2
7	5.1	4.5	-0.8	-0.1	-6.6	7.5	-8.3
8	-8.7	2.8	2.8	4.9	-6.1	8.8	-6.6	-7.9
9	0.6	-3.9	5.3	1.0	5.2	-5.1	6.0
10	-1.4	7.7	-5.9	2.5	4.4	-4.2	5.1	-6.1
11	-8.6	5.8	-2.4	2.5	6.3	5.1	6.1	-7.9
12	-4.9	1.5	-2.6	5.3	-2.2	-6.4	-6.8	-2.8
13	20.1	1.9	0.5	9.9	7.6	-8.8	-2.0	4.1
14	9.6	5.2	-8.7	-2.6	-0.1	0.0	-1.8
15	7.1	3.9	-8.9	-6.1	2.6	3.9	8.6

Практическая работа №8

 

Тема Табулирование с неравномерным шагом

Справка

Массив – это величина, которая состоит из пронумерованного множества значений. Все значения должны быть одного типа. Их количество не должно превосходить заранее заданного числа. Для объявления массива используют оператор Dim. После имени массива указывается диапазон значений.

Пример:

Dim Summa As Single

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.