End Sub. Dim b As Single, s As Single, i As Integer

Next

Dim b As Single, s As Single, i As Integer

Примеры вычисления сумм и произведений

Dim a(5 to 10) As Single

Dim a(5) As Single

Одномерные массивы.

End Sub

Dim x As Single, s As Single, v As Single, j As Single

x=Val(InputBox(“Введите значение х”))

s=Val(InputBox(“Введите значение s”))

j = Worksheets("Условный оператор ").Range("i19")

If x * j < 2 * s Then v = Cos(x * j) ^ 2 Else If x * j >= 2 * s And _

x * j <= 3 * s Then v = 2 * Tan(j * x) Else v = 5 - Exp(x / 2)

MsgBox ("Значение v=" & Format(v, "##.####"))

ВЫЧИСЛЕНИЕ СУММ, ПРОИЗВЕДЕНИЙ, ЭКСТРЕМУМОВ (Задание 3)

Массивами называются совокупности данных одного типа, объединенные одним именем. Элементы массивов называются индексированными переменными.

Одномерные массивы имеют один индекс, например a(i), где a – имя массива, i – номер элемента массива.

Массивы до их использования в программе, должны быть объявлены в операторе Dim, например:

Здесь определено, что будет использоваться одномерный массив с 6-ю элементами вещественного типа одинарной точности. Число в скобках указывает номер последнего доступного для использования номера индекса. Нумерация индексов начинается с нуля.

После объявления элементы массива могут использоваться в выражениях подобно простым переменным, но с указанием индекса в круглых скобках. Например, после приведенного выше объявления массива а(i) в программном коде можно обращаться к следующим элементам массива: а(0), а(1), а(2), а(3), а(4), а(5).

Если необходимо использовать определенную нумерацию элементов массива, например с 5 до 10, то это указывается при объявлении массива следующим образом:

После этого в программном коде будут доступны следующие элементы массива: а(5), а(6), а(7), а(8), а(9), а(10).

Пример 1. Программа вычисления суммы элементов

b = {5, 2; 4,5; 1; 2,9; 3}.

Sub CommandButton1_Click()

s = 0

For i = 1 To 5

b = Val(InputBox(«Введите элемент массива b»))

s = s + b

MsgBox (“Сумма элементов массива равна= ” & s)

Здесь элементы b вводятся с клавиатуры по одному числу, сумма чисел вычисляется в переменной s.

Пример 2. Программа вычисления произведения элементов

t = {0,4; –1,5; 2,8; 3; 0,9; 7,3} и значения w в соответствии с формулой:

Sub CommandButton2_Click()

Дата добавления: 2014-01-05