![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Потім в програмі необхідно обчислити необхідний розмір масиву в деякій змінній, наприклад, n і змінити розмір динамічного масиву за допомогою інструкції ReDim.
Синтаксис:
ReDim <Ім’яЗмінної>(<індекси>)[ As < Тип>][,<Ім’яЗмінної>(<індекси>)[ As Тип>]] …
Нариклад,
ReDim R(1 to n) встановлюються межі динамічного масиву від 1 до n. Якщо, наприклад, n=10, то встановлюються межі динамічного масиву від 1 до 10.
Для вирішення задачі по роботі з масивом потрібно виконати наступне:
1. масив треба оголосити, як динамічний, тобто описати масив з завданням типу елементів динамічного масиву оператором Dim без вказання розміру
2. обчислити (увести)необхідний розмір масиву в деякій змінній, наприклад, n
3. змінити розмір динамічного масиву за допомогою оператора ReDim
4. здійснити введення \ виведення елементів масиву
5. обчислити масив
6. вивести результати обчислень.
Уведення елементів одновимірного масиву у програму можна здійснити за допомогою одного з наведених способів:
1. Уведення елементів одновимірного масиву за допомогою функції InputBox:
For i = 1 To n
a(i) = Val(InputBox(“Уведіть елемент масиву А”)
Cells(2, i) = a(i) ‘Виведення елементів масиву на робочий лист
Next i
2. Уведення елементів одновимірного масиву за допомогою генератора випадкових чисел Randomize та функції Rnd():
Randomize
For i = 1 To n
b(i) = Rnd() * 10 ‘ Уведення додатних елементів масиву
b(i) = (-1) ^ Int(Rnd() * 10) * (Rnd() * 10) ‘Уведення від’ємних елементів масиву
Cells(5, i) = b(i) ‘ Виведення елементів масиву на робочий лист
Next i
‘Range(Cells(5, 1), Cells(5, n)) = b ‘Виведення елементів масиву на робочий лист у діапазон (другий спосіб)
3. Уведення елементів одновимірного масиву за допомогою зчитування елементів з комірок робочого листа.
Для цього потрібно попередньо записати елементи у комірки на робочому листі.
For i = 1 To n
a(i)= Worksheets(“Лист1”).Cells(3, i) ‘Зчитування елементів з Лист1, записаних у 3-му рядку, починаючи з стовпця А
Next i
Дата публикования: 2014-11-26; Прочитано: 335 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!