Содержание блока подготовки и тела цикла при решении некоторых задач обработки одномерного массива:
Задача Блок подготовки Тело цикла
Сумма элементов s=0 s=s+x(i)
Произведение элем. р =1 р=р*x(i)
мин. элемент min=x(1) if min>x(i) then min=x(i)
мах. элемент max=x(1) if max<x(i) then max=x(i)
Примеры обработки одномерных массивов
Пример 16.1.
Задан одномерный массив Х=хi i=1,2,...,10. Составить программу определения максимального элемента.(см. глава 10, рис. 10.10).
Private Sub CommandButton1_Click()
Dim x(1 To 10), max As Single, i As Integer
For i = 1 To 10
x(i) = Val(InputBox(" Введите " & i & " Элемент массива "))
Next i
max = x(1)
For i = 2 To 10
If max < x(i) Then max = x(i)
Next i
MsgBox "max=" & max
End Sub