Page 127 - 4192

1. За допомогою організації циклу за
індексами елементів масиву ( рис. 8.1).

Рисунок 8.1- Блок-схема введення масиву

Рисунок 8.2 – Інтерфейс введення елементів масиву

Private Sub Command1_Click()
Const n = 10
Dim A(1 To n) As Integer
For i = 1 To n
A(i) =Val(InputBox("Введіть " + Str(i) + "елемент масиву А”, i))
Next i
End Sub

Пояснення: Оскільки елементів масиву може виявитися
багато, то вводити їх значення за допомогою текстових полів
недоцільно. В таких випадках зазвичай використовують

126