Код програми

Private Sub cmdRes_Click()

Dim x() As Single, y() As Single,z() As Single

Dim a() As Single, i As Integer, n As Integer

Dim MinX As Single,MinY As Single,MinZ As Single

Dim S As String

n = CInt(txtN.Text)

ReDim x(n), y(n), z(n), a(n,3)

S = “”

MsgBox “вводим” & n & “элементов массива Х”

Vvod x,n

MsgBox “вводим” & n & “элементов массива Y”

Vvod y,n

MsgBox “вводим” & n & “элементов массива Z”

Vvod z,n

MinX = Min(x,n) ’виклик функції

MinY = Min(y,n) ’виклик функції

MinZ = Min(z,n) ’виклик функції

For i = l To n

a(i,1) = x(i)*MinX:a(i,2) = y(i)*MinY

a(i,3) = z(i)*MinZ

S = S & a(i,1) & “ ” & a(i,3) & vbCrLf

Next i

txtRes.Text = S

End Sub

Private Function Min(a() As Single, p As Integer) As Single

Dim I As Integer

Min = a(1)

For i = 2 To p

If a(i) < Min Then Min = a(i)

Next i

End Function

Private Sub Vvod(z() As Single, p As Integer)

Dim i As Integer

For i = 1 To p

z(i) = CSng(InputBox(“введите” & i & “-й элемент”))

Next i

End Sub

9.2 Індивідуальні завдання

Варіант 1.

1. Задано дійсні числа a,b. Одержати , де

2. Задано масив дійсних чисел X (n). Обчислити кількість елементів масиву, що належать кожному з відрізків [0,1], [-2,2] і [1,5].

3. Для кожній із матриць A (4,4), B (5,5) і C (3,3) знайти Min

елемент головної діагоналі.

Варіант 2.

1. .Дані дійсні числа x, y, z. Одержати

2. Задані 3 масиви дійсних чисел: A(n), B(m), C(k). Упорядкувати кожен з них за зростанням їх модулів.

3. Побудувати матрицю A(n,3), стовпцями якої є вектори Х(n),Y(n),Z(n), упорядковані за зростанням

Варіант 3.

1. Задані дійсні числа a, b, c. Одержати

2. Задано масиви дійсних чисел: X(10), Y(10), Z(10) Одержати масив G(10),кожний елемент якого рахується так:

3. Побудувати матрицю А(n,3), стовпчиками якої є вектори X(n), Y(n), Z(n), помножені на найбільший елемент кожного вектора відповідно.

Варіант 4.

1. Задані дійсні числа s, t, a. Одержати p(1)–p(t)+p²(s-t)+p³ (1), де

p(x)=(a-12)x+(a-11)x+…+(a-1)x+a.

2. Обчислити: ,

де xі x - відповідно найменші елементи заданих

масивів чисел X1(20) і X2(15).

3. Обчислити суму елементів на головної діагоналі та вищих за неї для кожній із заданих матриць A(5,5) і B(4,4).

Варіант 5.

1. Задані дійсні числа x, y. Одержати g(1.2,x)+g(x,y)-g(2x-1,xy), де .

2. Для кожного з заданих масивів дійсних чисел X(20),

Y(30), Z(15) визначити кількість додатних елементів, що

розташовані до першого від’ємного елементу.

3. Обчислити і запам'ятати кількість від’ємних елементів у кожному стовпчику матриць А(4,7) і B(3,5).

Варіант 6.

1. Задані дійсні числа s, t. Одержати g(1.2,s,t)+g(2,t,s-t), де

.

2. Задано три масиви дійсних чисел: X(10), Y(15), Z(20). З'ясувати, скільки у масиві X елементів, більших ніж 5, у Y -

більших ніж 3, у масиві Z - елементів, більших ніж 10.

3.Вивести до друку елементи цілочисельних матриць N(4,6) і M(3,5), що кратні 3.

Варіант 7.

1. Надані дійсні числа a,b,c. Обчислити вираз:

2. Задано вершини п'ятикутника: (X₁,Y₁),(X₂,Y₂),...,(X₅,Y₅).

