Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Dim B() As Single



N = 2

M = 2

ReDim B(1 to N, 1 to M)

В цьому прикладі показано використання інструкції ReDim.

Для вирішення задачі по роботі з масивом потрібно виконати наступне:

1. масив треба оголосити, як динамічний, тобто описати масив з завданням типу елементів динамічного масиву оператором Dim

2. обчислити (увести)необхідний розмір масиву у двох змінних, наприклад, n та m

3. змінити розмір динамічного масиву за допомогою оператора ReDim

4. здійснити введення \ виведення елементів масиву

5. обчислити масив

6. вивести результати обчислень.

У задачах на двовимірні масиви використовуються вкладені цикли (арифметичні)- внутрішній та зовнішній, керовані по двом індексам.

Уведення елементів двовимірного масиву у програму можна здійснити за допомогою одного з наведених способів:

1. Уведення елементів двовимірного масиву за допомогою функції InputBox:

For i = 1 To n

For j = 1 To m

a(i,j) = Val(InputBox(“Уведіть елемент масиву А”)

Next j

Next i

Range(Cells(1, 1), Cells(n, m)) = a ‘Виведення елементів масиву на робочий лист у діапазон

2. Уведення елементів одновимірного масиву за допомогою генератора випадкових чисел Randomize та функції Rnd():

Randomize

For i = 1 To n

For j = 1 To m

b(i,j) = Rnd() * 10 ‘ Уведення додатніх елементів масиву

‘b(i,j) = (-1) ^ Int(Rnd() * 10) * (Rnd() * 10) ‘Уведення додатніх та від’ємних елементів масиву

Next j

Next i

Range(Cells(1, 1), Cells(n, m)) = b ‘Виведення елементів масиву на робочий лист у діапазон





Дата публикования: 2014-11-26; Прочитано: 307 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.005 с)...