 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
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; Прочитано: 308 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