Розробити процедуру обчислення площі трикутника за координатами його вершин. Обчислити площу п'ятикутника.

3. Перетворити матрицю A(m,n) таким чином, щоб елементи кожного стовпчика утворювали послідовність, яка зменшується.

Варіант 8.

1. Вибрати з заданих відрізків з довжинами a, b, c, d такі, з яких можна побудувати трикутник. Процедуру визначення можливості побудови трикутника по заданим сторонам оформити у вигляді функції.

2. Дано дійсні масиви a(n), b(m).. У масиві a(n) елементи, що розташовані за більшим з них (за першим, якщо їх декілька), замінити на 1, а в масиві b(m) на 10

3. Обчислити суму елементів нижньої трикутної матриці для кожній із заданих матриць X(4,4) і Y(5,5)

Варіант 9.

1. Написати функцію для відповіді на запитання, чи знаходиться точка А(х,у) в середині трикутника з координатами вершин М₁(х₁,у₁), М₂(х₂,у₂), М₂(х₂,у₂).

2. Для кожного з заданих масивів цілих чисел A(10), B(15), C(20) знайти суму парних елементів, що розташовані до першого від’ємному елементу.

3. Матриці A(3,4) і B(4,5) перетворити так, щоб у кожному стовпчику всі елементи, що розташовані за найбільшим у цьому стовпчику, стали рівними нулю. Передбачається, що найбільший елемент у кожному стовпчику тільки один.

Варіант 10.

1. Задані дійсні числа a,b. Одержати f(a)+f(ab)-f(b-a)/f(a+b), де .

2. Заданo масиви дійсних чисел: X(10),Y(20),Z(15). Одержати

3.Поміняти в матриці A(4,6) місцями 1 і 4 стовпчик, а в матриці B(6,6) - 2 і 5 стовпчик.

Варіант 11.

1.Задані дійсні числа a,b, с. Одержати y(a,b,c)-y(ab,a-b,c)/y(c,a+b, c), де

.

2. Для кожного з заданих масивів цілих чисел A(5), B(10), C(15) визначити суму непарних елементів, що розташовані до першого додатного елементу.

3. Для кожній із матриць X(4,4) і Y(5,5) знайти найменший зі значень елементів головної і побічної діагоналей

Варіант 12.

1. Задані дійсні числа a,b. Одержати (y(a)-3y(b))/(1+y(a+b)), де

.

2. Задано n масивів цілих чисел довжини n. У кожному масиві знайти суми від’ємних та додатних чисел.

Оформити функцію для підсумовування елементів масиву.

3. Знайти максимальне з чисел, що зустрічається більш одного разу в заданій матриці цілих чисел. Оформити функцію для підрахунку однакових чисел.

ЛІТЕРАТУРА

1. Гарнаев А.Ю. Самоучитель VBA. - СПб.: БХВ – Санкт-Петербург, 2004. – 560с.: ил.

2. Кузьменко В.Г. VBA 2000. – М.: ЗАО «Издательство БИНОМ», 2000. – 408с.: ил.

3. Васильев А., Андреев А. VBA в Office 2000. – СПб.: Питер, 2001. – 432 с.: ил.

4. Подлин, Шарон. Освой самостоятельно программирование для Microsoft Excel 2000 за 24 часа.: М.: Изд. дом «Вильямс», 2000. – 304 с.

5. Санна П. Visual Basic для приложений. СПБ, «BHV»- 1999 г., 704с.

6. Слепцова Л.Д. Программирование на VBA. Самоучитель.: М.: Изд. дом «Вильямс», 2004. – 384с.:ил.

7. Створення інформаційних систем засобами Visual Basic for Application (VBA) у середовищі Microsoft Excel. Конспект лекцій по дисциплінам “Основи інформатики” і “Комп’ютерні технології і програмування” для студентів економічних спеціальностей усіх форм навчання./ Укл. Н.І.Біла. – Запоріжжя: ЗДТУ, 2001. – 52с.

Дата добавления: 2014-10-31